vba - 使用 sendKeys 函数使用另一个宏(按钮)停止执行宏

Question

我有这个 Vba 代码需要很长时间才能执行，我执行了这个 sub 来停止执行，但它不起作用，我使用了 Sendkeys 函数.

sub stop ()
SendKeys "{Ctrl,Pause}"
end sub

我还想恢复宏的执行，我尝试单击 Ctrl+Break 但它没有恢复。感谢您的帮助。

Answer 1

打开VBE并插入模块并复制粘贴以下代码

Sub Main()
    For i = 1 To 100000
        DoEvents
        Debug.Print i
    Next i
End Sub

Sub PauseMacro()
    Application.SendKeys "^{BREAK}"
End Sub

返回 Sheet1，在开发人员选项卡上插入一个按钮并为其分配 PauseMacro。

现在运行 Main 子程序并单击按钮以停止 Main 宏的执行

哦，顺便说一句。 here's how to use the Application.SendKeys method .