关中断程序ESC和ctrl+break的问题

wozhaoni · 发表于 2008-8-17 22:31

程序在循环中，比如FOR循环，如果想中途退出，发现按ESC和CTRL+break效果不太一样，

ESC是继续循环，完成后退出，而CTRL+break可以选择中断循环退出，

现在有个问题，处于方便或，想用ESC直接退出循环，达到ctrl+break的效果，有什么办法吗

另外，ESC和ctrl+break到底有什么不一样呢，请高人指教，再次现谢过了！！！

清风_ll · 发表于 2008-8-21 17:43

指定EnableCancelKey属性,可以实现捕捉用户中断.请测试

Sub test()
    On Error GoTo ErrHD
    Application.EnableCancelKey = xlErrorHandler
    For i = 1 To 10000
        Debug.Print i
    Next
ErrHD:
    If Err.Number = 18 Then
        MsgBox "用户终止了代码的执行"
    End If
End Sub

在代码执行过程中ESC和ctrl+break实现一样的功能.

wozhaoni · 发表于 2008-8-31 23:18

再次感谢，呵呵！

fdd · 发表于 2009-4-13 23:06

哇，学习了。太精彩了！

fyd_excel · 发表于 2009-8-21 17:30

学习了，

thithin · 发表于 2009-9-9 15:51

学习学习。。。

shenboo · 发表于 2010-7-18 23:44

非常感谢知道了。（指定EnableCancelKey属性,可以实现捕捉用户中断）

jdmlw · 发表于 2010-10-13 09:21

又学了一招：

指定EnableCancelKey属性,可以实现捕捉用户中断
非常感谢

nbqmdzlcdint · 发表于 2010-10-27 22:05

谢谢分享努力学习中

永乐大典 · 发表于 2010-12-31 16:44

我在2007上测试，无法实现此功能是怎么回事
请教

		自动登录	找回密码
密码			免费注册

[求助] 关中断程序ESC和ctrl+break的问题

非常感谢

非常感激楼主分享