Excel VBA質問箱 IV

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

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


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

39017 / 76732

←次へ　｜　前へ→


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

まーくん - 06/9/23(土) 1:23 -


	引用なし

	パスワード

▼Blue さん：
ありがとうございます。
うまくいきました。
申し訳ないですが
[#42829]　の疑問わかりますか？

>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