Rastgele bir sayının üretilmesi.

[sakaryali]

Rastgele bir sayı üretmek için nasıl bir kod yazmalıyım???

 

[hamitcan]

RASTGELE SAYI

Sub DEN()

Dim MyValue

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

1-6 ARASINDA RASTGELE SAYI ÜRETİR.

 

[janveljan]

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.

 

[oerbas]

mukaml

 

[xxrt]

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..

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