Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

39018 / 76732

←次へ　｜　前へ→


	【42835】Re:MsgBoxをランダムに表示できるかな

Blue - 06/9/23(土) 1:12 -


	引用なし

	パスワード

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)
(略)

0 hits

▼

【42826】MsgBoxをランダムに表示できるかな まーくん 06/9/22(金) 22:38