乱数ジェネレータを初期化 (乱数系列を再設定) する（Randomize ステートメント）
Randomize ステートメントの使い方
Rnd 関数 を使用する前に使用します。Randomize ステートメントを使用せず、乱数にシード値を設定しない場合、マクロを含むブックを一度閉じてから再度開いて実行した結果が常に一定となります。
シード値とは、乱数発生ルーチンの初期値に使われる値のことです。
Randomize [ ( number ) ]
引数・戻り値
- number ・・・ シードを選択するための数値を指定します。
引数 number を省略した場合、システムタイマーから取得した値（Timer 関数の戻り値）が新しいシード値として使われます。この場合ほぼ毎回違う値を得ることができます。
乱数系列を繰り返すには、数値を指定して Randomize ステートメントを実行する直前に、負の引数を指定して Rnd 関数を呼び出します。引数 number に同じ値を指定して Randomize ステートメントを使用しても、前の乱数系列を繰り返すことはできません。
Randomize 関数の使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 |
Sub Sample_Randomize() '新しいシード値として Timer 関数の戻り値を使用し、乱数発生ルーチンを初期化 Randomize '乱数を発生 ActiveCell.Value = Rnd End Sub |
実行結果
上記「サンプルVBAソース」をセルA1 からA5 で実行します。
保存したブックを開いて「サンプルVBAソース」をセルB1 からB5 で実行した結果
Randmize ステートメントを実行して乱数ジェネレータを初期化した後に、Rnd 関数 を実行したため、A 列、B 列の数値が変わりました。
乱数シード値を設定しない場合は、実行結果は常に一定となります。
（ ⇒ Rnd 関数使用例２を参照）
関連記事
-
-
RGB 値一覧表（XlRgbColor 列挙型）
RGB 値（XlRgbColor 列挙型）一覧表 RGB 関数を使用して、出力さ …
-
-
日付時刻：数値から日付・時刻データを取得（ DateSerial 関数、TimeSerial 関数 ）
DateSerial 関数（数値を使って日付データを取得） 【書式】 date …
-
-
文字列：文字列を指定した形式に変換する（StrConv 関数）
StrConv 関数の使い方 【書式】 result = StrConv ( s …
-
-
VBA の演算子（比較演算子）
比較演算子 比較演算子による演算の結果は「真」の場合は「True」、「偽」の場合 …
-
-
文字列：文字列を検索してその最初の文字位置を返す（InStr 関数,InStrB 関数）
InStr 関数・InStrB 関数の使い方 【書式】 result = { I …
-
-
フォント名（Name,ThemeFont,StandardFont）
フォント名を取得・設定する（Name プロパティ） Name プロパティは、オブ …
-
-
ある数値が、複数の範囲のどの範囲に含まれるかを示す文字列を返す（Partition 関数）
Partition 関数 の使い方 Partition 関数は、ある数値が、区切 …
-
-
ユーザー設定リストを使って並べ替える（Sort）
VBAでリスト、テーブルを並べ替える（Sort） VBAで、ソートを行うには、S …
-
-
コレクション（Collection）オブジェクト「連想配列」
コレクション（Collection）オブジェクトの使い方 【書式】 Dim my …
-
-
連想配列（Dictionary オブジェクト）
連想配列 連想配列とは、添字（キー）に文字列を使用することができる配列です。 V …