rastgele sayı üretmek

[Muhammet Okumuş]

rast gele sayılar üretmek istiyorum.bundan önce üret 1.1 diye dosya buldum.bunda a1 hücresine maksimum sayıyı a2 hücresine çekilecek sayı miktarı giriliyor.benim istedeğim de böyle bir şey ancak rakamlar aynı gelebilir.yani a1 a2 den büyük olmak zorunda değil.eki gönderiyorum

 

[Muhammet Okumuş]

arkadaşlar ellinizde konuyla ilgili örnek var mı

 

[janveljan]

Sub rastgele()
x = 100 '  yukarı değer
y = 10 ' kaç adet rastgele değer
For i = 1 To y
    Cells(i, 1) = Int(Rnd * x)
Next
End Sub

 

[Muhammet Okumuş]

kardeş olmuş peki alt üst sınır varsa.diyelim ki 20 ie 100 arası sayı olsun.bunun kodu nasıl olur

 

[janveljan]

Sub rastgele()
x2 = 100 ' yukarı değer
x1 = 20 'aşağı değer
y = 10 ' kaç adet rastgele değer
For i = 1 To y
Cells(i, 1) = Int(Rnd * (x2-x1) ) + x1
Next
End Sub

 

[ahmett46]

Sn muokumuş daha önce açmış olduğunuz konuda örnek yapılmıştı. her bir sütunun başındaki butona tıkladığınızda sayılar o sütuna dağıtılacaktır. kodları çoğaltarak istediğiniz sayıda yapabilirsiniz. ha bu arada maraşlımısınız?