[已解决]excel的多条件筛选/查询

sunnyiyang · 发表于 2015-8-20 20:01

各位大师，
我想通过excel做一个方便用户使用的查询功能，如图所示。我们希望用户只需在查询区选择对应的查询条件（如适用职业，年龄和性别）后，结果显示区将返回满足以上适用条件的结果。
技术上来说最方便的实现方式是自动筛选，但是鉴于查询条件有15项甚至更多，我们想通过其他方式实现筛选。样例和问题如附件所示。
求高手赐教。非常感谢。

最佳答案

月排行榜 / 总排行榜

七彩屋

2015-8-21 08:39

样例0821.rar (20.28 KB, 下载次数: 68)

七彩屋 · 发表于 2015-8-20 20:18

请上传附件，写代码简单，但做一个一样的附件要花很长时间的，

sunnyiyang · 发表于 2015-8-20 20:44

抱歉没意识到附件上传失败了，这里再一次

sunnyiyang · 发表于 2015-8-20 20:45

这次应该可以了

样例.rar (20.43 KB, 下载次数: 34)

pengyx · 发表于 2015-8-20 21:42

放个０３版的附件

七彩屋 · 发表于 2015-8-20 23:10

今天过节，明早写

七彩屋 · 发表于 2015-8-21 08:38

Sub qcw()
Application.ScreenUpdating = False
Dim x%, i%, cl%
For x = 1 To 4
n = Cells(7, x)
If n Like "*~*" Then
n = Left(Cells(7, x), 3) & "~" & Right(Cells(7, x), 2)
End If
Set Rng = Range(Cells(11, 6), Cells(11, Columns.Count)).Find(n, lookat:=xlWhole)
If Not Rng Is Nothing Then
cl = Rng.Column
End If
For i = 12 To Range("b65536").End(xlUp).Row
If Cells(i, cl) <> "x" Then Rows(i).EntireRow.Hidden = True
Next i
Next x
Application.ScreenUpdating = True
End Sub

复制代码

七彩屋 · 发表于 2015-8-21 08:39

样例0821.rar (20.28 KB, 下载次数: 68)

sunnyiyang · 发表于 2015-8-21 15:36

强大~~非常感谢！！

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

[已解决]excel的多条件筛选/查询

相关帖子