VBA程序运行过程中如何用快捷键强制终止

protel2003

各位大侠，我做了一个循环点击的小代码，其中有Do循环（设置了Do循环的次数），但有的时候需要强制中断代码运行。
能不能不管程序运行到那块，只要按下Esc，VBA程序直接中断运行
或者在程序运行过程中，如何设置快捷键，实现程序暂停、继续、结束执行程序这几个功能
比如能够调出这个弹窗，以便操作

杨建营

笔记本可以试试Ctrl+fn+b

caiyu93

直接按esc就能终止了

剑指E

调试阶段可在循环里加 DoEvents，需停止时点暂停或停止
调试好后删除（严重影响速度）

protel2003

这个代码主要是给其他人用的

protel2003

直接按Esc不行
Ctrl+fn+b，也不行

caiyu93

在代码里加入end,按快捷键执行end就行

kevinchengcw

个人经验，按住esc，然后在excel与vbe界面之间不停切换，基本上什么样的卡死都有机会跳出调试菜单的

ivrdachen

最近遇到同样的问题，试了很多方法都不行，最后研究出来了一个方法，做个按钮，运行以下代码即可立即停止所有宏程序：
Sub 停止所有宏()
X = 1 / 0
End Sub

运行之后出现报错窗口，按结束即可

ziqiangli

使用VBA中的Application.OnKey方法来实现在程序运行过程中设置快捷键来暂停、继续和结束执行程序的功能。以下是一个示例代码
Dim isPaused As Boolean

Sub StartLoop()
    Dim i As Integer
   
    ' 设置快捷键
    Application.OnKey "^{PAUSE}", "PauseResume" ' Ctrl+Pause键暂停/继续执行
    Application.OnKey "{ESC}", "StopExecution"  ' ESC键结束执行
   
    isPaused = False
   
    For i = 1 To 1000
        If Not isPaused Then
            ' 这里放置你的循环代码
            ' 例如：
            Debug.Print i
            DoEvents ' 允许中断
            
            ' 检查是否按下ESC键
            If isPaused Then
                Exit For
            End If
        End If
    Next i
   
    ' 恢复快捷键设置
    Application.OnKey "^{PAUSE}"
    Application.OnKey "{ESC}"
End Sub

Sub PauseResume()
    isPaused = Not isPaused
    If isPaused Then
        MsgBox "程序已暂停，按Ctrl+Pause键继续执行。"
    Else
        MsgBox "程序已继续执行。"
    End If
End Sub

Sub StopExecution()
    isPaused = True
    MsgBox "程序已结束执行。"
End Sub