| |
>パソコン（エクセル）２４時間３６５日立ち上がっています。
ということなら、OnTimeメソッドを使ったコードで出来ます。
今からAM6:00にセットしたのでは、動作をチェックできませんから、
テスト用のコードを提示します。
Sub Sc_MyMacro()
Application.OnTime TimeValue("17:55:00"), "Test1"
End Sub
Sub Test1()
MsgBox Format(Time, "hh:mm:ss")
End Sub
これを標準モジュールに入れ、OnTime の引数の時刻を
「24時間表現で現在から2〜3分後」に書き直して、Sc_MyMacroを
実行して下さい。指定した時刻に、その時刻をメッセージできたら
成功です。本番では時刻設定の引数を TimeValue("06:00:00") に
変更し、次の引数"Test1"を、実行したいマクロのタイトルに変更
してSc_MyMacroを実行するだけです。スケジュールを破棄したいときは
Sub Sc_Stop()
Application.OnTime TimeValue("06:00:00"), "マクロ名", , False
End Sub
を実行します。もちろんマクロ名は、そちらで設定した実際のマクロタイトル
に変更します。
|
|
Kein
- 06/11/29(水) 17:50 -
