乱数を生成する（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ソース その２を参照）
引数を指定せずに、Randomize ステートメントを実行すると乱数ジェネレータを初期化することができます。
乱数系列を繰り返すには、数値を指定して Randomize ステートメントを実行する直前に、負の引数を指定して Rnd 関数を呼び出します。引数 number に同じ値を指定して Randomize ステートメントを使用しても、前の乱数系列を繰り返すことはできません。
Rnd 関数の使用例
サンプルVBAソース その１
|
1 2 3 4 5 6 7 8 9 10 |
Sub Sample_Rnd1() '整数 1 から 6 までの乱数を発生 MsgBox Int(6 * Rnd) + 1 End Sub |
実行結果
サンプルVBAソース その２
|
1 2 3 4 5 6 7 8 9 10 |
Sub Sample_Rnd2() 'Randomize '乱数を発生 ActiveCell.Value = Rnd End Sub |
実行結果
上記「サンプルVBAソース その２」をセルA1 からA5 で実行して保存後、一旦終了します。
保存したブックを開いて「サンプルVBAソース その２」をセルB1 からB5 で実行した結果
乱数シード値（Randomize）を設定しない場合は、上記のとおり実行結果は常に一定になります。
「サンプルVBAソース その２」の４行目のコメントをはずして、Randomize ステートメントを実行すると乱数ジェネレータを初期化することができます。
関連記事
-
-
文字列：定数（改行・タブ）
改行・タブの定数 これらの定数は、使用前に定義する必要はありません。コード中のど …
-
-
文字列：指定した文字の文字コードを取得する（Asc 関数）
Asc 関数 【書式】 result = Asc ( string ) 引数・戻 …
-
-
配列（宣言・要素数の変更について）
配列の宣言 【書式】※ 配列の宣言 ＜Type 型の静的配列（固定長配列）の宣言 …
-
-
変数が配列かどうかをチェックする（ IsArray 関数 ）
IsArray 関数の使い方 【書式】 result = IsArray( va …
-
-
CPU に制御を移す（DoEvents 関数）
DoEvents 関数 DoEvents 関数を実行すると、CPU に制御を移し …
-
-
文字列：２つの文字列を比較する（StrComp 関数）
StrComp 関数の使い方 【書式】 result = StrComp ( s …
-
-
日付時刻：現在の日付・時刻を取得・設定（Now、Date、Time）
現在の日付・時刻を取得・設定 現在の日付・時刻を取得（Now 関数、Date 関 …
-
-
ユーザー定義定数（Const ステートメント）
定数を使う ユーザー定義の定数を使用するには、Const ステートメントを使って …
-
-
文字列：文字列を最後から検索してその最初の文字位置を返す（InStrRev 関数）
InStrRev 関数 任意の文字列の中で、指定した文字列を最後から検索して、見 …
-
-
四捨五入・切り上げ・切り捨て・丸め（Round 関数 他）
Round 関数（丸め）の使い方 【書式】 value = Round ( ex …