Random (Rasgele sayı üretme)

[osiso]

a1 e 1 ile 49 arasında rasgele sayı üretebilecek bir program istiyorum yardımcı olursanız sevinirim bir buton olacak a1 b1 c1 d1 e1 f1 e küçükten büyüğe doğru sayı atayacak ama aynı iki rakam olmayacak ve sıfır olmayacak yardımcı olursanız sevinirim...

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub sayiuret()
For a = 1 To 6
10 sayi = Int(Rnd() * 100)
say = WorksheetFunction.CountIf([a1:f1], sayi)
If sayi > 49 Or sayi = 0 Or say > 0 Then GoTo 10
Cells(1, a) = sayi
Next
End Sub

 

[osiso]

eğer bir örnek yapıp yollarsanız çok sevinirim ben yaptım olmadı

 

[airborne]

commandbutton1 e tıkladınğında sayılar oluşmaktadır

 

[osiso]

kardeşler kusura bakmayın sizleri tekrar rahatsız ediyorum ama yemin ederim 10 saattir bunun için uğraşıyorum ama bir satırda iki tane aynı sayıyı üretiyor ben bir satırda aynı iki sayıyı üretsin istemiyorum anlatabildimmi ızdırabımı acaba

 

[Levent Menteşoğlu]

ama bir satırda iki tane aynı sayıyı üretiyor

Eminmisiniz? yukarıda eklenen dosyadaki butona basarak kodu çalıştırdınızmı?

 

[osiso]

LÜTFEN BENİM İÇİN ÞU AÞAÐIDAKİ KODU BİR İNCELERMİSİNİZ SİZDEN RİCAM BİR GÃ?RÜN


Private Sub CommandButton1_Click()

For b = 1 To 6
10 za = Int(Rnd() * 100)
20 ya = Int(Rnd() * 100)
30 va = Int(Rnd() * 100)
40 üa = Int(Rnd() * 100)
50 ua = Int(Rnd() * 100)
60 ta = Int(Rnd() * 100)
70 şa = Int(Rnd() * 100)
80 sa = Int(Rnd() * 100)
If za > 49 Or za = 0 Or z > 0 Then GoTo 10
If ya > 49 Or ya = 0 Or y > 0 Then GoTo 20
If va > 49 Or va = 0 Or v > 0 Then GoTo 30
If üa > 49 Or üa = 0 Or ü > 0 Then GoTo 40
If ua > 49 Or ua = 0 Or u > 0 Then GoTo 50
If ta > 49 Or ta = 0 Or t > 0 Then GoTo 60
If şa > 49 Or şa = 0 Or ş > 0 Then GoTo 70
If sa > 49 Or sa = 0 Or s > 0 Then GoTo 80
Cells(8, b) = za
Cells(9, b) = ya
Cells(10, b) = va
Cells(11, b) = üa
Cells(12, b) = ua
Cells(13, b) = ta
Cells(14, b) = şa
Cells(15, b) = sa
Next
End Sub

 

[osiso]

leventm, ALT ALT A KOLONLAR OLUNCA BİRDEN FAZLA KOLON OLUNCA NEDENSE PROGRAM KAFAYI YİYOR LÜTFEN YARDIMCI OLUNUZ....




Sub sayiuret()
For a = 1 To 6
10 sayi = Int(Rnd() * 100)
20 Bayi = Int(Rnd() * 100)
30 Cayi = Int(Rnd() * 100)
40 Fayi = Int(Rnd() * 100)
50 Hayi = Int(Rnd() * 100)
60 Kayi = Int(Rnd() * 100)
70 Layi = Int(Rnd() * 100)
80 Mayi = Int(Rnd() * 100)
say = WorksheetFunction.CountIf([a1:f1], sayi)
Bay = WorksheetFunction.CountIf([a2:f2], Bayi)
Cay = WorksheetFunction.CountIf([a3:f3], Cayi)
Fay = WorksheetFunction.CountIf([a4:f4], Fayi)
Hay = WorksheetFunction.CountIf([a5:f5], Hayi)
Kay = WorksheetFunction.CountIf([a6:f6], Kayi)
Lay = WorksheetFunction.CountIf([a7:f7], Layi)
May = WorksheetFunction.CountIf([a8:f8], Mayi)
If sayi > 49 Or sayi = 0 Or say > 0 Then GoTo 10
If Bayi > 49 Or Bayi = 0 Or Bay > 0 Then GoTo 20
If Cayi > 49 Or Cayi = 0 Or Cay > 0 Then GoTo 30
If Fayi > 49 Or Fayi = 0 Or Fay > 0 Then GoTo 40
If Hayi > 49 Or Hayi = 0 Or Hay > 0 Then GoTo 50
If Kayi > 49 Or Kayi = 0 Or Kay > 0 Then GoTo 60
If Layi > 49 Or Layi = 0 Or Lay > 0 Then GoTo 70
If Mayi > 49 Or Mayi = 0 Or May > 0 Then GoTo 80
Cells(1, a) = sayi
Cells(1, a) = Bayi
Cells(2, a) = Cayi
Cells(3, a) = Fayi
Cells(4, a) = Hayi
Cells(5, a) = Kayi
Cells(6, a) = Layi
Cells(7, a) = Mayi
Next
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Sıralama özelliğini atlamışım onuda ekledim.

[vb:1:d2a415a8d8]Sub sayiuret()
For a = 8 To 15
For b = 1 To 6
10 sayi = Int(Rnd() * 100)
adr = "a" & a & ":f" & a
say = WorksheetFunction.CountIf(Range(adr), sayi)
If sayi > 49 Or sayi = 0 Or say > 0 Then GoTo 10
Cells(a, b) = sayi
Next
Range(adr).Sort Key1:=Cells(a, "a")
Next
End Sub
[/vb:1:d2a415a8d8]

 

[osiso]

SOLDAN SAÐA DOÐRU KÜÇÜKTEN BÜYÜÐE DOÐRU SIRALAYAMAYIZ MI ACABA
ÇOK ZAHMET VERDİM SİZE DE BİLİYORUM AMA YARDIMCI OLURSANIZ ÇOK SEVİNİRİM....