周期的に実行するタイマー
動作：周期的にマクロ Keisan を動作させます。
.Cells(2, 2)に60以上の整数を記入すると次回の実行を中止（Exit Sub）する
.Cells(2, 2)に60以上の整数を記入すると次回の実行を中止（Exit Sub）する
使い方：
.Cells(2, 2)にminuteを表す整数を入れておく。
下記コードをプロシジャー（マクロ） Keisan に記入する。
下記コードをプロシジャー（マクロ） Keisan に記入する。
使う場面： 別のファイルからデータをコピーしデータ分析する。これを10分ごとに繰り返す。
TimePiriod = Trim(Thisworkbook.Sheets(1).Cells(2, 2))
If TimePiriod >= 60 Then
MsgBox "自動運転モードを終了します"
DTTimeStart = 0
Exit Sub
End If
MsgBox "自動運転モードを終了します"
DTTimeStart = 0
Exit Sub
End If
DTTimeStart = Now + TimeValue("00:" & TimePiriod & ":00")
Application.OnTime DTTimeStart, "Keisan"
Application.OnTime DTTimeStart, "Keisan"
'次の実行サイクルを待たずに、すぐに中止させるには下記マクロ
'を実行する
Sub teisi()
Thisworkbook.Sheets(1).Cells(2, 2) = 999
On Error Resume Next
Application.OnTime DTTimeStart, "Keisan", , False
On Error GoTo 0
Application.OnTime DTTimeStart, "Keisan", , False
On Error GoTo 0
End Sub