VBA在Excel中的应用（二）

VBA在Excel中的应用（二）2010-01-29 博客园 Jaxu目录

AutoFilter

Binding

Cell Comments

Cell Copy

Cell Format

Cell Number Format

Cell Value

Cell

AutoFilter

1.确认当前工作表是否开启了自动筛选功能

Sub filter（）
If ActiveSheet.AutoFilterMode Then
MsgBox "Turned on"
End If
End Sub

当工作表中有单元格使用了自动筛选功能，工作表的AutoFilterMode的值将为True，否则为False。

2.使用Range.AutoFilter方法

Sub Test（）
Worksheets（"Sheet1"）.Range（"A1"）.AutoFilter _
field:=1, _
Criteria1:="Otis"
VisibleDropDown:=False
End Sub

以上是一段来源于Excel帮助文档的例子，它从A1单元格开始筛选出值为Otis的单元格。Range.AutoFilter方法可以带参数也可以不带参数。当不带参数时，表示在Range对象所指定的区域内执行“筛选”菜单命令，即仅显示一个自动筛选下拉箭头，这种情况下如果再次执行Range.AutoFilter方法则可以取消自动筛选；当带参数时，可根据给定的参数在Range对象所指定的区域内进行数据筛选，只显示符合筛选条件的数据。参数Field为筛选基准字段的整型偏移量，Criterial1、Operator和Criterial2三个参数一起组成了筛选条件，最后一个参数VisibleDropDown用来指定是否显示自动筛选下拉箭头。

其中Field参数可能不太好理解，这里给一下说明：