rastgele aslinda pek rastgele degil

Katılım
22 Kasım 2005
Mesajlar
101
Excel Vers. ve Dili
2003
Almanca
Merhaba Arkadaslar
Rastgele sayi üretimi ile ilgili ufak bir problemim vardi. Bilmiyorum bu problem benden mi kaynaklaniyor yoksa herkeste mi böyle.

Sub rastgele()
alt = Range("e2").Value
ust = Range("f2").Value - Range("e2").Value
For x = 1 To 1000
Range("a" & x).Value = WorksheetFunction.Round(Rnd() * ust + alt, 0)
Next x
End Sub

Anlasilacagi gibi alt ve üst siniri giriyorum. bana bu aralikta sayilar üretiyor. Ama üretim sirasi hep ayni. yani makroyu ilk calistirdiginizda ürettigi sayi sirasiyla 71,54,38,30,31 ...... diye gidiyor makroyu tekrar calistirdiginida ürettigi sayi 90,87,39,97,51 ............ Sayfayi kaydetmeden cikip tekrar acip makroyu calistirdiginizda üretim sirasi yine yukardaki gibi yani birinci calistirmada 71,54,38,30,31...... ikincisinde 90,87,39,....... Bilmiyorum anlatabiliyor muyum ne demek istedigimi.
Yabanci dil icin bana rastgele kelime soracak bir sey yaptim. Ama programi her calistirdigimda ilk sordugu kelime hep ayni kaliyor ikincisi yine ayni sira degismiyor yani.
Bu konuda yapilabilecek var mi acaba veya kodu mu degistirmeliyim.
Simdiden tesekkür ediyorum herkese.
 
Üst