【VBA研究】工作表自动筛选模式检测

作者：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