|
▼かみちゃん さん:
>
>>ユーザーフォームを時間が来たら立ち上げ数秒後閉じる。
>
>どこのサイトをどのように参考にされたのか知りませんが、以下のURLは参考になりますでしょうか?
>http://park11.wakwak.com/~miko/Excel_Note/11-01_userform.htm#11-01-14
ありがとうございます。
上記サイトにて新規bookで実行するとOKなのですが
プロテクトのかかっているのがわるいのか動作しません。
[#42876]のデータに組み込みたいと考えています。
お助け下さい。
下記までは問題なく動くのですが
Sub Auto_Open()
Dim MyR As Range
Randomize ' 乱数発生ルーチンを初期化します。
Select Case Int(100 * Rnd + 1)
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
よろしくお願いします。
|
|