|
▼かみちゃん さん:
下記標準モジュールに書込オープンさせるたびに
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
|
|