| |
▼かみちゃん さん：
>
>>ユーザーフォームを時間が来たら立ち上げ数秒後閉じる。
>
>どこのサイトをどのように参考にされたのか知りませんが、以下のＵＲＬは参考になりますでしょうか？
>http://park11.wakwak.com/~miko/Excel_Note/11-01_userform.htm#11-01-14
ありがとうございます。
上記サイトにて新規bookで実行するとＯＫなのですが
プロテクトのかかっているのがわるいのか動作しません。
[#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
よろしくお願いします。
|
|
まーくん
- 06/9/28(木) 18:27 -
