Rastgele bir sayının üretilmesi.

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
RASTGELE SAYI

Sub DEN()

Dim MyValue

MyValue = Int((6 * Rnd) + 1)
MsgBox MyValue
End Sub

1-6 ARASINDA RASTGELE SAYI ÜRETİR.
 
Katılım
27 Temmuz 2004
Mesajlar
719
Excel Vers. ve Dili
Excel 2003 Tr
bunun için excelin kendi fonksiyonları var
S_SAYI_ÜRET ingilizce için RANDOM 0 ile arasında rastgele sayı üretir.
RATGELEARADA ingilizce için RANDBETWEEN de verdiğiniz iki rakam arasında rastgele sayı üretir. Bu fonksiyon için Toolpack Çözümleyicinin yüklü olması gerekir. Araçlar / Eklentilerden yükleyebilirsiniz.

Ayrıca rnd fonksiyonu kullanıldığında RANDOMIZE da kullanılmalı ki kod her çalıştığında aynı rastgele sayıları üretmesin. Yani 2,3,9 ürettiyse kitabı kapatıp açtıktan sonra yine aynı sırayla 2,3,9 üretir. Bunu önlemek için randomize kullanılır.
 
X

xxrt

Misafir
Değişik Bir cevapta ben yazayım..Üreticek Sayıların Hangi sayı aralığında olacağını belirliyebiliriz.Sayısal Loto gibi 49 Kadar Olması Gerek..Mesela 100 Kişik Sınıfta Geziye Gidecekler 15 Kişi olsun.Bu 15 Kişi Kura ile Gidecektir.Bunun İçinde Kodun 100 Kişilik Gruptan 15 Kişiyi Rastgele seçmesi gerek..
Kod:
Sub Kura_Sonuc()
For i = 1 To 15 'Kuraya Katılacak Kişi sayısı
Randomize
MsgBox Int(Rnd(1) * 100) 'Kuraya Katılacak Kişi Sayısı 
Next
End Sub
 
Üst