乱数ジェネレータを初期化 (乱数系列を再設定) する（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 関数使用例２を参照）
関連記事
-
-
VBA の演算子（文字連結演算子：& 演算子 + 演算子）
文字連結演算子 文字連結演算子は、文字列の連結を行うときに使用する演算子で、「& …
-
-
日付時刻：日付・時刻の間隔を取得（ DateDiff 関数 ）
DateDiff 関数の使い方 【書式】 result = DateDiff ( …
-
-
VBA の演算子（演算子の優先順位）
演算子の優先順位 演算子の優先順位とは、１つの式の中に演算子が複数ある場合、どの …
-
-
文字列：文字列変数の値を右詰めまたは左詰めにする（RSet ステートメント・LSet ステートメント）
RSet ステートメント・LSet ステートメント 【書式】 ＜ RSet ステ …
-
-
セルのデータを固定長形式で複数のセルに分割する（TextToColumns メソッド・Parse メソッド）
固定長形式でセルを分割 TextToColumns メソッドや Parse メソ …
-
-
ショートカットメニュー（CommandBar オブジェクト）
ショートカットメニュー（コンテキストメニュー） 右クリックで表示されるメニューの …
-
-
データ型を調べて、そのデータ型を示す数値を返す（VarType 関数）
VarType 関数 の使い方 VarType 関数は、引数に、データ型を調べた …
-
-
VBAの変数宣言
VBAの変数宣言について 変数を暗黙的に宣言する エクセル VBA の場合、明示 …
-
-
日付時刻：日付から曜日を取得（ Weekday 関数、WeekdayName 関数 ）
Weekday 関数（日付から曜日を表す数値を返す）の使い方 【書式】 week …
-
-
テキストファイル（UTF-8）を読み込み、書き出し（ADODB.Stream）
Stream オブジェクト ADO（ActiveX Database Objec …