RASGELE SAYI OLUŞTURMADA MAKRO YARDIMI

[cihangirkara]

RASGELE SAYI OLUÞTURMADA MAKRO YARDIMI

ARKADAÞLAR 500 E KADAR RASTGELE SAYI ÜRETEN BİR MAKRO VAR BEN BUNUN 4 BASAMAKLI YANİ 1000 DEN BÜYÜK 10000 DEN KÜÇÜK OLMASINI İSTİYORUM BİRDE RAKAMLAR BİRBİRİNDEN FARKLI OLABİLİRMİ YARDIMCI OLURSANIZ SEVİNİRİM


Private Sub CommandButton1_Click()
[a1] = Int(Rnd * 500)
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

[vb:1:dcccec9783]Private Sub CommandButton1_Click()
10 sayi = Int(Rnd * 10000)
If sayi < 1000 Or sayi = [a1] Then GoTo 10
[a1] = sayi
End Sub[/vb:1:dcccec9783]

 

[cihangirkara]

dostum oluyor ama sayının rakamları aynı olmasın yani 1 ler onlar yüzler binler basamağı farklı rakam olsun teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:ec6e5226ea]Private Sub CommandButton1_Click()
10 say1 = Int(Rnd * 10)
If say1 = 0 Then GoTo 10
20 say2 = Int(Rnd * 10)
If say2 = say1 Then GoTo 20
30 say3 = Int(Rnd * 10)
If say3 = say1 Or say3 = say2 Then GoTo 30
40 say4 = Int(Rnd * 10)
If say4 = say1 Or say4 = say2 Or say4 = say3 Then GoTo 40
[a1] = say1 & say2 & say3 & say4
End Sub [/vb:1:ec6e5226ea]

 

[cihangirkara]

DOSTUM SEN BİR DAHİSİN