Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3910|回复: 8

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

[复制链接]
发表于 2017-10-20 13:53 | 显示全部楼层 |阅读模式
excel如何实现数据有效性与高级筛选联动功能

Book1.rar

10.6 KB, 下载次数: 21

发表于 2017-10-20 14:55 | 显示全部楼层
你要是原来没有代码还好些,现在还要考虑跟你原来代码的正确衔接,比较麻烦。
回复

使用道具 举报

发表于 2017-10-20 15:14 | 显示全部楼层
不考虑你原来的代码时,参考以下工作表事件。
  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
复制代码

评分

参与人数 1 +12 收起 理由
苏子龙 + 12 神马都是浮云

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2017-10-20 16:09 | 显示全部楼层
大灰狼1976 发表于 2017-10-20 15:14
不考虑你原来的代码时,参考以下工作表事件。

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

使用道具 举报

发表于 2017-10-20 16:17 | 显示全部楼层
你的意思是各个条件都是独立的,每次判断都不用考虑其他条件?
回复

使用道具 举报

发表于 2017-10-20 16:26 | 显示全部楼层
  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
复制代码
回复

使用道具 举报

 楼主| 发表于 2017-10-20 16:27 | 显示全部楼层
大灰狼1976 发表于 2017-10-20 16:17
你的意思是各个条件都是独立的,每次判断都不用考虑其他条件?

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

使用道具 举报

 楼主| 发表于 2017-10-20 17:14 | 显示全部楼层
审核1和审核2是在类别选定的基础上的再筛选,类别是第一级筛选,审核1、审核2是第二级筛选
审核1是在类别选定范围的基础上的再筛选;审核2也是在类别选定范围的基础上的再筛选
回复

使用道具 举报

发表于 2017-10-22 09:55 | 显示全部楼层
学习
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-7-19 22:32 , Processed in 0.223561 second(s), 18 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表