点击单元格，依据单元格内容，实现对表格的数据进行自动筛选

gl0807

各位老师，大家好！
    参考附件数据（源文件），我想实现点击下方单元格内容后，实现“当前状态”列下内容的筛选。

不使用超级表格，切片器。在本工作表内实现这个功能。
    谢谢各位大神们。

下图为实现效果截图。

1、原始数据图

2、实现效果：

3190496160

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Row = 7 And T.Column > 9 And T.Column < 17 Then
    If T.Count > 1 Then End
    If T.Value = "" Then ActiveSheet.ShowAllData ''取消筛选状态
    If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData ''取消筛选状态
    r = Cells(Rows.Count, 9).End(xlUp).Row
    If r < 10 Then MsgBox "客户跟进表为空！": End
    Range("b9:o" & r).AutoFilter Field:=8, Criteria1:=T.Value, Operator:=xlAnd
End If
End Sub

3190496160

客户跟进表.rar (77.1 KB, 下载次数: 6)

2024-11-19 10:41 上传

点击文件名下载附件

3190496160

单击P7单元格则显示全部数据

taller

1. ' 选中H7:O7单元格，筛选数据表，选中任意其他取消筛选
   
2. 
   
3. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
4.     Dim c As Range
   
5.     Application.ScreenUpdating = False
   
6.     If Target.CountLarge > 1 Then Exit Sub
   
7.     If Me.FilterMode Then Me.ShowAllData
   
8.     Set c = Intersect(Range("H7:O7"), Target)
   
9.     If c Is Nothing Then
   
10.         If Me.AutoFilter.FilterMode Then
    
11.             Me.Range("i9").AutoFilter
    
12.         End If
    
13.         Exit Sub
    
14.     Else
    
15.         Dim lstR As Long: lstR = Me.Cells(Me.Rows.Count, 2).End(xlUp).Row
    
16.         With Me.Range("i9:i" & lstR)
    
17.             .AutoFilter Field:=1, Criteria1:=Target.Value
    
18.         End With
    
19.     End If
    
20.     Application.ScreenUpdating = True
    
21. End Sub
    

复制代码

gl0807

3190496160 发表于 2024-11-19 10:42
单击P7单元格则显示全部数据

老师，您好！感谢您！


可以设置，单击H7单元格则显示全部数据。
还有点击I7“跟进中”，数据无反应。应该怎样解决？

3190496160

客户跟进表.rar (78.69 KB, 下载次数: 7)

2024-11-19 12:08 上传

点击文件名下载附件

gl0807

3190496160 发表于 2024-11-19 12:08

谢谢您的指导。
万分感谢！！！

gl0807

taller 发表于 2024-11-19 11:21

感谢帮助的指点。感谢！！！