Excel VBA質問箱 IV

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

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


38872 / 76732 ←次へ | 前へ→

【42987】Re:ユーザフォームを時間が来たら表示数秒後クローズ
発言  まーくん  - 06/9/28(木) 18:27 -

引用なし
パスワード
   ▼かみちゃん さん:
>
>>ユーザーフォームを時間が来たら立ち上げ数秒後閉じる。
>
>どこのサイトをどのように参考にされたのか知りませんが、以下の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
よろしくお願いします。

0 hits

【42985】ユーザフォームを時間が来たら表示数秒後クローズ まーくん 06/9/28(木) 17:37 質問
【42986】Re:ユーザフォームを時間が来たら表示数秒... かみちゃん 06/9/28(木) 17:45 発言
【42987】Re:ユーザフォームを時間が来たら表示数秒... まーくん 06/9/28(木) 18:27 発言
【42989】Re:ユーザフォームを時間が来たら表示数秒... かみちゃん 06/9/28(木) 18:41 発言
【42993】Re:ユーザフォームを時間が来たら表示数秒... まーくん 06/9/28(木) 19:11 発言
【43009】Re:ユーザフォームを時間が来たら表示数秒... パン 06/9/29(金) 8:56 発言

38872 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free