如何解决"代码执行被中断"

爱疯

3.rar (16.17 KB, 下载次数: 9)

2016-8-10 11:17 上传

点击文件名下载附件

Sub test()
    Dim ad, rng, movex, movey, x, y
    Set rng = [a1:j25]
    Set ad = ActiveSheet.Shapes("Smiley Face 2")
    Do
        If movex + ad.Width >= rng.Width Then x = -1 Else If movex <= 0 Then x = 1
        If movey + ad.Height >= rng.Height Then y = -1 Else If movey <= 0 Then y = 1
        VBA.DoEvents
        movex = movex + x * 10
        movey = movey + y * 10
        ad.Left = movex
        ad.Top = movey
    Loop
End Sub



现象：如果点击按钮，就提示"代码执行被中断"。如果单步执行，就不提示。
请问：为什么会这样？怎么处理才好
谢谢！

6688

ON ERROR RESUME NEXT

爱疯

6688 发表于 2016-8-10 11:55
ON ERROR RESUME NEXT

谢谢6688！


在我这里（32位win7+2010），加上 on error resume next，仍有提示。

另外发现，如果在vbe编辑器界面点执行，切换回工作表界面，就没提示。

6688

爱疯 发表于 2016-8-10 15:05
谢谢6688！

on error goto 0



0:
exit sub

crazy0qwer

爱疯 发表于 2016-8-10 15:05
谢谢6688！

运行后在中断前按下  ctrl+alt+break  组合键，然后就会跳出中断窗口，你点继续。

crazy0qwer

6688 发表于 2016-8-11 09:47
on error goto 0

这是编译系统问题，on error 解决不了。

爱疯

crazy0qwer 发表于 2016-8-11 09:56
运行后在中断前按下  ctrl+alt+break  组合键，然后就会跳出中断窗口，你点继续。

谢谢crazy0qwer！


是ctrl+break么？
运行后在中断前 。。。。。。这时机咋掌握呀？运行后不是直接弹提示了么

爱疯

6688 发表于 2016-8-11 09:47
on error goto 0

这样仍提示。

crazy0qwer

爱疯 发表于 2016-8-11 10:59
谢谢crazy0qwer！

两组快捷键一样的。
时机就是在它弹出前，你手动中断一次再点继续。
看你手速了，我以前遇到过这个问题，就是这样解决的，其他办法不知道了。
实在不行换个工作簿看看吧。

爱疯

crazy0qwer 发表于 2016-8-11 12:07
两组快捷键一样的。
时机就是在它弹出前，你手动中断一次再点继续。
看你手速了，我以前遇到过这个问 ...

关闭excel，再打开，第1次执行没问题。

好像没法完全避免。