Exselで１度の実行をせず２回目の時に実行させたい

質問

Exsel 2003で次のようなコードを実行するとき
１５秒ごとに繰り替えし実行されるのですが、１度目は実行せずに２回目に実行したいのですがどうすればよいのですか教えてください。
お願いします。
　　　　Sheets("MAIN").Range("V10:Z98").Copy Destination:=Sheets　　　　("MAIN").Range("V9")
Application.Calculation = xlAutomatic '関数再計算
Application.Calculation = xlManual '関数自動計算の停止

回答No.3

n-jun · ベストアンサー

カウントを取る。（１ずつ）
奇数の時は実行しない。
偶数の時は実行する。
というのでは？

i = i + 1
If i Mod 2 = 0 Then
Debug.Print i, "偶数だよ"
End If

ただしその起動を終了させる条件が不明なので、あくまで参考程度に。

お礼

参考にさせていただいて、実際にやってみて出来ました。
iを何時0に戻すか、ちょっと迷いましたが使えそうです
ありがとうございました。

回答No.2

okormazd

ANo.1です。
訂正です。
frag→flag
ですか。

補足

理屈はわかるのでがflag(フラグ）を立て方がわかりません。すいません具体的に教えてくださいませんか
セルをフラグにして試しては見たのですがうまくいかなかったのです。
よろしくお願いします。

回答No.1

okormazd

適当なfragをたてて、初期値をfalseにし、fragがfalseなら処理を実行せずfragをtrueにし、fragがtrueなら処理を実行してfragをfalseに
するなどにすればよい。
３回目以降のことが書いていないのでコードは書かない。

補足

一回おきの繰り返しです。３回目は実行せずに４回目に実行です。
以降、ANo.1の補足内容になります。