以下VBA的程式是什麼意思？

Question

Sub StartTimer()
DoEvents
Application.OnTime Now + TimeValue("00:00:01"), "StartTimer2", Schedule:=True
End Sub

如果可以的話請解說更清楚一點

Answer 1

DoEvents 函數
暫停執行，以便讓作業系統可以處理其它的事件。

OnTime 方法
安排一個程序在將來的特定時間執行
(既可為某個日期的指定時間，也可為指定的時間之後)。

Schedule 選擇性的 Variant 資料型態。
如果為 True 則安排一個新的 OnTime 程序。
如果為 False 則清除先前設定的程序。預設值為 True。

使用 Now + TimeValue(time) 可安排經過一段時間 (從現在開始計時) 之後執行某個程序。
使用 TimeValue(time) 可安排某個程序只執行指定的時間。

以上面程式為例：
設定 1 秒後執行 StartTimer2 程序，從現在開始計時。

Answer 2

在 VB 中可以用 Timer , 讓美間隔一段時間就run 一段 code
但在 VBA 中並沒有 Timer control, 但是可以用 OnTime 的變通方式來作到
OnTime 就是, 指定一個時間, 在那個時間就會執行後面指定的程序
你的code就是, 每一秒執行一次 Sub StartTime