主题：建议金字塔增加Application.OnTime功能

请教：建议金字塔增加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