Funktion VBA: Rnd

Beschreibung

Die Funktion VBA Rnd gibt eine Zufallszahl zurück, die kleiner als 1 und größer oder gleich 0 ist.

Syntax Rnd

Rnd

Beispiel VBA Rnd

Einige Beispiele für Werte, die von der Funktion Rnd zurückgegeben werden:

Sub RndExample1()
    
    Randomize
    
    MsgBox Rnd 'Gibt zum Beispiel zurück: 0,1790262
    MsgBox Rnd 'Gibt zum Beispiel zurück: 0,734448
    MsgBox Rnd 'Gibt zum Beispiel zurück: 0,4870669
    MsgBox Rnd 'Gibt zum Beispiel zurück: 0,9100572
    MsgBox Rnd 'Gibt zum Beispiel zurück: 0,7860449
    MsgBox Rnd 'Gibt zum Beispiel zurück: 0,1607063
    
End Sub

Lassen Sie uns mit der Funktion Rnd eine zufällige Ganzzahl von 1 bis 10 generieren:

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

Sub RndExample2()
    
    MsgBox RandomNumber 'Gibt zum Beispiel zurück: 6
    MsgBox RandomNumber 'Gibt zum Beispiel zurück: 2
    MsgBox RandomNumber 'Gibt zum Beispiel zurück: 10
    MsgBox RandomNumber 'Gibt zum Beispiel zurück: 7
    MsgBox RandomNumber 'Gibt zum Beispiel zurück: 9
    MsgBox RandomNumber 'Gibt zum Beispiel zurück: 1
    MsgBox RandomNumber 'Gibt zum Beispiel zurück: 8
    
End Sub