rnd fonksiyonel

[YASEMİN90]

girilen sayı kadar(1-20 arası)rassal sayı içeren makroyu yazabilirmisiniz.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kod ile yapabilirsiniz.

Option Explicit
 
Sub RASTGELE_SAYI()
    Randomize
    MsgBox Int(Rnd() * 20 + 1)
End Sub

 

[YASEMİN90]

çok teşekkür ederim