TOP

Funzione VBA: Rnd

Descrizione

La funzione VBA Rnd restituisce un numero casuale inferiore a 1 e maggiore o uguale a 0.


Sintassi Rnd

Rnd

Esempio VBA Rnd

Alcuni esempi di valori restituiti dalla funzione Rnd:

Sub RndExample1()
    
    Randomize
    
    MsgBox Rnd 'Resi, ad esempio: 0.1790262
    MsgBox Rnd 'Resi, ad esempio: 0,734448
    MsgBox Rnd 'Resi, ad esempio: 0.4870669
    MsgBox Rnd 'Resi, ad esempio: 0,9100572
    MsgBox Rnd 'Resi, ad esempio: 0,7860449
    MsgBox Rnd 'Resi, ad esempio: 0.1607063
    
End Sub
Aggiungere sempre un'istruzione Randomize alla procedura o alla funzione prima di utilizzare la funzione Rnd in modo che i numeri casuali non vengano ripetuti.

Generiamo un numero intero casuale da 1 a 10 utilizzando la funzione Rnd:

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

Sub RndExample2()
    
    MsgBox RandomNumber 'Resi, ad esempio: 6
    MsgBox RandomNumber 'Resi, ad esempio: 2
    MsgBox RandomNumber 'Resi, ad esempio: 10
    MsgBox RandomNumber 'Resi, ad esempio: 7
    MsgBox RandomNumber 'Resi, ad esempio: 9
    MsgBox RandomNumber 'Resi, ad esempio: 1
    MsgBox RandomNumber 'Resi, ad esempio: 8
    
End Sub