问中断/中止VBA-循环

EN

当Excel忙于执行宏时，它不会响应按钮。

这里有三个选项：

1. 使用代码键(与按钮相对)
2. 使宏更快(也许将Application.ScreenUpdating设置为False会有所帮助)
3. 通过在内部循环中插入DoEvents来使宏变慢。这样，Excel将同时响应于按钮。这个按钮将要触发的宏只会将一个全局变量设置为True (显然，您的内部循环应该在每次迭代时检查这个变量，如果它为True).

，则退出

Application.EnableCancelKey可能就是你要找的东西。

参见链接的url上的示例代码，当用户按下换行键时，将控件传递给错误处理程序。

除了其他答案之外，

假设您想要中断代码，但仍然在代码中执行某些操作，您可以通过捕获中断并处理它来实现

您可以使用Err.Number捕获错误号

具体地说，Err.Number = 18表示用户中断

Sub handleError()
On Error GoTo MyErrorHandler
 Application.EnableCancelKey = xlErrorHandler

 'Just an example to show something is running
 For i = 0 To 900000
 Range("A1") = i
 Next i

MyErrorHandler:
If Err.Number = 18 Then '18 =User interrupt
     MsgBox " You clicked Ctrl + Break "
     Exit Sub

End If
End Sub