1.在EXCEL底部的sheet1标签上点鼠标右键,选"查看代码",调出sheet1的代码窗口.
2.将下面代码粘贴进去:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Sheets("sheet2").Range("a1") = Target
End Sub
3.同样,回到EXCEL窗口,在sheet2表的底部标签上用右键"查看代码"
4.调出sheet2的代码窗口,输入下面代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Sheets("sheet1").Range("a1") = Target
End Sub
5.完成回到EXCEL窗口后就可以使用了.
可以看到,这两段代码基本相同,不同的地方是代码的第二行的中间部分,分别引用了对方的工作表名字.
代码的含义是,当工作表(sheet1或sheet2)中的内容改变时,并且改变的单元格是A1单元格时,代码自动将改变的内容写入到另一个工作表的A1单元格.
2张excel表格比如表1和表2 在表1输入内容 让表2随表1的变化而变化 操作如下:
复制表1相关区域到表2选定区域-点击鼠标右键-选择性粘贴-粘贴链接就可使数据同步
作个数据源喽
是局域网吗
http://technet.microsoft.com/zh-cn/library/ms141683.aspx
去看看吧
说起来太复杂了