VBAでのタイマー処理（SetTimer,OnTime）

最終更新日：2019-04-03

VBAでのタイマー処理（SetTimer,OnTime）

マクロ VBA Timer

VBAでタイマー処理（一定時間間隔で処理）を行う方法についての解説です。

最も一般的な方法は、Application.OnTimeを使う方法になりますが、
今回の主題としては、WindowsAPIのSetTimerを紹介します。

まずはApplication.OnTimeの確認してから、
次にWindowsAPIのSetTimerを紹介します。

以下のサンプルを実行するときは、他のExcelブックは閉じておいてください。
特にSetTimerの実行時は、Excel強制終了に巻き込まれないように注意してください。
そういう危険性もあるということを承知の上で実行してください。

Application.OnTime メソッド

基本的な使い方については以下を参照してください。

第120回.OnTimeメソッド

指定された時刻にマクロを実行させたい時、今から一定時間後にマクロを実行させたい時、このような時に使うのが、OnTimeメソッドです。お昼になったらExcelが教えてくれたり、1時間経ったらExcelが教えてくれるといったことが、このメソッドで実現出来ます。

文字列としてのプロシージャー名を起動する方法（Run,OnTime）

文字列変数の中にプロシージャー名が入っていて、そのプロシージャーを起動したい場合になります、実際には、そのような構造が良いとは思えませんが、知っていればプログラミングの幅が広がります。使うのは、OnTimeメソッドorRunメソッドになります。

時刻になったら音を鳴らして知らせる（OnTime）

では、サンプルになります。

Option Explicit

Public mOnTime As Date

Sub TimerProc()
　Range("A1") = Now()
End Sub

Sub OnTimeStart()
　　Call TimerProc
　　mOnTime = Now() + TimeSerial(0, 0, 1)
　　Call Application.OnTime(mOnTime, "OnTimeStart")
End Sub

Sub OnTimeStop()
　　'同一のProcedureとEarliestTimeがないとエラーになる
　　On Error Resume Next
　　Call Application.OnTime(mOnTime, "OnTimeStart", , False)
End Sub

プロハージャー「OnTimeStart」を実行すると、
アクティブシートのA1セルに日時が1秒ごとに更新されて表示されます。
普通のデジタル時計です。
これが実行されている間も、他のExcel作業は普通に行えます。

ただし、注意深く良く見てください。
カーソルがチカチカしていないでしょうか。
僅かで一瞬ですがウエイトカーソルになっているのが確認できるはずです。
どうも嫌ですよね。（まあ、気分の問題ですけど…）

確認したら、プロハージャー「OnTimeStop」でタイマー処理を終了しておいてください。

WindowsAPI:SetTimer関数

まずはサンプルコードから

Option Explicit

Public Declare PtrSafe Function SetTimer Lib "USER32" _

　　　　　　　　　　　　　　　　　　　　(ByVal hwnd As Long, _
　　　　　　　　　　　　　　　　　　　　ByVal nIDEvent As Long, _
　　　　　　　　　　　　　　　　　　　　ByVal uElapse As Long, _
　　　　　　　　　　　　　　　　　　　　ByVal lpTimerFunc As LongPtr) As Long
Public Declare PtrSafe Function KillTimer Lib "USER32" _
　　　　　　　　　　　　　　　　　　　　(ByVal hwnd As Long, _
　　　　　　　　　　　　　　　　　　　　ByVal nIDEvent As Long) As Long

Public mTimerID As Long

Sub TimerProc()
　　If mTimerID = 0 Then End '終了できない時の対策
　　On Error Resume Next 'デバッグ出すとExcelが固まるので
　　Range("A1") = Now()
End Sub

Sub TimerStart()
　　If mTimerID <> 0 Then
　　　　MsgBox "起動済です。"
　　　　Exit Sub
　　End If
　　mTimerID = SetTimer(0&, 1&, 1000&, AddressOf TimerProc)
End Sub

Sub TimerStop()
　　Call KillTimer(0&, mTimerID)
　　mTimerID = 0
End Sub

引数の説明

hWnd	タイマーに関連付けるウィンドウのハンドル
nIDEvent	タイマーID(任意の値、0以外)
uElapse	タイマーの間隔（ミリ秒単位1/1000秒）
lpTimerFunc	タイマーのコールバック関数のポインタを指定

戻り値

戻り値は関数が成功すると新しいタイマIDが返され、失敗すると 0 が返ります。

注意点

Aイマー起動したプロシージャーでデバッグが出てしまうような事があると、
エクセルが操作不能になったり、
Excelそのものを終了しても勝手にExcelが立ち上がってしまったり、
いろいろとめんどうな事が起こったりします。

上記掲載のコードでは、これらに対応して、
If mTimerID = 0 Then End '終了できない時の対策
On Error Resume Next 'デバッグ出すとExcelが固まるので
これらを一応入れていますが、テスト過程では決して過信しないでください。
最悪、Windowsを終了しても良いくらいのつもりで実行してもらえれば問題ありませんが、
少なくとも、Excelはタスクを終了しても良いつもりで実行してください。。
もちろん、ちゃんとVBAを書けばちゃんと動きます。

Application.OnTimeと違い、そもそもタイマー処理機能のAPI関数ですので、
1回起動すると、その後は指定間隔ごとにプロシージャーが起動されます。
このタイマーを止めるものが、KillTimer関数になります。

プロシージャー「TimerStart」を実行すると、
アクティブシートのA1セルに日時が1秒ごとに更新されて表示されます。
OnTimeと違って、カーソルがチカチカしないはずです。
動いていることを意識できないくらいスムーズに動作している事が確認できると思います。