求师傅写个代码

山山而川。

求师傅帮忙写个代码，要求：根据B3单元格的人名选择，下面的统计单只显示B3的加班统计记录

q3698995

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address = "$B$3" Then
   
3.         arr = Cells(1, 1).CurrentRegion.Value2: Cells.EntireRow.Hidden = False
   
4.         For i = 5 To UBound(arr): If arr(i, 1) <> arr(3, 2) Then Rows(i).Hidden = True
   
5.         Next
   
6.     End If
   
7. End Sub

复制代码

shiruiqiang

sql语句处理一下

shiruiqiang

字典处理一下

山山而川。

q3698995 发表于 2024-3-31 16:48

谢谢老师，是我想要的结果。

山山而川。

shiruiqiang 发表于 2024-3-31 17:11
字典处理一下

B3更换内容后，下面的记录单不变。。

山山而川。

shiruiqiang 发表于 2024-3-31 17:03
sql语句处理一下

B3更换内容后，下面的记录单没有做出筛选

shiruiqiang

山山而川。 发表于 2024-3-31 17:18
B3更换内容后，下面的记录单不变。。

还以为直接统计加班数量就行了啊，字典处理里面。

山山而川。

q3698995 发表于 2024-3-31 16:48

老师，能不能加个B3为空值时，记录全部显示呢（取消筛选状态）

山山而川。

shiruiqiang 发表于 2024-3-31 17:19
还以为直接统计加班数量就行了啊，字典处理里面。

不是，是通过B3的选择，下面的数据进行筛选显示