Funcția VBA: Rnd

Descriere

Funcția VBA Rnd returnează un număr aleatoriu mai mic decât 1 și mai mare sau egal cu 0.

Sintaxă Rnd

Rnd

Exemplu VBA Rnd

Câteva exemple de valori returnate de funcția Rnd:

Sub RndExample1()
    
    Randomize
    
    MsgBox Rnd 'Returnări, de exemplu: 0,1790262
    MsgBox Rnd 'Returnări, de exemplu: 0,734448
    MsgBox Rnd 'Returnări, de exemplu: 0,4870669
    MsgBox Rnd 'Returnări, de exemplu: 0,9100572
    MsgBox Rnd 'Returnări, de exemplu: 0,7860449
    MsgBox Rnd 'Returnări, de exemplu: 0,1607063
    
End Sub

Adăugați întotdeauna o instrucțiune Randomize la procedura sau funcția dumneavoastră înainte de a utiliza funcția Rnd, astfel încât numerele aleatoare să nu fie repetate.

Să generăm un număr întreg aleatoriu de la 1 la 10 folosind funcția Rnd:

Function RandomNumber()
    
    Randomize
    
    RandomNumber = Int(Rnd * 10 + 1)
    
End Function

Sub RndExample2()
    
    MsgBox RandomNumber 'Returnări, de exemplu: 6
    MsgBox RandomNumber 'Returnări, de exemplu: 2
    MsgBox RandomNumber 'Returnări, de exemplu: 10
    MsgBox RandomNumber 'Returnări, de exemplu: 7
    MsgBox RandomNumber 'Returnări, de exemplu: 9
    MsgBox RandomNumber 'Returnări, de exemplu: 1
    MsgBox RandomNumber 'Returnări, de exemplu: 8
    
End Sub