《Excel VBA编程自动筛选.docx》由会员分享，可在线阅读，更多相关《Excel VBA编程自动筛选.docx（3页珍藏版）》请在三一办公上搜索。
1、Excel VBA编程 自动筛选Excel VBA编程 自动筛选 自动筛选是一种快捷的筛选方法。在VBA中，可以使用AutoFilter对象代表对指定工作表的自动筛选。下面主要介绍AutoFilter对象的方法和属性，其功能如表16-5所示。 表16-5 AutoFilter对象方法和属性功能表 方法 名称 说明 ApplyFilter 应用指定的Autofilter对象。 ShowAllData 显示AutoFilter对象返回的所有数据。 Application 如果不使用对象识别符，则该属性返回一个Application对象，该对象表示Excel应用程序。 FilterMode 如果工作
2、表的筛选模式为自动筛选，则返回True。 Filters 返回一个Filters集合，该集合表示自动筛选区域中的所有筛选器。 Parent 返回指定对象的父对象。 Range 返回一个Range对象，它代表应用指定的“自动筛选”的区域。 Sort 获取AutoFilter 集合的排序列和排序次序。 属性 1筛选数据 用户可以使用AutoFilter方法的功能进行筛选数据，其语法如下： 表达式.AutoFilter(Field, Criteria1, Operator, Criteria2, VisibleDropDown) 其中，AutoFilter方法的各参数功能如下： l l l l l
3、Field 作为筛选基准字段的字段的整型偏移量。 Criteria1 筛选条件。如果省略该参数，则搜索条件为All。 Operator 指定筛选类型。 Criteria2 第二个筛选条件。其中，该参数与Criteria1和Operator参数一起组合成复合筛选条件。 VisibleDropDown 如果为True，则显示筛选字段的自动筛选下拉箭头。如果为False，则隐藏筛选字段的自动筛选下拉箭头。 例如，本例从工作表Sheet1上的A1单元格开始筛选出一个清单，该清单中只显示“酸奶”的数据，其代码如下： Sub 自动筛选 Worksheets(Sheet1).Range(A2:H35).Au
4、toFilter 4, 酸奶 End Sub 运行上面的代码，即可得到如图16-5所示的筛选结果。 筛选结果 图16-5 筛选结果 若需要隐藏字段名后面的下拉箭头，只需将代码修改为“Worksheets(Sheet1).Range(D2:D35).AutoFilter 1, 酸奶, VisibleDropDown:=False”，运行该代码，其结果如图16-6所示。 筛选 图16-6 筛选并隐藏筛选箭头 2取消筛选 若用户需要查看筛选前的源数据，可以使用ShowAllData方法，使当前筛选列表的所有行均可见。 语法：表达式.ShowAllData 例如，输入以下代码，即可对筛选后的数据全部显示出来。 Sub 取消筛选 Worksheets(Sheet1).ShowAllData End Sub
