乱数を生成する(Rnd 関数)
2015/08/26
Rnd 関数の使い方
Rnd 関数は、0 以上、1 未満の範囲の乱数を単精度浮動小数点(Single)で生成します。
result = Rnd [ ( number ) ]
< 整数 min から max の間で、ランダムな整数値 result_int を取得する場合 >
result_int = Int ( Rnd * ( max – min + 1 ) ) + min
引数・戻り値
- number ・・・ 対象となる数値または数式を指定します。指定する値によって返される乱数は、以下の表の通りです。(省略可)
number の値 戻り値 < 0 引数 number のシード値によって決まる同じ数値 > 0 乱数系列の次の乱数 = 0 直前に生成した乱数 省略 乱数系列の次の乱数 - result ・・・ 0 以上 1 未満の範囲の値。
- max ・・・ 生成する乱数の範囲の上限値(整数)を指定します。
- min ・・・ 生成する乱数の範囲の下限値(整数)を指定します。
- result_int ・・・ 生成された乱数( min から max の間の整数値)
初期シード値が変わらない限り、一連の Rnd 関数が返す乱数系列は同じになります。これは、連続する各 Rnd 関数が乱数系列の中の直前の乱数をシード値として、次の乱数をそれぞれ生成するためです。( ⇒ サンプルVBAソース その2を参照)
引数を指定せずに、Randomize ステートメントを実行すると乱数ジェネレータを初期化することができます。
乱数系列を繰り返すには、数値を指定して Randomize ステートメントを実行する直前に、負の引数を指定して Rnd 関数を呼び出します。引数 number に同じ値を指定して Randomize ステートメントを使用しても、前の乱数系列を繰り返すことはできません。
Rnd 関数の使用例
サンプルVBAソース その1
1 2 3 4 5 6 7 8 9 10 |
Sub Sample_Rnd1() '整数 1 から 6 までの乱数を発生 MsgBox Int(6 * Rnd) + 1 End Sub |
実行結果
サンプルVBAソース その2
1 2 3 4 5 6 7 8 9 10 |
Sub Sample_Rnd2() 'Randomize '乱数を発生 ActiveCell.Value = Rnd End Sub |
実行結果
上記「サンプルVBAソース その2」をセルA1 からA5 で実行して保存後、一旦終了します。
保存したブックを開いて「サンプルVBAソース その2」をセルB1 からB5 で実行した結果
乱数シード値(Randomize)を設定しない場合は、上記のとおり実行結果は常に一定になります。
「サンプルVBAソース その2」の4行目のコメントをはずして、Randomize ステートメントを実行すると乱数ジェネレータを初期化することができます。
関連記事
-
ユーザー定義関数:セルを取得する(ThisCell プロパティ)
入力されたセルを取得する ワークシート上で使用する Function プロシージ …
-
列挙型変数(Enum ステートメント)
列挙型変数を使う 列挙型変数を使用するには、Enum ステートメントを使って、宣 …
-
乱数ジェネレータを初期化 (乱数系列を再設定) する(Randomize ステートメント)
Randomize ステートメントの使い方 Rnd 関数 を使用する前に使用しま …
-
文字列:文字列を指定した形式に変換する(StrConv 関数)
StrConv 関数の使い方 【書式】 result = StrConv ( s …
-
ユーザー定義関数:自動再計算関数の設定(Volatile メソッド)
ユーザー定義関数で、自動再計算を行うかどうかを設定する ワークシート上で使用する …
-
色の設定(ColorIndex プロパティ・Colors プロパティ)
ColorIndex プロパティ ColorIndex プロパティは、指定したオ …
-
引数の整数部分を取得する(Fix 関数・Int 関数)
Fix 関数・Int 関数の使い方 【書式】 number_fix = Fix …
-
オートシェイプの種類を表す定数(MsoAutoShapeType 列挙型)
MsoAutoShapeType 列挙型 オートシェイプオブジェクトの図形の種類 …
-
文字列:文字列の一部を別の文字列で置換(Replace 関数)
Replace 関数の使い方 【書式】 result = Replace ( s …
-
引数が省略されたかどうかをチェックする( IsMissing 関数 )
IsMissing 関数の使い方 【書式】 result = IsMissing …