2017年10月20日 星期五

Application.OnTime 設定開啟與停止

手邊處理一個跟 Application.OnTime 時間循環有關的問題，順道記錄一下。
Application.OnTime 在MSDN上有說明一個屬性Schedule，當為True時，建立一個新的定時器剛為False時，取消上一次設定的定時器，為什麼要特別舉例說明，原因是要取消一個未設定的時間定時器，Application.OnTime將會發生錯誤，舉以下例子說明。
Dim dNextTime As Date

Sub StartTimer()

    dNextTime = DateAdd("s", 1, Now)
    
    Cells(2, 1).Value = Now
    Cells(2, 1).NumberFormatLocal = "yyyy/m/d hh:mm:ss"
    
    Cells(3, 1).Value = dNextTime
    Cells(3, 1).NumberFormatLocal = "yyyy/m/d hh:mm:ss"
    
    Application.OnTime dNextTime, "StartTimer"

End Sub

Sub StopTimer()
    Application.OnTime Now(), Procedure:="StartTimer", Schedule:=False
End Sub

使用以上的程式碼，當停止按鈕按下後，執行StopTimer函數，即會出現以下錯誤對話框。

原因為StopTimer函數去關閉一個未經設定的 Now() 時間定時器，系統隨即出現錯誤。
若將StopTimer函數改為以下程式碼，這樣Application.OnTime 就可以去關閉一個已存在的時間定時器，如此才不會出現錯誤。
Sub StopTimer()
    Application.OnTime dNextTime, Procedure:="StartTimer", Schedule:=False
End Sub
執行狀態：

參考資料：

於