|
Rnd関数のヘルプより
<MSDN>
引数 number の値によって、Rnd 関数が返す乱数が決まります。
初期シード値が変わらない限り、一連の Rnd 関数が返す乱数系列は同じになります。これは、連続する各 Rnd 関数が乱数系列の中の直前の乱数をシード値として、次の乱数をそれぞれ生成するためです。
システム タイマーから取得した新しいシード値を使って、乱数ジェネレータを初期化するには、Rnd 関数を呼び出す前に、引数を指定せずに Randomize ステートメントを実行してください。
</MSDN>
「Randomizeステートメントを実行してください」とのことです。
つまり
>Sub Auto_Open()
> Dim lowerbound As Integer
> Dim upperbound As Integer
>
> lowerbound = 1
> upperbound = 100
>
'☆追加
Randomize ' 乱数発生ルーチンを初期化します。
> Select Case Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
(略)
|
|