Vba: so verwenden sie randbetween zum generieren von zufallszahlen

Sie können die RandBetween- Methode in VBA verwenden, um eine zufällige Ganzzahl zwischen zwei bestimmten Werten zu generieren.

Hier sind zwei gängige Möglichkeiten, diese Methode in der Praxis anzuwenden:

Methode 1: Verwenden Sie RandBetween, um eine zufällige Ganzzahl zu generieren

 SubGenerateRandomInteger ()
Range(" A1 ") = WorksheetFunction.RandBetween(1, 100)
End Sub

Dieses spezielle Makro generiert eine zufällige Ganzzahl zwischen 1 und 100 in Zelle A1 .

Methode 2: Verwenden Sie RandBetween, um mehrere zufällige Ganzzahlen zu generieren

 Sub GenerateMultipleRandomIntegers()

    Dim i As Integer
    
    For i = 1 To 10
        Range(" A " & i) = WorksheetFunction.RandBetween(1, 100)
    Next i
    
End Sub

Dieses spezielle Makro generiert eine zufällige Ganzzahl zwischen 1 und 100 für jede Zelle im Bereich A1:A10 .

Die folgenden Beispiele zeigen, wie jede dieser Methoden in der Praxis angewendet werden kann.

Beispiel 1: Verwenden Sie RandBetween, um eine zufällige Ganzzahl zu generieren

Angenommen, wir möchten eine Zufallszahl zwischen 1 und 100 generieren und das Ergebnis in Zelle A1 unseres aktuellen Blatts in Excel platzieren.

Dazu können wir das folgende Makro erstellen:

 SubGenerateRandomInteger ()
Range(" A1 ") = WorksheetFunction.RandBetween(1, 100)
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass Zelle A1 den Wert 36 enthält.

Beachten Sie, dass jedes Mal, wenn wir dieses Makro ausführen, ein anderer ganzzahliger Wert zwischen 1 und 100 generiert werden kann.

Beispiel 2: Verwenden Sie RandBetween, um mehrere zufällige Ganzzahlen zu generieren

Angenommen, wir möchten stattdessen für jede Zelle im Bereich A1:A10 eine zufällige Ganzzahl zwischen 1 und 100 generieren.

Dazu können wir das folgende Makro erstellen:

 Sub GenerateMultipleRandomIntegers()

    Dim i As Integer
    
    For i = 1 To 10
        Range(" A " & i) = WorksheetFunction.RandBetween(1, 100)
    Next i
    
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass jede Zelle im Bereich A1:A10 eine zufällige Ganzzahl zwischen 1 und 100 enthält.

Hinweis : Die vollständige Dokumentation zur RandBetween VBA-Methode finden Sie hier .

Zusätzliche Ressourcen

Die folgenden Tutorials erklären, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So schreiben Sie die Funktionen AVERAGEIF und AVERAGEIFS
VBA: So schreiben Sie SUMIF- und SUMIFS-Funktionen
VBA: So schreiben Sie COUNTIF- und COUNTIFS-Funktionen