excel - 如何在宏运行时单击另一个宏？

Question

我正在尝试编写一个每 10 分钟自动刷新一次网站的代码。我有一个开始和停止按钮。单击开始按钮后，将开始刷新。问题是我无法单击停止按钮，因为代码正在运行。

这是我的代码：

Public Sub Start()

    wksMain.Range("A5").Value = "start"

x:
    VBA.DoEvents

    If wksMain.Range("A5").Value = "stop" Then Exit Sub

        AppActivate "Kampala - Wikipedia"
        SendKeys "{F5}"
        Application.Wait (Now + TimeValue("00:10:00"))

    GoTo x

End Sub

Public Sub Stopper()
    wksMain.Range("A5").Value = "stop"
End Sub

标签： excelvba