|
VBEへ新規に標準モジュールを挿入し、その先頭から以下のマクロを入力してください。
Private MyTime As Date
Sub Macro2()
MyTime = TimeSerial(1,0,0)
Application.OnTime MyTime, "Macro1"
End Sub
Sub Macro1()
MsgBox "OnTimeで呼び出されました !" '←任意のコードに変更
MyTime = MyTime + TimeValue("1:00:00")
Application.OnTime MyTime, "Macro1"
End Sub
Sub Auto_Close()
Application.OnTime MyTime, "Macro1", , False
End Sub
なおテストする際は、Macro2の MyTime に値を入れるコードでは
MyTime = TimeSerial(13,12,0)
などと「現在時刻より1〜2分後の時刻を指定」し、Macro1では
MyTime = MyTime + TimeValue("00:01:00")
というように、1分後の時刻を設定するコードに変更してみて下さい。
それにより、1時間のインターバルを1分に短縮してテストすることができます。
|
|