ExcelVBA(マクロ)でランダムな数（乱数）を作る方法/Rnd、Randomizeの使い方

まずrndの後に0より大きい数字を入れて、MsgBoxで結果を表示してみます。小数でもOKです。

すると毎回このように、

0以上1未満のランダムな数値（乱数）が表示されます。

数字の大きさは関係なく、0より大きければ全て同様に挙動します。

また、数値を省略した場合も同様に毎回ちがう乱数を作成します。

引数が0でRndメソッドを実行すると、前回Rndで表示したのと同じ数を表示します。

数値がマイナスの場合は、数値ごとに固定された数が出ます。同じ数値であれば何回実行しても同じ数です。

数値が変わればちがう乱数が表示されます。

ここからまた数値を0にすると、やっぱり前回と同じ数値が出ます。

' vba
Randomize
ActiveCell.Value = Rnd

ここまでは省略していますが、Rnd関数を使う時は、基本的にRandmizeステートメントをその前に付けます。数値は勝手に入るので省略してOKです。
Randmizeはシード値を更新する命令で、シード値は乱数を生成する元となる数値です。シード値が同じであれば、Rndは同じ乱数テーブルを繰り返します。

例として、まずブックを開き、

' vba
ActiveCell.Value = Rnd

Randomizeを使用しないで、Rnd関数をセルに代入するマクロを実行します。

A5まで繰り返し、

上書き保存して、一度ブックを閉じます。

もう一回同じブックを開き、今度はB1からB5まで同じマクロを実行します。

シード値は更新されておらず、ブックを開き直したので、同じ乱数テーブルが繰り返されます。
こういうことが起きないようにするのがRandomizeの役目です。

ワークシート関数のほうのRndと同じ方法で、指定範囲内の数値を求めることができます。

たとえば3～10の整数をランダムに求める場合、

' vba
Randomize
Range("A1").Value = Int(8 * Rnd + 3)

コードはこうなります。
Int(m * Rnd + n)で、数字nから(n+m-1)までの整数を求めることができます。