On 属性

如果指定的筛选已打开，则该值为 True。Boolean 类型，只读。

示例

下例将变量设置为工作表“Crew”上的筛选区域中第一列的筛选的 Criteria1 属性值。

With Worksheets("Crew")
    If .AutoFilterMode Then
        With .AutoFilter.Filters(1)
            If .On Then c1 = .Criteria1
        End With
    End If
End With