OnTimeメソッド｜ExcelマクロVBA入門

最終更新日：2019-07-21

第120回.OnTimeメソッド

指定された時刻にマクロを実行させたい時、
今から一定時間後にマクロVBAを実行させたい時、
このような時に使うのが、OnTimeメソッドです。

お昼になったらExcelが教えてくれたり、
1時間経ったらExcelが教えてくれるといったことが、このOnTimeメソッドを使用するで実現出来ます。

OnTimeメソッドの構文

指定された時刻 (特定の日時、または特定の期間の経過後) にプロシージャを実行します。
指定時刻になるまで、OnTimeメソッドを実行したブックが開いたままになっている必要があります。
OnTimeメソッドは、Applicationのメソッドです。
Application.OnTime(EarliestTime, Procedure, LatestTime, Schedule)

EarliestTime	プロシージャを実行する時刻を指定します。
Procedure	実行するプロシージャ名を指定します。
LatestTime	プロシージャを実行できる最終時刻を指定します。たとえば、引数 LatestTime に、引数 EarliestTime で設定した値 + 30 を設定します。引数 EarliestTime に指定した時刻にはほかのプロシージャを実行しているため、Excel は待機、コピー、切り取り、または検索のいずれのモードでもないとします。その場合、Excel は実行中のプロシージャが終了するまで 30 秒間待ちます。 30 秒以内に Excel が待機モードにならないとき、指定したプロシージャは実行されません。この引数を省略すると、Excel はプロシージャが実行できるまで待ちます。
Schedule	新しい OnTime プロシージャを設定するには、True を指定します。直前のプロシージャの設定を解除するには、False を指定します。既定値は True です。

現在の時刻から指定した特定の時間が過ぎてから、処理を実行させるときは、Now + TimeValue(time) を使います。
指定した特定の時刻に処理を実行させるときは、TimeValue(time) を使います。

OnTimeメソッドの使用例

17時に実行します。


  
    
      Application.OnTime TimeValue("17:00:00"), "実行するプロシージャー名"

5秒後に実行します。


  
    
      Application.OnTime Now + TimeSerial(0, 0, 5), "実行するプロシージャー名"

引数を渡して、5秒後に実行します。


  
    
      Sub sample1()

      　　Application.OnTime Now + TimeValue("00:00:05"), "'sample2 ""時間ですよ""'"

      End Sub


      Sub sample2(ByVal strMsg As String)

      　　MsgBox strMsg

      End Sub

OnTimeで呼び出すプロシージャーに引数を渡しています。
全体をシングルクォーテーション(')で囲み、引数をダブルクォーテーション(")で囲みます。

OnTimeメソッドの実践例

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

エクセル作業に夢中になって、時間を忘れて大慌てって事ありませんか。えっ、無い、そうですか、ではさようなら… あると言う人は以下のプログラムをどうぞ。まず、このようなシートを作ります。そして、標準モジュールに以下を追加します。

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

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

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

VBAでタイマー処理（一定時間間隔で処理）を行う方法についての解説です。最も一般的な方法はApplication.OnTimeを使う方法になりますが今回の主題としてはWindowsAPIのSetTimerを紹介します。まずはApplication.OnTimeの確認してから次にWindowsAPIのSetTimerを紹介します。

クラスとイベントとマルチプロセス並列処理

エクセルVBAではマルチスレッドによる並列処理はサポートされていません、つまり通常は順序良く直列に処理していくしかありません。しかし処理時間が多大にかかるような処理も現実には存在しているため、エクセルVBAで並列処理したいという要望も出てきます。