VBA 現在時刻より前に条件文で一致した事を10分以内に繰り返さない記述方法

Question

Dim i As Long
Dim 時間 As Long
省略

Sub timer()
Dim StartTime As Date: StartTime = TimeValue("08:00:00")
Dim TimerInterval As Date: TimerInterval = TimeValue("00:01:00") 

If Time < StartTime Then    
    Application.OnTime StartTime, "timer"
ElseIf Time < TimeValue("09:00:00") Then 
    Call 稼働
    Application.OnTime Now() + TimerInterval, "timer"
・
・
省略
Else
End If

End Sub

Sub 稼働()

For i = 1 To Worksheets.Count
   Sheets(i).Select
  If Range("C3").Value <= Range("C4").Value Then
  If Range("E5").Value >= Range("E6").Value Then
  If Range("H1").Value = "" Then
　　　
　　　Range("H1").Value = sign
　　　時間 = Cells(Rows.Count, "I").End(xlUp).Row + 1
    　Range("I" & 時間).Value = Format(Now(), "Short Time")
Else
End If
Else
End If
Else
End If

Next

End Sub

VBAでFOR文の中でIFで条件分岐させている形なのですが、1分おきにFOR文を起動させています。
このインターバル時間は変更することなく、
同じ条件を繰り返し表示させないため、あるセルを空の状態であればという条件を加えて、それ以降は表記させないようにしています。
これを10分おきに再び同条件が満たせば表示させるようにするには、どういった書き方があるでしょうか？
宜しくお願いします。

Comments

[y_waiwai]

現状のコードを提示しましょう
コードは、質問を編集し、<code>ボタンを押し、出てくる’’’の枠の中にコードを貼り付けてください

Answer 1

情報が少なすぎてよくわかりませんが、
ある条件を満たしたかどうかを保持するグローバル変数を持たせて、
最初はFalseで、FalseのときだけIf文に入り、If文の中でTrueにする、というのではどうでしょうか。

---

＜追記＞
追加説明を読んでもやっぱりよくわかりませんが、こんな感じですか？

    If DateDiff("s", Range("H1").Value, Now()) > 600 Then
      Range("H1").Value = Now()