如何设置执行VBA代码出错时，自动退出执行的过程
答案:2 悬赏:20 手机版
解决时间 2021-02-17 22:57
- 提问者网友：那叫心脏的地方装的都是你
- 2021-02-17 13:45
如何设置执行VBA代码出错时，自动退出执行的过程
最佳答案
- 五星知识达人网友：渊鱼
- 2021-02-17 14:29
on error goto XXX
…………
XXX：
exit遇到错误跳转，跳转到的地方放一句exit就中止整个vba运行了。
…………
XXX：
exit遇到错误跳转，跳转到的地方放一句exit就中止整个vba运行了。
全部回答
- 1楼网友：轻雾山林
- 2021-02-17 15:04
Private Sub CommandButton1_Click()
on error goto skip
A = Range("A5:A500").End(xlDown).Row()
A = A + 1
Range("A" & A).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
exit sub
Skip:
msgbox "没有数据可以粘贴，请先复制数据"
End Sub
不知这个行不行
on error goto skip
A = Range("A5:A500").End(xlDown).Row()
A = A + 1
Range("A" & A).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
exit sub
Skip:
msgbox "没有数据可以粘贴，请先复制数据"
End Sub
不知这个行不行
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯