求师傅写个代码

q3698995 · 发表于 2024-3-31 18:02

山山而川。发表于 2024-3-31 17:31
老师，能不能加个B3为空值时，记录全部显示呢（取消筛选状态）

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

shiruiqiang · 发表于 2024-3-31 18:03

山山而川。发表于 2024-3-31 17:32
不是，是通过B3的选择，下面的数据进行筛选显示

ooluckydog · 发表于 2024-3-31 18:46

自动添加B3单元格数据有效性验证

cdcn · 发表于 2024-3-31 20:47

山山而川。发表于 2024-3-31 17:31
老师，能不能加个B3为空值时，记录全部显示呢（取消筛选状态）

练习。。。

加班单2.rar (15.11 KB, 下载次数: 6)

		自动登录	找回密码
密码			免费注册