Vba: randbetween gebruiken om willekeurige getallen te genereren

U kunt de RandBetween- methode in VBA gebruiken om een willekeurig geheel getal tussen twee specifieke waarden te genereren.

Hier zijn twee veelvoorkomende manieren om deze methode in de praktijk te gebruiken:

Methode 1: Gebruik RandBetween om een willekeurig geheel getal te genereren

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

Deze specifieke macro genereert een willekeurig geheel getal tussen 1 en 100 in cel A1 .

Methode 2: Gebruik RandBetween om meerdere willekeurige gehele getallen te genereren

 Sub GenerateMultipleRandomIntegers()

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

Deze specifieke macro genereert een willekeurig geheel getal tussen 1 en 100 voor elke cel in het bereik A1:A10 .

De volgende voorbeelden laten zien hoe u elk van deze methoden in de praktijk kunt gebruiken.

Voorbeeld 1: Gebruik RandBetween om een willekeurig geheel getal te genereren

Stel dat we een willekeurig getal tussen 1 en 100 willen genereren en het resultaat in cel A1 van ons huidige blad in Excel willen plaatsen.

We kunnen hiervoor de volgende macro maken:

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

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Merk op dat cel A1 de waarde 36 bevat.

Houd er rekening mee dat elke keer dat we deze macro uitvoeren, er een andere gehele waarde tussen 1 en 100 kan worden gegenereerd.

Voorbeeld 2: Gebruik RandBetween om meerdere willekeurige gehele getallen te genereren

Stel dat we in plaats daarvan een willekeurig geheel getal tussen 1 en 100 willen genereren voor elke cel in het bereik A1:A10 .

We kunnen hiervoor de volgende macro maken:

 Sub GenerateMultipleRandomIntegers()

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

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Merk op dat elke cel in het bereik A1:A10 een willekeurig geheel getal tussen 1 en 100 bevat.

Opmerking : u kunt hier de volledige documentatie voor de RandBetween VBA-methode vinden.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: Hoe AVERAGEIF- en AVERAGEIFS-functies te schrijven
VBA: SUMIF- en SUMIFS-functies schrijven
VBA: Hoe COUNTIF- en COUNTIFS-functies te schrijven