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

公開日：2019-04-03　最終更新日：2020-02-17

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

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

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

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

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

Application.OnTime メソッド

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

第120回.OnTimeメソッド

・OnTimeメソッドの構文・OnTimeメソッドの使用例・OnTimeメソッドの実践例

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

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

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

・作成するシート・標準モジュールのVBAコード・VBAコードの解説・ビープ音を変更したい場合・時刻になったら音を鳴らして知らせる最後に

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


  
    
      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を書けばちゃんと動きます。

必ず、TimerStopのKillTimerを起動して終了してください。
これで停止させずにExcelを閉じた場合、非表示状態のExcelがタスクに残る場合があります。
新たにエクセルを起動できなくなった等の現象になった場合は、タスクマネージャーを確認してください。

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

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

最後に

今回は、タイマー処理をVBAに実装する場合のごく簡単な紹介でした。

さすがに、サンプルコードのようなセルに時刻を出力することは無いとは思いますが、、、
タイマー処理自体はプログラミングとしては普通の事ですので、知識としては覚えておくこと良いでしょう。

いつかタイマー処理が必要になった時に本記事を思い出してもらえれば良いと思います。

同じテーマ「マクロVBA技術解説」の記事

ドキュメントプロパティ（BuiltinDocumentProperties,CustomDocumentProperties）

・組み込みドキュメントプロパティ（BuiltinDocumentProperties）・組み込みドキュメントプロパティを一覧出力・組み込みドキュメントプロパティの値を変更する・組み込みドキュメントプロパティを消去する・・ユーザー設定のドキュメントプロパティを一覧出力・ユーザー設定のドキュメントプロパティを追加する・ユーザー設定のドキュメントプロパティを削除する

VBAでファイルを既定のアプリで開く方法

・実行テストメイン・Shell関数・batファイル（コマンドプロンプト）・WScript.Shell ・Shell.Application ・FollowHyperlink ・最後に

Excelアドインの作成と登録について

・Excelアドインについて・アドインファイルのフォルダ・アドインの作り方・アドインの登録と有効化・・アドインで保存するVBA ・アドインを登録するVBA ・アドインを有効化するVBA ・登録されているアドインを確認するVBA ・アドインマネージャーを表示するVBA ・アドイン配布時に自動登録するVBA ・個人用マクロブックについて

VBAでのタイマー処理（SetTimer,OnTime）
マクロでShift_JIS文字コードか判定する

・文字コードについて・UnicodeにあってShift_JISにない文字の具体例・シート構成・配列数式での判定・Shift_JIS文字コードか判定するマクロVBA全コード・最後に

Byte配列と文字コード関数について

・文字列をByte配列に入れる・文字コードについて・文字列をByte配列に入れて、文字列に戻す・文字列をByte配列に入れて、自力で文字列に戻す・文字列をSJISに変換してからByte配列にいれて、自力で文字列に戻す・最後に

Applicationを省略できるApplicationのメソッド・プロパティ一覧

・Applicationを省略できるかどうかの確認・Applicationを省略できるApplicationのメソッド一覧・Applicationを省略できるApplicationのプロパティ一覧・最後に一言

PowerQueryの強力な機能をVBAから利用する方法

・説明に使用するデータ・PowerQueryの操作方法・PowerQueryのマクロの記録・PowerQueryのVBA文法・PowerQueryの機能を利用したマクロVBA ・PowerQueryについて

ShapesとDrawingObjectsの相違点と使い方

・Shapes コレクション・DrawingObjects コレクション・ShapesとDrawingObjectsの相違点・DrawingObjectsの便利な使い道・最後に・図形オートシェイプ（Shape）に関連する記事

新規挿入可能なシート名の判定

・シート名として使える文字列か判定・シートの存在確認：存在すればシートのオブジェクトを返す・シートの挿入：存在すればシートのオブジェクトを返す

VBAにおける配列やコレクションの起点について

・配列の起点について・コレクション・Collectionオブジェクト・その他：文字列関数・配列の起点の原則

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.RangeとCellsの使い方｜VBA入門
4.ひらがな⇔カタカナの変換｜エクセル基本操作
5.繰り返し処理（For Next)｜VBA入門
6.変数宣言のDimとデータ型｜VBA入門
7.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
8.並べ替え（Sort）｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.Findメソッド（Find,FindNext,FindPrevious）｜VBA入門

ホーム
マクロVBA応用編
マクロVBA技術解説
VBAでのタイマー処理（SetTimer,OnTime）

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

VBA技術解説
VBAでのタイマー処理（SetTimer,OnTime）