24小时热评
热点排行榜查看: 8303|回复: 5
如何设置执行VBA代码出错时，自动退出执行的过程
阅读权限20
在线时间 小时
我设置了一个代码，是将复制的数据，自动在当前工作表的指定单元格进行选择性粘贴数据。
如果已复制了数据，运行以下代码没有问题。
但如果没有事先复制数据时，运行时会报错。
我想在没有事先复制数据时，运行以下代码，不出现报错，而是出现一个提示消息“没有数据可以粘贴，请先复制数据”，然后退出这个过程。
请各位大侠帮忙，如何修改以下的代码。
Private Sub CommandButton1_Click()
& & A = Range(&A5:A500&).End(xlDown).Row()
& & A = A + 1
& & Range(&A& & A).Select
& & Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
& && &&&:=False, Transpose:=False
[ 本帖最后由 wbjjzhu 于
18:14 编辑 ]
18:13 上传
点击文件名下载附件
43.59 KB, 下载次数: 26
阅读权限70
在线时间 小时
& & & & & & & &
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 &没有数据可以粘贴，请先复制数据&
不知这个行不行
阅读权限20
在线时间 小时
就是要这种效果，学习了！
谢谢二楼的朋友:handshake
阅读权限20
在线时间 小时
同样的代码，为什么在不同工作簿中，一个运行正常，一个运行错误！！
请kevinchengcw及高手们查找一下是什么原因。
17:02 上传
点击文件名下载附件
44.56 KB, 下载次数: 18
17:02 上传
点击文件名下载附件
41.35 KB, 下载次数: 11
阅读权限20
在线时间 小时
& & & & & & & &
自已顶起来，请高手们帮帮忙。
阅读权限50
在线时间 小时
& & & & & & & &
2个工作表(11月)的内容不一样,当然结果就不一样了.
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师var sogou_ad_id=731545;
var sogou_ad_height=90;
var sogou_ad_width=980;