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

Aws*_*e33 2 excel vba excel-vba

我有这个Vba代码,需要花费大量的时间来执行,我这样做是sub为了停止执行,但它没有用,我使用了该Sendkeys功能.

sub stop ()
SendKeys "{Ctrl,Pause}"
end sub
Run Code Online (Sandbox Code Playgroud)

我也想恢复我的宏的执行,我尝试点击Ctrl + Break但它没有恢复.谢谢你的帮忙.

小智 5

打开VBE并插入一个模块并复制粘贴下面的代码

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

Sub PauseMacro()
    Application.SendKeys "^{BREAK}"
End Sub
Run Code Online (Sandbox Code Playgroud)

返回到Sheet1,在开发人员选项卡上插入一个按钮并分配PauseMacro给它.

现在运行Mainsub并按下按钮以停止Main宏的执行

哦,顺便问一下.这是如何使用该Application.SendKeys方法.