本文总共2021个字,阅读需7分钟,全文加载时间:2.111s,本站综合其他专栏收录该内容! 字体大小:

文章导读:【分享成果,随喜正能量】只有在你工作堆积如山时,你才可能享受闲暇。当你无事可做时,空闲就变得一点也不有趣,因为空闲就是你的工作,而且是最耗人的工作。闲暇,当被盗走了之后,它的味道才是甜的。 《VBA经典……各位看官请向下阅读:

分享成果,随喜正能量】只有在你工作堆积如山时,你才可能享受闲暇。当你无事可做时,空闲就变得一点也不有趣,因为空闲就是你的工作,而且是最耗人的工作。闲暇,当被盗走了之后,它的味道才是甜的。

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

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

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

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

1 Range.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。

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

XlAutoFilterOperator 枚举值:

1) xlAnd 1 Criteria1 和 Criteria2 的逻辑与

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

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

4) xlFilterCellColor 8 单元格颜色

5) xlFilterDynamic 11 动态筛选

6) xlFilterFontColor 9 字体颜色

7) xlFilterIcon 10 筛选图标

8) xlFilterValues 7 筛选值

9) xlOr 2 Criteria1 或 Criteria2 的逻辑或

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

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

【待续】

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

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

分享成果,随喜正能量】淡字,一半是水,一半是火;人生,一半是披荆斩棘,一半是急流勇退。水火本不相融,造字者巧妙地将二者融汇贯通在一起,揭示了“淡”的真味:刚柔相济。人生的“淡”,既需要披荆斩棘的拿得起,更需要急流勇退的放得下。月亏则圆,月圆则亏,人生的至境,不是一味的“进”,更不是一味的“退”。。

以上内容由优质教程资源合作伙伴 “鲸鱼办公” 整理编辑,如果对您有帮助欢迎转发分享!

你可能对这些文章感兴趣:

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注