時計による一定時間ごとに起動させるには

質問

素人です。誰か教えてください。
sub Macro1()
　range("E65536").end(xlup).offset(1).resize(1, 4).value = range("A1:D1").value
　if range("E65536").end(xlup).row > 30 then　’31行に到達してから１行目を削除する
　　range("E1:H1").delete shift:=xlshiftup
　end if
　application.ontime now + timeserial(0, 30, 0), "Macro1"
end sub
というマクロなのですが
これを時計により00分と30分（例えば10時、10時半、１１時、１1時半、、、）
というふうに起動させるにはどうしたらいいでしょうか？

回答No.2

keithin · ベストアンサー

変更前：
application.ontime now + timeserial(0, 30, 0), "Macro1"

変更後：
application.ontime application.floor(now, timeserial(0, 30, 0)) + timeserial(0, 30, 0), "Macro1"

お礼

いつもありがとうございます！
もう頭があがりません！

回答No.1

maiko0318

マクロはさっぱりなんで、考え方だけ、

まず、時刻が00、30分だったら○○する・・・と書いてはいけません。

時刻が00、30分で実行したあと、次の00、30分を待った時、まだ１分にはなりません。
ので、また処理が走ってしまいます。

ので、
（最初のみ）フラグをオフにする（例えばa=0、どこかのセルに記憶する)
そしてループして
　時刻が00、30分だったらフラグを立てる(a=1)、で実行する。
　時刻が01、31分になったらフラグをオフにする(a=0)。

お礼

確かにおっしゃる通りめちゃめちゃ荒ぶってます！
まともに動かなくなってしましました！
参考になります！