表与表的自动复制问题高手解决下

内帐累

<p><br/>一个不同表之间的自动复制</p><p>因为有高手给出了个洪所以又出现了个新的问题，希望到下面的帖子中帮我解决下，关于那个宏的</p>

[此贴子已经被作者于2007-10-18 17:02:53编辑过]

shhuatong

<p>Private Sub Worksheet_Change(ByVal Target As Range)<br/>Sheets("sheet2").Cells(Target.Row, Target.Column) = Target.Value<br/>End Sub</p><p>&nbsp;<br/></p>

内帐累

<p>我可以将SHEET2改一下名字的把，因为我的工作簿名字不是SHEET2的。</p><p>为什么总提醒我是缺少End Sub的？？？？？？？？？<br/>&nbsp;&nbsp;我是直接将你的宏复制进去的</p><p>Sub 副表()<br/>Private Sub Worksheet_Change(ByVal Target As Range)<br/>Sheets("副表").Cells(Target.Row, Target.Column) = Target.Value<br/>End Sub</p>

[此贴子已经被作者于2007-10-18 15:46:58编辑过]

abcd321abcd

<p><font color="#a0a0a0"><font color="#ff3300">Sub 副表()</font>&nbsp; </font><font color="#0968f7">删除即可<br/></font>Private Sub Worksheet_Change(ByVal Target As Range)<br/>Sheets("副表").Cells(Target.Row, Target.Column) = Target.Value<br/>End Sub</p>

内帐累

<p>删除了我就不能〈复制使用宏：打开你的工作簿》按Alt+F11进入VBA》在工程资源管理器窗口单击鼠标右键，选择插入—“模块”》代码粘贴到模块中》退出VBA》工具》宏》（使用宏：）选择这个宏》执行〉其中的使用宏了，因为没有名字的，找不到它。</p><p>我又有个新的关于这个宏的问题，</p> l7Iqabye.rar (1.76 KB, 下载次数: 8)

2007-10-18 17:00 上传

点击文件名下载附件

<br/>

[此贴子已经被作者于2007-10-18 17:00:53编辑过]