只能用“粘贴触发事件”能否做到

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

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

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

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

给楼主纠正一下，没有“粘贴”触发事件！
看了楼主的附件，主要是想在“复制表1到表2” 这个按钮发生点击事件后，完成两个区域复制的任务而已！
另外，做事总是有先后的，不可能同时复制！如果先复制表1中的数据到表2，然后再复制表2到表3，则最后三个工作表内指定区域的数据是完全相同的！请问楼主，这是你想要的结果吗？

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

是
我的意思：当表2被粘贴后在表2里加个自动事发事件它会自动完成表2到表3
谢谢老师

335081548 · 发表于 2011-4-1 07:22

如果先复制表1中的数据到表2，然后再复制表2到表3，则最后三个工作表内指定区域的数据是完全相同的
这样也只要一个按钮行吗？运行的过程在后台
按一下按钮，表2 表3都有数据。。。。

335081548 · 发表于 2011-4-1 07:32

Sub 复制粘贴数值()
Sheets("表1").Range("A2:D10").Copy
Sheets("表2").Range("A4").PasteSpecial Paste:=xlPasteValues
Sheets("表3").Range("A2").PasteSpecial Paste:=xlPasteValues
End Sub

qhllqhll · 发表于 2011-4-1 08:38

谢谢老师
您的代码挺好我先收藏学习了

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

[求助] 只能用“粘贴触发事件”能否做到

回复 2楼 lu_zhao_long 的帖子

回复 3楼 qhllqhll 的帖子

回复 5楼 335081548 的帖子