如何在隔壁TAB只显示更新过的数据

91ding

q.zip (8.03 KB, 下载次数: 1)

2018-9-7 06:29 上传

点击文件名下载附件

今天看一个过来出差的同事用的表格，比如TAB A里面是一个项目计划，最左边是每一个项目的名字，最上面是每个项目需要做的事情，数据全都是日期。
他在TAB A里更新日期，TAB B直接显示更新过的这个项目名字和日期，没有改动过的不会在这里显示。
这种效果是用VBA实现的吗？我做了个附件，如果我上面说的不明白，附件应该可以看明白。
我也想学，但是不知道怎么做，请版上大神帮忙用这个附件打个样儿，我跟着学学。多谢啦！

liulang0808

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     If Target.Count <> 1 Then Exit Sub
   
4.     If Target.Column = 1 Then Exit Sub
   
5.     If Target.Row = 1 Then Exit Sub
   
6.     strr = Cells(Target.Row, 1)
   
7.     strc = Cells(1, Target.Column)
   
8.     With Sheets("B")
   
9.         Set Rng = .Rows(1).Find(strc, lookat:=xlWhole)
   
10.         If Not Rng Is Nothing Then
    
11.             c = Rng.Column
    
12.         Else
    
13.             c = .Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1).Column
    
14.             .Cells(1, c) = strc
    
15.         End If
    
16.         Set Rng = .Columns(1).Find(strr, lookat:=xlWhole)
    
17.         If Not Rng Is Nothing Then
    
18.             r = Rng.Row
    
19.         Else
    
20.             r = .Cells(Rows.Count, 1).End(3).Offset(1).Row
    
21.             .Cells(r, 1) = strr
    
22.         End If
    
23.         .Cells(r, c) = Target.Value
    
24.     End With
    
25. End Sub
    

复制代码

liulang0808

附件内容供参考。。。

91ding

多谢版主，我这就学习一下啊！