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单元格.
如果两张表的客户名称的顺序一致的话,比较简单,在售后E2中输入:=IF(销售!E2="维修","维修"," "),然后下拉单元格即可。顺序不一致的话,我需要用第三张表辅助才做的出,挺麻烦的...
在售后表格A2输入=IF(销售!$E2="维修",销售!A2,"") 再下拉,右拉。
如果无法做到两张表一一对应,则无法操作.表一需要添加一列,作为业务记录的唯一标识,才能在表二中准确反映对应的售后记录.