【Excel VBA】もう時計は見なくてOK！「一定時間おき」に自動実行するコードと活用術

【業務効率化】VBA

2026.09.10

【目次】

「Application.OnTime」で時間をコントロールする
【コピペでOK】一定時間おきに実行するコード
使う時の注意点

「Application.OnTime」で時間をコントロールする

Excel VBAには、指定した時刻にプログラム（プロシージャ）を実行するApplication.OnTimeという非常に便利なメソッドがあります。

これを使えば、例えば「10分おきにファイルを保存する」あるいは「毎朝9時に昨日の集計を行う」といった設定も簡単に実現できます。

【業務効率化】VBAの記事を見る

【コピペでOK】一定時間おきに実行するコード

以下のコードをVBAのエディタ（Alt + F11）に貼り付けてみてください。今回は「5分おきにメッセージを出す」というシンプルな例です。

Dim NextTime As Date ' 次の実行時刻を保持する変数

' 自動実行を開始するボタン用
Sub StartTimer()
    ' 現在時刻の5分後に設定（時, 分, 秒）
    NextTime = Now + TimeSerial(0, 5, 0)
   
    ' 指定した時刻に「MyProcess」を実行するよう予約
    Application.OnTime NextTime, "MyProcess"
   
    MsgBox "5分おきの自動実行を開始しました。"
End Sub

' 実際に動かしたい処理
Sub MyProcess()
    ' ここに実行したい内容を書く（例：セルに現在時刻を入力）
    Cells(1, 1).Value = "最終更新: " & Now
   
    ' 【重要】自分自身を再度予約することで「繰り返し」にする
    NextTime = Now + TimeSerial(0, 5, 0)
    Application.OnTime NextTime, "MyProcess"
End Sub

' 自動実行を止めたいとき用
Sub StopTimer()
    On Error Resume Next
    ' 予約していた時刻の実行を取り消す
    Application.OnTime NextTime, "MyProcess", , False
    MsgBox "自動実行を停止しました。"
End Sub

まずはTimeSerial(0, 0, 5)にして、5秒ごとの自動実行で試していただくと実際の挙動を手早く確認できると思います。