[已解决]用VBA代码处理多列查询问题?

森林木007 · 发表于 2013-5-1 19:13

本帖最后由森林木007 于 2013-5-2 14:13 编辑

请求老师帮助:
1\输入起止日期,不输入具体列名字是全部;
2\输入起止日期,再输入"部门"或部门&工号姓名"或"产品代码"或"订单代码"查询全部
3)NUP%6{{2S3W]]M(M]ZT6T.jpg

VBA多条件查询.rar (14.84 KB, 下载次数: 13)

hwc2ycy · 发表于 2013-5-1 20:58

用高级筛选，查询条件略微改下就成了。

hwc2ycy · 发表于 2013-5-1 20:58

要不就用SQL查询

hwc2ycy · 发表于 2013-5-1 21:18

高级筛选的话，你的条件标题改下，对于日期就用公式就方便多了。

hwc2ycy · 发表于 2013-5-1 22:02

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

直接点查询按钮

VBA多条件查询.rar (17.32 KB, 下载次数: 50)

hwc2ycy · 发表于 2013-5-1 22:18

代码里对于lCondition的判断，直接换成逻辑变量更好。

无聊的疯子 · 发表于 2013-5-2 09:33

将 o2,p2 的内容改为 "日期"
然后在 O3 输入日期 ">=2013/3/1"
P3 输入日期 "<=2013/4/25"

运行一下代码,就将该日期范围内的数据都提取出来了

如果是要按月查询,在 U2 输入 "按月查询" ,也可以不输入,只做为提示用
U3 输入公式 "=MONTH(数据区!B3)=4" 该公式查询 4 月的数据,B3 为第一条数据记录位置
清除 o3,p3 的日期限定,

运行代码就查询出 4 月所有的数据了,

如果你还有其它条件,则在查找条件区域 "Range("O2:U3")" 中对应的字段下输入内容就行了

Sub cc()
Dim Hx As Long
With Sheet1
Hx = .Range("A65536").End(xlUp).Row
.Range("A2:M" & Hx).AdvancedFilter 2, Range("O2:U3"), Range("A1:M1"), False
End With
End Sub

复制代码

无聊的疯子 · 发表于 2013-5-2 09:37

补充一下,高级筛选是根据条件区域中设置的字段来查找的

该字段名称应该是数据源中存在的!!

你附件中R2单元中的 "部门&工号&姓名" 这样的字段在数据源中是不存在的,所以这样使用不能查找出你想要的

更多关于高级筛选的用法请看向伟老师的高级筛选

http://www.excelpx.com/thread-293078-1-1.html

森林木007 · 发表于 2013-5-2 14:25

hwc2ycy 发表于 2013-5-1 20:58
要不就用SQL查询

正在学习SQL知识.

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

[已解决]用VBA代码处理多列查询问题?

相关帖子

评分

评分

评分

评分