[[20041130160151]]　『指定時刻にVBAを実行させる』（MARU）　ページの最後に飛ぶ

『指定時刻にVBAを実行させる』（MARU）

指定時刻になったらあるマクロを実行させる場合、
Sub Set_Timer()
' 00:30:00に以下の処理を自動実行する
Application.OnTime TimeValue("00:30:00"), "集計処理", TimeValue("00:35:00")
Application.OnTime TimeValue("00:40:00"), "集計処理1", TimeValue("00:45:00")
End Sub
Sub 集計処理()

中略
End Sub

でいいと思ったのですが、うまく起動しませんでした。

どなたか　こ教示頂けると助かります。

宜しくお願いいたします。

 ヘルプのOnTime 使用例のように　Now を用いてください。
 集計処理のなかで、集計処理を再度OnTimeすればできます。
 (INA)

INAさん　早速の回答ありがとうございます。
ﾍﾙﾌﾟ見て作成してみます。

ところで、初心者的質問になってしまいますが、
(自動実行ってはじめてなんで。。。)
VBAは実行させてないといけないのですかね??
それとも、このVBAを組んだｴｸｾﾙさえ立ち上げておけば
(表を開いておけば)自動的にVBAが実行するんですかね???

それと、

集計処理のなかで、集計処理を再度OnTimeすればできます。

これって、集計処理の記述の中にも、
Application.OnTime TimeValue("00:30:00"), "集計処理", TimeValue("00:35:00")
を入れるという事なんでしょうか???

(MARU)

 >VBAは実行させてないといけないのですかね??
 集計処理()を１回実行すれば、その中のOnTimeで一定後に再度
 集計処理()を実行します。以後、ずっと繰り返します。

 >それとも、このVBAを組んだｴｸｾﾙさえ立ち上げておけば
 >(表を開いておけば)自動的にVBAが実行するんですかね???
 実行する必要があります。
 ブックを開いたときに実行させるなら、Openイベントにマクロを記述すればよいでしょう。

 >これって、集計処理の記述の中にも、
 >Application.OnTime TimeValue("00:30:00"), "集計処理", TimeValue("00:35:00")
 >を入れるという事なんでしょうか???
 ３０分ごとであれば、
 Application.OnTime  Now + TimeValue("00:30:00"), "集計処理"
 です。

  (INA)

コメント返信：

[ 一覧(最新更新順) ]

[[20041130160151]] 『指定時刻にVBAを実行させる』（MARU） ページの最後に飛ぶ

[[20041130160151]]　『指定時刻にVBAを実行させる』（MARU）　ページの最後に飛ぶ