建議金字塔增加Application.OnTime功能

作者：金字塔來源：cxh99.com 發布時間：2021年01月16日

咨詢內容： 請教：建議金字塔增加Application.OnTime功能，方便VBA程序降低系統消耗，每隔一定時間運行一次軟件。目前金字塔只有Application.setTimer

Sub?macro_timer()

'Tells?Excel?when?to?next?run?the?macro.
Application.OnTime?Now?+?TimeValue("00:00:1"),?"my_macro"

End?Sub

Sub?my_macro()
'Macro?code?that?you?want?to?run.
MsgBox?"This?is?my?sample?macro?output."

'Calls?the?timer?macro?so?it?can?be?run?again?at?the?next?interval.
Call?macro_timer

End?Sub
?
?來源: CXH99.COM
金字塔客服： 這個和計時器有啥區別呢
?
用戶回復： 區別是：計時起點不一樣。計時器是從程序啟動開始計時，比如計時器是5秒，然后執行一次代碼，如果這段代碼運行的時間是3秒，下一次執行就是2秒以后。而Application.OnTime函數，Application.OnTime?Now?+?TimeValue("00:00:05"),?"my_macro"?設定的是在這段代碼完成后，比如在目前時間基礎上增加5秒鐘，5秒到了之后再開始運行代碼。計時器是一開始程序就運行著，始終沒有停止過。而Application.OnTime函數是到了時間才運行。我的理解是這樣的，不知是否正確。