VBA经典应用69例:Range.AutoFilter方法

《VBA经典应用69例》(版权10178981),是我推出的第九套教程,教程是专门针对初级、中级学员在学习VBA过程中可能遇到的案例展开,这套教程案例众多,紧贴“实战”,并做“战术总结”,以便大家能很好的应用。教程的目的是要求大家在实际工作中要利用好VBA。本套教程共三册六十九个专题,今日内容:VBA经典应用69例:Range.AutoFilter方法VBA经典应用69例:Range.AutoFilter方法_第1张图片

【分享成果,随喜正能量】什么是成年人最顶级的自律呢?就是不拆穿,但是会远离,

不动声色的淘汰身边的烂人烂事。黄连救人无功,人参杀人无过.。

应用4  VBA中的自动筛选(Autofilter)

大家好,我们这个专题讲解VBA中的自动筛选(Autofilter),一般情况下,我们学习VBA之前都比较熟悉了Excel的利用,为了进一步提高效率,才学习VBA,把VBA宏派上用场。在Excel工作表中,我们可以轻松地根据标准功能,使用"数据"菜单内的"筛选"功能,完成多种多样的筛选以处理各式各样的信息。我们这讲的内容是利用VBA完成自动筛选。

对于应用而言,从小数据集合中过滤掉必要的信息可以使用"筛选"功能。但是,如果你希望根据多个标准和条件过滤大量数据,利用VBA自动过滤器功能可以更轻松。它可以为你节省大量的时间和精力。例如,假设你希望筛选下拉列表中的某些信息(基于多个标准),然后将结果复制/粘贴到其他工作表中。如果手动完成,这似乎是一项非常耗时的任务。在这种情况下,VBA可以帮助你自动化完成这个过程。

1Range.AutoFilter方法

语法:expression.AutoFilter(Field, Criteria1, Operator, Criteria2, SubField, VisibleDropDown)

expression:一个返回 Range 对象的表达式。

参数:

① Field可选Variant相对于作为筛选基准字段(从列表左侧开始,最左侧的字段为第一个字段)的字段的整型偏移量。

② Criteria1 可选Variant条件(字符串;例如,“101”)。 使用 "=" 查找空白字段,使用 "<>" 查找非空白字段,使用 ">无数据)字段。如果此参数被省略,条件为“全部”。 如果 Operator 是 xlTop10Items,则 Criteria1 指定项数(例如“10”)。

③ Operator 可选XlAutoFilterOperator一个指定筛选器类型的 XlAutoFilterOperator 常量。

④ Criteria2可选Variant第二个条件(字符串)。 与 Criteria1 和 Operator 一起组合成复合筛选条件。 也用作日期字段的单一条件(按日、月或年筛选)。 后跟一个数组,该数组用于详述和筛选 Array(Level, Date)。 其中,Level 为 0-2(年、月、日),Date 为筛选期内的一个有效日期。

⑤ SubField可选Variant对其应用条件的数据类型中的字段(例如,来自地理位置的“人口”字段或来自股票的“交易量”字段)。 省略此值目标是“(显示值)”。

⑥ VisibleDropDown可选Variant如果为 True,则显示已筛选字段的 AutoFilter 下拉箭头。 如果为 False,则隐藏已筛选字段的 AutoFilter 下拉箭头。 默认情况下为 True。

l如果忽略全部参数,此方法仅在指定区域切换自动筛选下拉箭头的显示。如果此功能已经应用,代码将删除它们。

XlAutoFilterOperator 枚举值:

1)xlAnd1Criteria1 和 Criteria2 的逻辑与

2)xlBottom10Items4显示最低值项 (在 Criteria1 中指定的项目数)

3)xlBottom10Percent6显示最低值项 (在 Criteria1 中指定的百分比)

4)xlFilterCellColor8单元格颜色

5)xlFilterDynamic11动态筛选

6)xlFilterFontColor9字体颜色

7)xlFilterIcon10筛选图标

8)xlFilterValues7筛选值

9)xlOr2Criteria1 或 Criteria2 的逻辑或

10)xlTop10Items3显示最高值项 (在 Criteria1 中指定的项目数)

11)xlTop10Percent5显示最高值项 (Criteria1 中指定的百分比)

本讲内容参考程序文件:应用003.xlsm

VBA经典应用69例:Range.AutoFilter方法_第2张图片

我20多年的VBA实践经验,全部浓缩在下面的各个教程中:

VBA经典应用69例:Range.AutoFilter方法_第3张图片


VBA经典应用69例:Range.AutoFilter方法_第4张图片

你可能感兴趣的:(VBA,OFFICE,开发语言)