|
現在下記の様に3つのマクロを1分ごとに動かしています。
これに1時間ごとに動くマクロを追加したいのですが上手くいきません。
宜しくお願いします。
Sub マクロを1分おきに動作()
On Error Resume Next
Application.OnTime Now + TimeValue("00:01:00"), "マクロ1", , False
Application.OnTime Now + TimeValue("00:01:00"), "マクロ1"
Application.OnTime Now + TimeValue("00:02:00"), "マクロ2", , False
Application.OnTime Now + TimeValue("00:02:00"), "マクロ2"
Application.OnTime Now + TimeValue("00:03:00"), "マクロ3", , False
Application.OnTime Now + TimeValue("00:03:00"), "マクロ3"
End Sub
Sub マクロ1()
Application.Run "testlate1.xls!ボタン1分"
End Sub
Sub マクロ2()
Application.Run "testlate1.xls!ボタン2分"
End Sub
Sub マクロ3()
Application.Run "testlate1.xls!ボタン3分"
End Sub
マクロを1分おきに動作
End Sub
|
|