Funcția VBA Rnd returnează un număr aleatoriu mai mic decât 1 și mai mare sau egal cu 0.
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
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