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:

  1. Sub RndExample1()  
  2.       
  3.     Randomize  
  4.       
  5.     MsgBox Rnd 'Gibt zum Beispiel zurück: 0,1790262  
  6.     MsgBox Rnd 'Gibt zum Beispiel zurück: 0,734448  
  7.     MsgBox Rnd 'Gibt zum Beispiel zurück: 0,4870669  
  8.     MsgBox Rnd 'Gibt zum Beispiel zurück: 0,9100572  
  9.     MsgBox Rnd 'Gibt zum Beispiel zurück: 0,7860449  
  10.     MsgBox Rnd 'Gibt zum Beispiel zurück: 0,1607063  
  11.       
  12. 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:

  1. Function RandomNumber()  
  2.       
  3.     Randomize  
  4.       
  5.     RandomNumber = Int(Rnd * 10 + 1)  
  6.       
  7. End Function  
  8.   
  9. Sub RndExample2()  
  10.       
  11.     MsgBox RandomNumber 'Gibt zum Beispiel zurück: 6  
  12.     MsgBox RandomNumber 'Gibt zum Beispiel zurück: 2  
  13.     MsgBox RandomNumber 'Gibt zum Beispiel zurück: 10  
  14.     MsgBox RandomNumber 'Gibt zum Beispiel zurück: 7  
  15.     MsgBox RandomNumber 'Gibt zum Beispiel zurück: 9  
  16.     MsgBox RandomNumber 'Gibt zum Beispiel zurück: 1  
  17.     MsgBox RandomNumber 'Gibt zum Beispiel zurück: 8  
  18.       
  19. End Sub