应用程序ontime仅在tiggered时运行一次

Question

以下代码仅在tiggered时运行且此代码位于标准module1

中

                        Sub Macro1()

                            Calculate


                        End Sub


                        Sub start()

                            Application.OnTime Now + TimeValue("00:00:01"), "Macro1"

                        End Sub

Answer 1

虽然您可以使用Application.OnTime method安排定期活动，但最好避免使用以下方法超越定时过程。

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

Sub start()
    Macro1
End Sub