0 Dan 5 e Kadar Rastgele Sayı

[Mustafa MUTLU]

0 dan 5 e Kadar Yan yana 104 adet Rastgele Sayı üreten bir kod istiyorum.
Butına her tıkladığımda bu sayılar değişecek.
Örnek :
a1=1
b1=3
c1=0
d1=5
..
..
..
dc=1
gibi yan yana 104 tane 5 i geçmeyen sayıları karışık bir şekilde atacak...

Formda aradım çoğu sayısal lotoya göre hazırlanmış.
0 (sıfır rakamınıda vermiyorlar, bana sıfırda lazım) Rakamı dahil olacak.

İlgilenen arkadaşlara teşekkür ederim...

 

[Muhammet Okumuş]

düğmeye kodu atayın

Sub Düğme1_Tıklat()
For i = 1 To 104
Randomize Timer
a = Int(Rnd * 6)
Cells(i, 1) = a
Next i
End Sub

 

[Muhammet Okumuş]

üstte yazdığım alt alta

Sub Düğme1_Tıklat()
For i = 1 To 104
Randomize Timer
a = Int(Rnd * 6)
Cells(1, i) = a
Next i
End Sub

bu da yan yana üretir.

 

[Mustafa MUTLU]

Teşekürler

 

[Muhammet Okumuş]

rica ederim.

 

[uzmanamele]

merhaba

alternatif

=RASTGELEARADA(0;5)