excel如何实现数据有效性与高级筛选联动功能

YFCOOL

excel如何实现数据有效性与高级筛选联动功能

大灰狼1976

你要是原来没有代码还好些，现在还要考虑跟你原来代码的正确衔接，比较麻烦。

大灰狼1976

不考虑你原来的代码时，参考以下工作表事件。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Address = [c3].Address Or Target.Address = [h3].Address Then
   
4.   Application.ScreenUpdating = False
   
5.   Dim c&
   
6.   [b6].CurrentRegion.AutoFilter
   
7.   c = Rows(6).Find([c3], lookat:=xlWhole).Column
   
8.   [b6].CurrentRegion.AutoFilter Field:=c - 1, Criteria1:="是"
   
9.   [b6].CurrentRegion.AutoFilter Field:=6, Criteria1:=[h3]
   
10.   Application.ScreenUpdating = True
    
11. End If
    
12. End Sub

复制代码

YFCOOL

大灰狼1976 发表于 2017-10-20 15:14
不考虑你原来的代码时，参考以下工作表事件。

非常感谢你的回复，我试了一下，但类别和审核不需要同时满足条件，需求：1.选择类别时不考虑审核因素，只是在数据有效性下拉菜单中选择后下方表格按所选项目的对应列高级筛选即可
2.审核1、审核2，也是各自选择数据有效性下拉菜单后按对应列高级筛选即可
请在帮我改改，谢谢！

大灰狼1976

你的意思是各个条件都是独立的，每次判断都不用考虑其他条件？

大灰狼1976

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Address <> [c3].Address And Target.Address <> [h3].Address And _
   
4. Target.Address <> [h4].Address Then Exit Sub
   
5. Application.ScreenUpdating = False
   
6. Dim c&
   
7. [b6].CurrentRegion.AutoFilter
   
8. If Target.Column = 3 Then
   
9.   c = Rows(6).Find([c3], lookat:=xlWhole).Column
   
10.   [b6].CurrentRegion.AutoFilter Field:=c - 1, Criteria1:="是"
    
11. Else
    
12.   c = Rows(6).Find(Target.Offset(, -1), lookat:=xlWhole).Column
    
13.   [b6].CurrentRegion.AutoFilter Field:=c - 1, Criteria1:=Target
    
14. End If
    
15. Application.ScreenUpdating = True
    
16. End Sub

复制代码

YFCOOL

大灰狼1976 发表于 2017-10-20 16:17
你的意思是各个条件都是独立的，每次判断都不用考虑其他条件？

是的，先选类别，筛选后填写数据，再由审核1和审核2对先前筛选后数据再进行一次筛选进行审核

YFCOOL

审核1和审核2是在类别选定的基础上的再筛选，类别是第一级筛选，审核1、审核2是第二级筛选
审核1是在类别选定范围的基础上的再筛选；审核2也是在类别选定范围的基础上的再筛选

exc姜

学习