作者：iamlaosong
用VBA程序处理Excel数据文件。用户的数据文件有时处于自己主动筛选模式，往往导致数据处理不对。为此，须要检測工作表是否处于该模式，假设是，则去掉自己主动筛选。语句例如以下：
If ActiveSheet.AutoFilterMode = True Then Selection.AutoFilter
这个语句一般仅仅用于去掉自己主动筛选，尽管Selection.AutoFilter也能够加上自己主动筛选，但筛选位置却可能在当前单元格处，所以要注意。加自己主动筛选前，现将单元格定位到字段标题处。然后用例如以下语句：
If ActiveSheet.AutoFilterMode = False Then Selection.AutoFilter
假设检測其他非活跃的工作表，能够用以下语句：
If Worksheets("sheet1").AutoFilterMode = True Then
Worksheets("sheet1").Range("A1").AutoFilter
附：
Range.AutoFilter Method
| Excel Developer Reference |
Filters a list using the AutoFilter.
Syntax
expression.AutoFilter(Field, Criteria1, Operator, Criteria2, VisibleDropDown)
expression An expression that returns a Range object.
Parameters
| Name | Required/Optional | Data Type | Description |
|---|---|---|---|
| Field | Optional | Variant | The integer offset of the field on which you want to base the filter (from the left of the list; the leftmost field is field one). |
| Criteria1 | Optional | Variant |
The criteria (a string; for example, "101"). Use "=" to find blank fields, or use "<>" to find nonblank fields. If this argument is omitted, the criteria is All. If Operator is xlTop10Items, Criteria1 specifies the number of items (for example, "10"). |
| Operator | Optional | XlAutoFilterOperator | One of the constants of XlAutoFilterOperator specifying the type of filter. |
| Criteria2 | Optional | Variant |
The second criteria (a string). Used with Criteria1 and Operator to construct compound criteria. |
| VisibleDropDown | Optional | Variant |
True to display the AutoFilter drop-down arrow for the filtered field. False to hide the AutoFilter drop-down arrow for the filtered field. True by default. |
Return Value
Variant
Remarks
If you omit all the arguments, this method simply toggles the display of the AutoFilter drop-down arrows in the specified range.
Example
This example filters a list starting in cell A1 on Sheet1 to display only the entries in which field one is equal to the string "Otis". The drop-down arrow for field one will be hidden.
| Visual Basic for Applications |
|---|
|