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