Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 19-03-2017, 09:53   #1
sdgssdgs
 
Giriş: 18/03/2013
Şehir: izmir
Mesaj: 5
Excel Vers. ve Dili:
türkçe 2010
Varsayılan Seçilmiş ölçüler içinden rastgele sayı gelmesi yardım

bir makinam var excele doğru yanlış kodu geliyor. Makine uzun süre doğru kodda bekliyor iş bitince anlık yanlış kod yazıyor anlık işi gönderince tekrar doğruda beklemeye devam ediyor. Ben şunu istiyorum bir kutumda makinenin ölçü değeri var bu değerler (0,5-0,75-1-1,25) şeklinde el ile yazıyorum bu rastgele 4 tane değeri.

ölçü değeri=1,25
makina kod= doğru
makina kod=anlık yanlış oldu yanlışta iken değer değişmesin
ölçü değeri=(1,25 dikkat değişmedi)
makina kod=doğru
ölçü değeri=0,75 değişti (tekrar doğru kod ve değişti)
makina kod=hayır
ölçü değeri=0,75 (dikkat değişmedi)
makina kod=doğru
ölçü değeri=1 değişti (tekrar doğru kod ve değişti)

işleyiş böyle olacak doğru yanlış kutucuğu var buraya nasıl ölçü bölümüne atacağız hangi formülle yardım.
sdgssdgs Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-03-2017, 09:58   #2
uzelnuri
 
Giriş: 19/03/2017
Şehir: Kayseri
Mesaj: 4
Excel Vers. ve Dili:
10
Varsayılan Lütfen yardım

Merhaba sevgili hocam, bir küre var, küre içerisinde 1'den 100'e kadar sayılar var fakat her sayıdan farklı miktarda var, örneğin 1'den 8 tane, 4'ten 6 tane, 63'ten 7 tane sayı var ve biz bu küre içerisinden 10 tabe sayı çekeceğiz, hangi sayıların geleceği önemli değil, bunu excel'de nasıl formüle edebiliriz? Yardımcı olursanız çok memnun oluruz efendim...
uzelnuri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-03-2017, 15:27   #3
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,091
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba, cep telefonundan yazıyorum.

RASTGELEARADA işlevini araştırmanızı öneririm.
.
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-03-2017, 15:38   #4
uzelnuri
 
Giriş: 19/03/2017
Şehir: Kayseri
Mesaj: 4
Excel Vers. ve Dili:
10
Varsayılan

Rastgelearada işlevini araştırdım fakat, bununla sadece 1'den 100'e kadar olan sayılar arasında rastgele sayılar çıkıyor. Fakat benim ihtiyacım olan şey her sayıdan farklı miktarda olacak küreden çekilen toplar gibi... mesela 8 tane 1, 6 tane 2, 6 tane 3 diye 100'e kadar devam edecek... bunlar arasında sıralama yapacak...
uzelnuri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-03-2017, 15:53   #5
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,091
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

En iyisi bir örnek belge hazırlayın ve cevabımın altındaki İMZA bölümünde belirttiğim şekilde foruma yükleyin.
Bir üye mutlaka cevap yazacaktır.
.
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-03-2017, 18:14   #6
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,091
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Alıntı:
uzelnuri tarafından gönderildi Mesajı Görüntüle
Rastgelearada işlevini araştırdım fakat, bununla sadece 1'den 100'e kadar olan sayılar arasında rastgele sayılar çıkıyor. Fakat benim ihtiyacım olan şey her sayıdan farklı miktarda olacak küreden çekilen toplar gibi... mesela 8 tane 1, 6 tane 2, 6 tane 3 diye 100'e kadar devam edecek... bunlar arasında sıralama yapacak...
Merhaba.

-- Alt taraftan, uygulama yapmak istediğiniz excel sayfasının adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılan VBA ekranında sağ taraftaki boş alana aşağıdaki kod'u yapıştırın,
-- Sayfaya bir düğme/şekil/metin kutusu ekleyerek, bu düğme/şekil/metin kutusuna sağ tıklayıp MAKRO ATAyı seçin.
-- Açılacak küçük ekrandaki listeden ÇEKİLİŞ_BRN'yi seçerek işlemi onaylayın,
-- Sayfadaki düğmeye tıkladığınızda istediğiniz işlem gerçekleşir.
-- Yeşil renklendirdiğim satırlar işleme en olmaz. Bu satırlarda kod'un hangi kısmında hangi işlemin yapıldığı açıklandı.
-- Bu yeşil kısımları silerek de işlem yapabilirsiniz.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub ÇEKİLİŞ_BRN()
Range("A2:E" & Rows.Count).ClearContents
'*** A sütununa 1'den 100'e kadar sayı yazmak için döngü oluşturuluyor
    For a = 1 To 100
        Cells([A65536].End(3).Row + 1, 1) = a
        Cells([A65536].End(3).Row, 4) = a
'*** B sütununa 1 ile 5 arasında rastgele sayı yazılıyor (Bu A sütunandeki sayının tekrar sayısı)
        tekrar = WorksheetFunction.RandBetween(1, 5)
        Cells([B65536].End(3).Row + 1, 2) = tekrar
        Cells([B65536].End(3).Row, 5) = tekrar
    Next
On Error GoTo 20
'*** Yukarıdaki kısımda A ve D sütununa 1'den 100'e kadar sayı yazıldı ve
'    B ve E sütununa da bu sayıların kaç kez tekrarlanacağı yazıldı
    
'***Yapılacak çekiliş sayısının sınırı, B sütununa yazılan sayıların TOPLAMIdır.
    For sat = 2 To WorksheetFunction.Sum(Range("B:B")) + 1
10:     sayı = WorksheetFunction.RandBetween(2, [D65536].End(3).Row)
'*** Üstteki satırda 2 ile A sütunundaki son dolu satırın satır numarası arasında RASTGELE bir sayı çekildi.
        Cells([C65536].End(3).Row + 1, 3) = Cells(sayı, 1)
'*** Bulunan satır A sütunundaki sayı C sütununa yazıldı.
            If Cells(sayı, 5) = 1 Then
            '*** Bulunan satır B sütunundaki sayı (tekrar sayısı) 1 ise aynı sayı tekrar çekilmemesi için;
            ' o satırdaki D ve E sütunu hücreleri silinecek
                Range(Cells(sayı, 4), Cells(sayı, 5)).Delete Shift:=xlUp
                GoTo 10: End If
            If Cells(sayı, 2) > 1 Then Cells(sayı, 5) = Cells(sayı, 5) - 1
            '*** Bulunan satır E sütunundaki sayı (tekrar sayısı) 1'den büyük ise
            ' o sayı bir kez çıktığına göre E sütunundaki sayı 1 azaltıldı.
    Next ' İlk sayı bulunup C sütununa yazıldığına ve bulunan sayının karşısındaki tekrar sayısı 1 azaltıldığına göre BİR SONRAKİ SATIR İŞLEMİ için BAŞA DÖNÜLÜYOR.
20: MsgBox "İşlem tamamlandı..."
'*** İŞLEM BİTTİĞİNDE işlemin bittiği mesajı ekranda görüntülenir.
End Sub
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-03-2017, 19:08   #7
uzelnuri
 
Giriş: 19/03/2017
Şehir: Kayseri
Mesaj: 4
Excel Vers. ve Dili:
10
Varsayılan

Çok teşekkür ederim...
uzelnuri Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 08:36


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden