Excel VBAのRandBetween関数を使った乱数の生成方法


  1. 特定の範囲の整数を生成する方法: 以下のコードは、1から10の範囲内の整数をランダムに生成する例です。

    Dim randomNumber As Integer
    randomNumber = WorksheetFunction.RandBetween(1, 10)
  2. 複数の乱数を生成する方法: 以下のコードは、1から100の範囲内の乱数を10個生成し、セルに表示する例です。

    Dim i As Integer
    For i = 1 To 10
       Cells(i, 1).Value = WorksheetFunction.RandBetween(1, 100)
    Next i
  3. 乱数の種を固定する方法: 以下のコードは、乱数の種を固定して乱数を生成する例です。同じ乱数の種を使用すると、毎回同じ乱数の系列が生成されます。

    Randomize 1 ' 乱数の種を1に設定
    Dim randomNumber As Integer
    randomNumber = Int((10 * Rnd) + 1)

これらはExcel VBAでRandBetween関数を使用して乱数を生成するいくつかの方法の一部です。必要に応じて、これらの例をカスタマイズして利用することができます。