| |
▼まーくん さん：
▼ハチ さん：
▼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
|
|
まーくん
- 06/9/23(土) 15:41 -
