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

最終更新日：2019-07-17

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

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

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

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

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

Application.OnTime メソッド

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

第120回.OnTimeメソッド

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

文字列としてのプロシージャー名を起動する方法（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 が返ります。

注意点

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

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

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

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