概要：VBAにおける乱数生成の基本とRnd関数の立ち位置
Excel VBAでプログラムを組む際、「予測不能な値」を生成することは、シミュレーション、テストデータの作成、ゲーム制作、あるいはサンプリング処理など、多岐にわたる場面で不可欠なスキルです。その中心となるのが「Rnd関数」です。
Rnd関数は、0以上1未満の範囲で、単精度浮動小数点型（Single型）の擬似乱数を生成する関数です。VBAには他に「Randomizeステートメント」という対となる機能が存在しますが、これらを正しく理解せずに使うと、プログラムを実行するたびに同じ数値パターンが繰り返されるという「乱数の罠」に陥ります。本記事では、Rnd関数の仕様を深く掘り下げ、実務で安心して使えるコードの書き方をプロの視点で徹底解説します。
詳細解説：Rnd関数の挙動と内部ロジック
Rnd関数は、引数として数値を一つ受け取りますが、この値によって生成される乱数の挙動が明確に異なります。
1. 引数が負の数：常に同じ乱数を返します。これは「シード値（乱数の種）」を指定する行為に相当します。
2. 引数が0：直前に生成された乱数を再び返します。
3. 引数が正の数、または省略：シーケンス内の「次の」乱数を返します。
ここでの重要ポイントは、Rnd関数が「擬似」乱数であるという点です。コンピュータは純粋な偶然を作り出すことはできません。計算式によって「偶然のように見える数列」を生成しているのです。そのため、何も対策をしない場合、VBAを起動するたびに生成される数列は常に一定となります。これを回避し、真の意味での乱数を得るために「Randomizeステートメント」が必要となります。
Randomizeは、システムタイマーの値を使って乱数のシードを初期化します。これにより、プログラムを実行するたびに異なる乱数列が生成されるようになります。
サンプルコード：実務で使える乱数生成テクニック
単にRndを呼び出すだけではなく、実務では「特定の範囲の整数」を求めるケースが圧倒的に多いです。以下のコードは、最小値と最大値を指定して乱数を取得する汎用関数です。
' 指定した範囲内のランダムな整数を返す関数
Function GetRandomInt(ByVal Min As Long, ByVal Max As Long) As Long
' 毎回異なる値を出すために必須
Randomize
' Rndは 0 <= Rnd < 1 を返す
' (Max - Min + 1) を掛けて範囲を広げ、Intで切り捨てる
GetRandomInt = Int((Max - Min + 1) * Rnd + Min)
End Function
' 使用例
Sub TestRandom()
Dim i As Long
' 1から100までの乱数を10個出力する
For i = 1 To 10
Debug.Print GetRandomInt(1, 100)
Next i
End Sub
上記のコードでは、なぜ `(Max - Min + 1)` という計算が必要なのか。これは、範囲の「幅」を計算し、そこにRnd（0〜0.999...）を掛けることで、目的の数値範囲を網羅するためです。`Int`関数は小数点以下を切り捨てるため、これによって均一な確率で整数を取得することが可能になります。
実務アドバイス：乱数使用時の注意点とベストプラクティス
ベテランの視点から、現場でよくある失敗と対策を共有します。
1. Randomizeの配置場所
よくある間違いが、ループの中で毎回Randomizeを呼び出してしまうケースです。Randomizeは重い処理ではありませんが、ループ内で何度も呼ぶと、システムタイマーの精度によっては同じシードが連続して設定され、逆に乱数の質が落ちる可能性があります。Randomizeは、乱数を使う処理の「直前」に一度だけ呼ぶのが鉄則です。
2. 重複排除の必要性
抽選や並び替えで「重複を許さない」場合、単なるRndでは不十分です。この場合、配列と乱数を組み合わせた「シャッフルアルゴリズム（フィッシャー・イェーツのシャッフル）」を実装するのが正攻法です。乱数でインデックス番号を生成し、配列の要素を入れ替える手法は、非常に高速で効率的です。
3. セキュリティ用途には不向き
Rnd関数はあくまでシミュレーション用の擬似乱数です。暗号化やパスワード生成など、高いセキュリティが求められる用途には絶対に使用しないでください。それらには、Windows API（BCryptGenRandomなど）を介した暗号論的擬似乱数生成器を使用する必要があります。
4. Single型の精度について
Rndは単精度（Single型）を返します。これは約7桁の精度を持ちます。通常の業務レベルであれば問題ありませんが、極めて高い精度が必要な科学計算などでは、Double型への変換や、より高度なアルゴリズムが必要になることを留意してください。
まとめ：Rnd関数をマスターしてプログラムを柔軟に
Rnd関数はシンプルに見えて、その背後には数学的な厳密さと、実務的な注意点が凝縮されています。
- 擬似乱数であることを理解し、Randomizeによる初期化を忘れないこと。
- 範囲指定の計算式はテンプレート化して関数化すること。
- 必要に応じて重複排除アルゴリズムを組み合わせること。
これらを押さえるだけで、あなたのVBAプログラムは一段とレベルアップします。テストデータの自動生成や、非決定的な動作が必要なマクロ開発において、Rnd関数は強力な武器となります。ぜひ、日々の業務効率化のためにこの技術を活用してください。
VBAの学習は、こうした標準関数の仕様を深く掘り下げることから始まります。Rnd関数一つをとっても、これだけの奥深さがあるのです。次回の開発では、ぜひ「なぜこのコードを書くのか」という背景を意識しながら、より堅牢なコードを目指してみてください。
