当前位置：文江博客话题详情

中断/中止 VBA 循环

发布于 2024-09-10 14:17:36 字数 138 浏览 6 评论 0原文

在 Excel 上的 VBA 中，我对数千个单元格进行了循环，这需要几分钟的时间。

是否可以中止长期循环（如果可以，如何）/我可以构建一个按钮或类似的东西来手动中断此循环吗？

构建一个按钮并用宏覆盖它不是问题，只有代码本身有问题。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

み青杉依旧 2024-09-17 14:17:36

当 Excel 忙于执行宏时，它不会响应按钮。
这里有三个选项：

使用 Ctrl+Break 键（与按钮不同）
使宏更快（也许将 Application.ScreenUpdating 设置为
False 会有帮助）
制作你的宏
通过插入要慢得多
内循环中的DoEvents。这
这样，Excel就会对其中的按钮做出响应
与此同时。此按钮将触发的宏只会将一个全局变量设置为 True（显然，您的内部循环应在每次迭代时检查此变量，如果为 True 则退出）。

回复收藏 0 原文

流绪微梦 2024-09-17 14:17:36

Application.EnableCancelKey 可能就是您正在寻找的东西。
请参阅链接 url 上的示例代码，了解当用户按下转义键时将控件传递给错误处理程序。

回复收藏 0 原文

记忆消瘦 2024-09-17 14:17:36

除了其他答案之外，

假设您想破坏代码并仍然在代码中执行某些操作，您可以通过捕获中断并处理它来做到这一点

您可以使用 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

In addition to other answers,

Lets say you want to break the code and still perform certain actions in your code, You can do so by capturing the interrupt and handling it

You can use Err.Number to capture the error number

Specifically, Err.Number = 18 refers to user breaks

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

回复收藏 0 原文