VBA停止Application.OnTime方法

Question

在使用Application.OnTime方法时遇到了一个小问题。

按照下面的示例，代码应该每10秒运行一次（确实如此），但是它不会在按下按钮时停止。设置断点后，当按下AutoOffBtn（按钮在窗体上）时，StopRunning值始终显示为false，并且不会更改为true。我使用的是按钮的图像而不是命令按钮。

Option Explicit

Private Sub AutoOffBtn_Click()

AutoOffCheck.Value = True
StopRunning = True

End Sub

Private Sub AutoOnBtn_Click()

AutoOnCheck.Value = True
Call AutoOn

End Sub

AutoOn代码如下：

Option Explicit
Public StopRunning As Boolean

Sub AutoOn()

Application.ScreenUpdating = False

Call CCPulseSaveFile
Call CopyHTML
Call SendTest

If Not StopRunning Then Application.OnTime Now + TimeValue("00:00:10"), "AutoOn"

End Sub

任何帮助您停止运行代码的人，我们将不胜感激！