使用英语阅读

通过


筛选 excel) (对象

Filter 对象的集合,该集合代表自动筛选范围中的所有筛选器。

示例

使用 AutoFilter 对象的 Filters 属性可返回 Filters 集合。 下例创建一个列表,其中包含工作表 Crew 中已自动筛选的区域内所有筛选的条件和运算符。

Dim f As Filter 
Dim w As Worksheet 
Const ns As String = "Not set" 
 
Set w = Worksheets("Crew") 
Set w2 = Worksheets("FilterData") 
rw = 1 
For Each f In w.AutoFilter.Filters 
 If f.On Then 
 c1 = Right(f.Criteria1, Len(f.Criteria1) - 1) 
 If f.Operator Then 
 op = f.Operator 
 c2 = Right(f.Criteria2, Len(f.Criteria2) - 1) 
 Else 
 op = ns 
 c2 = ns 
 End If 
 Else 
 c1 = ns 
 op = ns 
 c2 = ns 
 End If 
 w2.Cells(rw, 1) = c1 
 w2.Cells(rw, 2) = op 
 w2.Cells(rw, 3) = c2 
 rw = rw + 1 
Next

使用 Filters (索引) (其中 index 是筛选器标题或索引号)返回单个 Filter 对象。 下例将一个变量设置为工作表 Crew 上的筛选区域中第一列的筛选的 On 属性的值。

Set w = Worksheets("Crew") 
If w.AutoFilterMode Then 
 filterIsOn = w.AutoFilter.Filters(1).On 
End If

属性

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。