Excel VBA質問箱 IV

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

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


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

39023 / 76736

←次へ　｜　前へ→


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

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


	引用なし

	パスワード

▼かみちゃんさん：
下記標準モジュールに書込オープンさせるたびに
MsgBoxの表示が変わるはずなのですが
毎回"今日は儲かりました？"
しかでないのですが
コードおかしいですか？

Sub Auto_Open()
　Dim lowerbound As Integer
　Dim upperbound As Integer
　
　lowerbound = 1
　upperbound = 100
　
　Select Case Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
　Case 1 To 10
　　MsgBox "血圧は正常ですか？"
　Case 11 To 20
　　MsgBox "今日のあなたの運勢は○吉です"
　Case 21 To 30
　　MsgBox "今日もお仕事頑張るぞ！"
　Case 31 To 40
　　MsgBox "昨日の夕飯何食べました？"
　Case 41 To 50
　　MsgBox "おとといの朝食はなに？"
　Case 51 To 60
　　MsgBox "今日は儲かりました？"
　Case 61 To 70
　　MsgBox "今日は残業無しで帰りましょう。家族が待ってますよ？"
　Case 71 To 80
　　MsgBox "今日のあなたの運勢は○凶です車の運転は要注意です"
　Case 81 To 90
　　MsgBox "貴方の名前・年齢・血液型は"
　Case 91 To 100
　　MsgBox "お元気ですか？"
　 End Select
End Sub

0 hits

▼

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