TOP
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
- MsgBox Rnd
- MsgBox Rnd
- MsgBox Rnd
- MsgBox Rnd
- MsgBox Rnd
-
- End Sub
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
Fügen Sie Ihrer Prozedur oder Funktion immer eine Randomize-Anweisung hinzu, bevor Sie die Funktion Rnd verwenden, damit die Zufallszahlen nicht wiederholt werden.
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
- MsgBox RandomNumber
- MsgBox RandomNumber
- MsgBox RandomNumber
- MsgBox RandomNumber
- MsgBox RandomNumber
- MsgBox RandomNumber
-
- End Sub
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