VBA Rnd 関数

はじめに

Excel VBA マクロの Rnd 関数を紹介します。

Rnd 関数は、乱数 (ランダムな数値) を返します。

指定した整数の範囲で取得もできます。

目次
- 構文
- 解説
- 使用例

構文

Rnd(数値)
指定した数値のシード値の乱数表から乱数を取得します。

Rnd()
次の乱数を取得します。

引数「数値」	省略できます。指定した数値が負の値、0、正の値で次のようになります。負の値：シード値を指定して乱数を返します。 0：直前の乱数の値を返します。正の値：次の乱数の値を返します。引数を省略したときと同じです。
戻り値の型	数値型 (Single)

解説

0 ～ 1 未満の値を返します。

乱数を次々に取得したいときは、引数なしで呼び出すか引数「数値」に正の値を指定します。どちらも同じ結果を返します。

取得した乱数と同じ値を取得するには引数「数値」に 0 を指定します。

乱数表によって次に取得する乱数の値が決められています。乱数表はいくつもあり、それを識別する値をシード値と言います。

シード値が同じなら毎回決まった順番で乱数が返されます。Excel を起動したときのシード値は毎回同じです。

シード値をランダムに変更するには Randomize ステートメントを呼び出します。Rnd 関数の引数「数値」に負の値を指定するとシード値を指定できます。

使用例

Excel 起動時のシード値は固定されているので、このコードを実行すると毎回同じ結果になります。これでは乱数の意味がありません。


Dim f As Single

f = Rnd
Debug.Print(f) ' 0.7055475
f = Rnd
Debug.Print(f) ' 0.533424

f = Rnd(0) ' 前回と同じ乱数を取得
Debug.Print(f) ' 0.533424

Randomize ステートメントを呼び出すとシード値をランダムに変更します。乱数を生成するときは必ず実行する必要があります。


Randomize ' ランダムにシード値を選択する

Dim f As Single

f = Rnd
Debug.Print(f) ' 0.2098439 など毎回変わる
f = Rnd
Debug.Print(f) ' 0.1017115 など毎回変わる

引数「数値」に負の値を指定してシード値を指定できます。同じ負の値を指定すると、何回繰り返しても同じ順番で乱数を取得できます。乱数を再現したいときに使用します。


Dim f As Single

f = Rnd(-1) ' シード値を -1 にする
Debug.Print(f) ' 0.224007
f = Rnd
Debug.Print(f) ' 3.584582E-02

f = Rnd(-2) ' シード値を -2 にする
Debug.Print (f) ' 0.7133257
f = Rnd
Debug.Print (f) ' 0.6624333

乱数を指定した範囲の整数で取得できます。


Const low As Integer = 1   ' 最小値
Const high As Integer = 10 ' 最大値
Dim i As Integer
Randomize

' low ～ high の範囲の整数をランダムに取得する
i = Int((high - low + 1) * Rnd + low)
Debug.Print(i) ' 1 ～ 10