应用程序在运行时只能运行一次

下面的代码只在激活时运行，并且这个代码在标准模块1中

Sub Macro1() Calculate End Sub Sub start() Application.OnTime Now + TimeValue("00:00:01"), "Macro1" End Sub 

Answer 1

虽然可以使用Application.OnTime方法安排定期事件，但最好避免使用类似以下方法的定时过程。

 Sub Macro1() Calculate Application.OnTime Now + TimeValue("00:00:01"), "Macro1" End Sub Sub start() Macro1 End Sub