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单元格.
1、选中此单元格----右键,单元格格式----常规----确定
2、双击此单元格----回车
是不是变成文本格式了?
可以选 中单元格按右键,选择设置单元格格式,选 用数值形式,你可以试一试!