最后
开源分享:【大厂前端面试题解析+核心总结学习笔记+真实项目实战+最新讲解视频】
给大家分享一些关于HTML的面试题。
上述代码含义是在名为“Data”的工作表中“A2”到“C10000”范围内的第2列筛选出“啤酒”字段的值;
一般情况下其余参数可省略。
通常情况下,上述代码会写成这样:
'选择啤酒字段的所有值
Worksheets("Data").range("A2:C10000").Autofilter _
(Field:=2,Criteria1:="啤酒",Operator:=xlFilterValues)
这段代码含义和上一段代码含义和作用一样,那为什么要写得更复杂呢?这是因为如果你写参数时严格按照Autofilter的顺序来表达每个参数,可以写成第一段代码形式,但是实际工作中大家不会需要所有字段,书写顺序也不一定严格按照Autofilter的顺序来写,为避免参数设定错误,将参数具体对应设定比较安全,同时代码可读性也更好。
Case2.筛选动态区域里的参数结果:
'选择啤酒字段的所有值
Worksheets("Data").range("A1",[C1].end(xldown)).Autofilter _
(Field:=2,Criteria1:="啤酒",Operator:=xlFilterValues)
这段代码和Case 1最大不同就是筛选范围是动态的,即A列和C列包含数据的区域,需要注意的是,range(“A1”,[C1].end(xldown))来表示活动区域时,如果运行的工作表不止一个,需要写成range(“A1”,sheets(“Data”).[C1].end(xldown)).
当有Criteria2时,与Criteria1 类似,在Autofilter里加进去即可,就可以用2个条件进行复合筛选;
'选择啤酒,面包字段的所有值
Worksheets("Data").range("A1",[C1].end(xldown)).Autofilter _
(Field:=2,Criteria1:="啤酒",Operator:=xlOr,Criteria2:="面包")
但是,上述代码最多只能进行啤酒”,“面包”两个字段“的筛选,如果想进行3个及以上字段的筛选呢?这个时候,可以采用一维数组Array来解决这个问题;
'选择啤酒,面包,香肠字段的所有值
Worksheets("Data").range("A1",[C1].end(xldown)).Autofilter _
(Field:=2,Criteria1:=Array("啤酒","面包","香肠"),Operator:=xlFilterValues)
当筛选的字段总数为多个(>=5)时,而需要进行筛选的字段也为多个时,除了用数组,可以也采用反向筛选的方法;
'选择除了猪排以外的字段的所有值
Worksheets("Data").range("A1",[C1].end(xldown)).Autofilter _
(Field:=2,Criteria1:="<>猪排",Operator:=xlFilterValues)
假定所有字段分别为“啤酒”,“面包”,“香肠”,“牛排”,“蛋糕”,“猪排”,需要筛选除“猪排”外所有字段,与此类似,如果反选有“猪排”和“蛋糕”两个字段,Criteria2参数加上即可,如下述。
'选择除了猪排,蛋糕以外的字段的所有值
Worksheets("Data").range("A1",[C1].end(xldown)).Autofilter _
(Field:=2,Criteria1:="<>猪排",Operator:=xlOr,Criteria2:="<>蛋糕")
综上所述,结合正向筛选和反向筛选字段的方法可以将VBA Autofilter用得比较灵活,基本可以解决所有的筛选问题;
但是,有人可能会好奇,既然正向筛选可以进行3个及以上字段的筛选,那么反向筛选是否可以实现呢?
首先,需要明确的是,Autofilter的方法没有3个及以上的Criteria,因此无法用CriteriaX的方法实现;其次,前面采用一维数组实现多个字段正向筛选,那么反向筛选可以么?
例如↓
'选择除了啤酒,面包,香肠以外的字段的所有值
Worksheets("Data").range("A1",[C1].end(xldown)).Autofilter _
(Field:=2,Criteria1:=Array("<>啤酒","<>面包","<>香肠"),Operator:=xlFilterValues)
理想很丰满,现实很骨感。一维数组无法实现3个及以上字段的反向删选。
查了一些资料,结合自己的想法,认为可以通过一下两种方法实现:
1>.数组+循环;
Sub FilterDemo()
Dim rng As Range
Dim Arr_Filter as variant,Arr_New as variant
Dim n as integer
Set rng = Sheets("Data").Range("A:C") '筛3列,A-C列;
Arr_Filter=array("啤酒","面包","香肠","蛋糕","猪排")
n=0
for each ar in Arr_Filter
if ar<>"啤酒" and ar<>"面包" and ar<>"香肠" then
Arr_New(n)=ar
n=n+1
end if
### 最后
**[开源分享:【大厂前端面试题解析+核心总结学习笔记+真实项目实战+最新讲解视频】](https://bbs.csdn.net/forums/4304bb5a486d4c3ab8389e65ecb71ac0)**
**给大家分享一些关于HTML的面试题。**
![](https://img-blog.csdnimg.cn/img_convert/38802cfceb61d2d552c18a7efe463136.webp?x-oss-process=image/format,png)
![](https://img-blog.csdnimg.cn/img_convert/0ab53a40fc9a0b05064e7541d2bdd9b1.webp?x-oss-process=image/format,png)
orums/4304bb5a486d4c3ab8389e65ecb71ac0)**
**给大家分享一些关于HTML的面试题。**
[外链图片转存中...(img-S4bUOF5G-1715778976885)]
[外链图片转存中...(img-gAKqBq8C-1715778976886)]