5分間隔で処理実行
ステップ1 ・・・ EXCELを起動する。
ステップ2 ・・・ VBEに以下のように入力する。
ステップ3 ・・・ Macro1を実行する。
変更するポイントは
PauseTime = 300 ・・・ 秒で指定します。1分なら60に変更。
Sub メイン処理 ・・・ 行わせたい処理内容に変更。
For lp = 1 To 10 ・・・ 試しに10回にしています。回したいだけ回す。
最後に、Timer関数は日付をまたぐとうまく動作しませんのでご注意ください。
Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim lp As Integer
Sub Macro1()
Dim PauseTime, Start
PauseTime = 300
For lp = 1 To 10
Start = Timer
Call メイン処理
Do While Timer < Start + PauseTime
DoEvents
Call Sleep(1)
Loop
Next lp
End Sub
Private Sub メイン処理()
Cells(lp, 1).Select
Cells(lp, 1) = Now()
Selection.NumberFormatLocal = "h""時""mm""分""ss""秒"""
End Sub