求助:Excel2003中 符合多条件查询?
vba吧
全部回复
仅看楼主
level 2
jevenjiang 楼主
请帮我写个代码
符合查询结果如下:
随便查询B2、D2、F2的其中一个B2的或D2 、F2的及同时B2 、D2 、F2的A3:N1000范围内容
1、允许同时查询B2 、D2 、F2时 , 返回所要查询的A3:N1000范围内容
2、允许仅仅查询B2 或 D2、F2时, 返回所要查询的A3:N1000范围内容
 不要在同时查询B2、D2、F2后,再单一的查询B2或D2、F2时就不能查询了。
2014年05月26日 11点05分 1
level 10
这段代码放在查询按钮里
Dim rng As Range
Set rng = Sheet1.Range("a3:n1000")
rng.AutoFilter Field:=1
rng.AutoFilter Field:=2
If Sheet1.[b2] <> "" Then rng.AutoFilter Field:=2, Criteria1:=Sheet1.[b2]
If Sheet1.[d2] <> "" And Sheet1.[f2] <> "" Then
rng.AutoFilter Field:=1, Criteria1:= _
">=" & Sheet1.[d2], Operator:=xlAnd, Criteria2:="<=" & Sheet1.[f2]
ElseIf Sheet1.[d2] <> "" Then
rng.AutoFilter Field:=1, Criteria1:=">=" & Sheet1.[d2]
ElseIf Sheet1.[f2] <> "" Then
rng.AutoFilter Field:=1, Criteria1:="<=" & Sheet1.[f2]
End If
2014年05月26日 12点05分 2
非常感谢啊,我加了开头和结尾语, 可以用了.
2014年05月27日 00点05分
1