blocks|key|2474804|text|Application.EnableCancelKey可能就是你要找的东西。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|2474805|参见链接的url上的示例代码，当用户按下换行键时，将控件传递给错误处理程序。|2474806|entityMap|0|LINK|mutability|MUTABLE|url|http://msdn.microsoft.com/en-us/library/aa214566%2528office.11%2529.aspx^0|0|R|0|R|0|0|0^^$0|@$1|2|3|4|5|6|7|P|8|@$9|Q|A|R|B|C]]|D|@$9|S|A|T|1|U]]|E|$]]|$1|F|3|G|5|6|7|V|8|@]|D|@]|E|$]]|$1|H|3|-4|5|6|7|W|8|@]|D|@]|E|$]]]|I|$J|$5|K|L|M|E|$N|O]]]]

<a href="http://msdn.microsoft.com/en-us/library/aa214566%28office.11%29.aspx" rel="nofollow noreferrer"><code>Application.EnableCancelKey</code></a> could be the thing, you are looking for. 
See the example code on the linked url, on passing the control to error handler when user presses escapes.

blocks|key|2474858|text|当Excel忙于执行宏时，它不会响应按钮。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2474859|这里有三个选项：|2474860|2474861|使用代码键(与按钮相对)|ordered-list-item|2474862|使宏更快(也许将Application.ScreenUpdating设置为False会有所帮助)|offset|length|style|CODE|2474863|通过在内部循环中插入DoEvents来使宏变慢。这样，Excel将同时响应于按钮。这个按钮将要触发的宏只会将一个全局变量设置为True+(显然，您的内部循环应该在每次迭代时检查这个变量，如果它为True).|2474864|，则退出|2474865|entityMap^0|0|0|0|0|8|Q|11|5|0|A|8|1R|4|2P|4|0|0^^$0|@$1|2|3|4|5|6|7|T|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|U|8|@]|9|@]|A|$]]|$1|D|3|-4|5|6|7|V|8|@]|9|@]|A|$]]|$1|E|3|F|5|G|7|W|8|@]|9|@]|A|$]]|$1|H|3|I|5|G|7|X|8|@$J|Y|K|Z|L|M]|$J|10|K|11|L|M]]|9|@]|A|$]]|$1|N|3|O|5|G|7|12|8|@$J|13|K|14|L|M]|$J|15|K|16|L|M]|$J|17|K|18|L|M]]|9|@]|A|$]]|$1|P|3|Q|5|6|7|19|8|@]|9|@]|A|$]]|$1|R|3|-4|5|6|7|1A|8|@]|9|@]|A|$]]]|S|$]]

When Excel is busy executing your macro, it won't respond to a button. 
You have three options here:

<ol>
<li>Use <code>Ctrl+Break</code> keys (as apposed to a button)</li>
<li>Make your macro much faster (maybe setting <code>Application.ScreenUpdating</code> to
<code>False</code> will help)</li>
<li>Make your macro
much slower by inserting a
<code>DoEvents</code> in the inner loop. This
way, Excel will resond to buttons in
the meantime. The macro this button would trigger would just set a global variable to <code>True</code> (obviously, your inner loop should check this variable on each iteration, and exit if it's <code>True</code>).</li>
</ol>

blocks|key|1502224|text|除了其他答案之外，|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1502225|假设您想要中断代码，但仍然在代码中执行某些操作，您可以通过捕获中断并处理它来实现|1502226|您可以使用Err.Number捕获错误号|offset|length|1502227|具体地说，Err.Number+=+18表示用户中断|1502228|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+%2B+Break+"
+++++Exit+Sub

End+If
End+Sub|code-block|syntax|javascript|1502229|entityMap|0|LINK|mutability|MUTABLE|url|http://support.microsoft.com/kb/146864^0|0|0|5|A|0|0|0|0^^$0|@$1|2|3|4|5|6|7|W|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|X|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|Y|8|@]|9|@$F|Z|G|10|1|11]]|A|$]]|$1|H|3|I|5|6|7|12|8|@]|9|@]|A|$]]|$1|J|3|K|5|L|7|13|8|@]|9|@]|A|$M|N]]|$1|O|3|-4|5|6|7|14|8|@]|9|@]|A|$]]]|P|$Q|$5|R|S|T|A|$U|V]]]]

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 <a href="http://support.microsoft.com/kb/146864" rel="nofollow">Err.Number</a> to capture the error number

Specifically, Err.Number = 18 refers to user breaks

<pre><code>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
</code></pre>

blocks|key|1498877|text|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1498878|在循环内添加对DoEvents的调用。|unordered-list-item|1498879|1498880|1498881|添加公共布尔模块级别标志变量|1498882|1498883|1498884|将按钮添加到UI|1498885|1498886|按钮的事件处理程序中的|1498887|将标志设置为true|1498888|1498889|1498890|在循环中检查变量，如果为真，则中止循环。|1498891|1498892|我在Excel用户表单中使用过它，但没有在工作表上使用过按钮。|1498893|entityMap^0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0^^$0|@$1|2|3|-4|4|5|6|Z|7|@]|8|@]|9|$]]|$1|A|3|B|4|C|6|10|7|@]|8|@]|9|$]]|$1|D|3|-4|4|5|6|11|7|@]|8|@]|9|$]]|$1|E|3|-4|4|5|6|12|7|@]|8|@]|9|$]]|$1|F|3|G|4|C|6|13|7|@]|8|@]|9|$]]|$1|H|3|-4|4|5|6|14|7|@]|8|@]|9|$]]|$1|I|3|-4|4|5|6|15|7|@]|8|@]|9|$]]|$1|J|3|K|4|C|6|16|7|@]|8|@]|9|$]]|$1|L|3|-4|4|5|6|17|7|@]|8|@]|9|$]]|$1|M|3|N|4|5|6|18|7|@]|8|@]|9|$]]|$1|O|3|P|4|C|6|19|7|@]|8|@]|9|$]]|$1|Q|3|-4|4|5|6|1A|7|@]|8|@]|9|$]]|$1|R|3|-4|4|5|6|1B|7|@]|8|@]|9|$]]|$1|S|3|T|4|C|6|1C|7|@]|8|@]|9|$]]|$1|U|3|-4|4|5|6|1D|7|@]|8|@]|9|$]]|$1|V|3|W|4|5|6|1E|7|@]|8|@]|9|$]]|$1|X|3|-4|4|5|6|1F|7|@]|8|@]|9|$]]]|Y|$]]

<ul>
<li>Add a call to DoEvents inside the loop.
</li>
<li>Add a public boolean module level flag variable
</li>
<li>Add a button to the UI
</li>
<li>In the event handler for the button set the flag true
</li>
<li>in the loop check the variable, if it is true abort the loop.
I've used this in an Excel userform but not with buttons on a worksheet.
</li>
</ul>

In VBA on Excel, I have a loop over several thousands of cells, which takes some minutes. 

Is it possible to abort a long term loop (if so, how) / can I build a button or something like that to interrupt this loop manually?

Building a button and overlaying it with a macro is not a problem, only the code itself.

Interrupt/Abort a VBA-Loop

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

在Excel上的VBA中，我有一个遍历数千个单元格的循环，这需要几分钟的时间。是否可以中止一个长期循环(如果可以，如何终止)/我可以构建一个按钮或类似的东西来手动中断这个循环吗？构建一个按钮并用宏覆盖它不是问题，只是代码本身的问题。

问中断/中止VBA-循环
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问中断/中止VBA-循环EN