高难度的“异表复制问题”

qhllqhll · 发表于 2011-3-16 07:48

那位老师能帮我写段代码啊：
意思是：在“工作簿1”“表1”里，点击一个按钮，便弹出一个对话框，在对话框里只要键入“行号”数后点击对话框上的“确定”扭，则把“工作薄2”“1表”里对应刚才键入的“行号”，选中(A行号：O行号+100）复制到“工作簿1”“1表”里的A4单元格里，
举个例子说：就是在对话框里填人 4 则把“工作薄2”“1表”里对应的 A4:O103 ，复制到“工作簿1”“1表”里的A4单元格里；下次再在对话框里填人 104 则把“工作薄2”“1表”里对应的 A104:O203 ，复制到“工作簿1”“1表”里的A4单元格里；下次再在对话框里填人 204 则把“工作薄2”“1表”里对应的 A204:O303 ，复制到“工作簿1”“1表”里的A4单元格里；每次复制100行。
加上在每次复制前需要清空“工作薄1”“1表”里的A4:O103内容。
请看附件
谢谢各位老师的帮助

dsmch · 发表于 2011-4-1 08:41

大家都解释的很清楚了，没有粘贴触发事件

qhllqhll · 发表于 2011-4-1 07:17

谢谢指教我知道了

lu_zhao_long · 发表于 2011-4-1 07:09

原帖由 qhllqhll 于 2011-4-1 06:52 发表
请老师赐教
1 、只要一点击本表里的“按钮1”就把“表1”里的a2:d100区里的内容,复制到“表2”的a4开始的区里。
2 、关键：当从“表1”里复制到“表2”的同时：只能用“粘 ...

不要到处乱发帖！小心被当作灌水帖！
http://club.excelhome.net/viewth ... d=523377#pid4765265

qhllqhll · 发表于 2011-4-1 06:52

请老师赐教
1 、只要一点击本表里的“按钮1”就把“表1”里的a2:d100区里的内容,复制到“表2”的a4开始的区里。
2 、关键：当从“表1”里复制到“表2”的同时：只能用“粘贴触发事件”把“表2”里的a4:d100区里的内容,自动复制到“表3”里的a2开始的区里
注意：在“表2”里修改 a4：d100区里的内容则不触发复制功能
请看附件

qhllqhll · 发表于 2011-3-17 08:22

万分感谢解决了特大问题建议加入“精”

dsmch · 发表于 2011-3-22 08:43

Len(abc)<> 1
abc的字节长不等于1；
Not LCase(abc) Like "[a-o]"
abc的小写字母不等于a-o

dsmch · 发表于 2011-3-16 08:48

附件.rar (12.89 KB, 下载次数: 113)

qhllqhll · 发表于 2011-3-16 09:36

老师您的代码太好了应该 “加精”
还有一个问题再请老师修改，
就是在弹出的对话框里如果不填数是点击确定或取消提示：运行时错误 “1004”

dsmch · 发表于 2011-3-16 10:16

放在代码第一句
On Error Resume Next

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

[求助] 高难度的“异表复制问题”

回复 48楼 lu_zhao_long 的帖子

回复 45楼 dsmch 的帖子

回复 12楼 dsmch 的帖子

回复 2楼 dsmch 的帖子