Excel VBA質問箱 IV

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

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


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

38991 / 76732

←次へ　｜　前へ→


	【42862】Re:エクセルで作業中MsgBox表示

まーくん - 06/9/23(土) 15:41 -


	引用なし

	パスワード

▼まーくんさん：
▼ハチさん：
▼ichinoseさん：
見よう見まねで下記作ってみたのですが
時間に表示はするのですが10秒経過したら閉じて
作業中のシートをアクティブにするをやりたいのですがうまくいきません。
またコードを少しシンプルにしたいのですが出来るでしょうか。
よろしくお願いします。

Option Explicit
Sub Auto_Open()
　　Application.OnTime TimeValue("08:35:00"), "おはようございます"
　　Application.OnTime TimeValue("11:55:00"), "そろそろ昼食の時間です"
　　Application.OnTime TimeValue("15:10:00"), "こんにちわ"
　　Application.OnTime TimeValue("15:15:00"), "休憩終了です"
　　Application.OnTime TimeValue("16:30:00"), "終了時間です"
End Sub

Sub おはようございます()
　　MsgBox "おはようございます"
　　Application.Wait Now + TimeValue("00:00:10")
End Sub
Sub こんにちわ()
　　MsgBox "こんにちわ"
　　Application.Wait Now + TimeValue("00:00:10")
End Sub
Sub そろそろ昼食の時間です()
　　MsgBox "そろそろ昼食の時間です"
　　Application.Wait Now + TimeValue("00:00:10")
End Sub
Sub 休憩終了です()
　　MsgBox "休憩終了です"
　　Application.Wait Now + TimeValue("00:00:10")
End Sub
Sub 終了時間です()
　　MsgBox "終了時間です"
　　Application.Wait Now + TimeValue("00:00:10")
End Sub

0 hits

▼

【42838】エクセルで作業中MsgBox表示 まーくん 06/9/23(土) 1:45