Excel VBA教程:Filters集合对象

Worksheets (Worksheet)
AutoFilter
Filters (Filter)

Filter对象的集合,这些对象代表自动筛选区域中的所有筛选。

Filters集合的用法

可用 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对象,其中 index 为筛选名称或索引编号。下例将变量设为工作表“Crew”筛选区域中第一列的筛选的 On属性值。


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

上页:Excel VBA教程:Filter对象 下页:Excel VBA教程:Floor对象

Excel VBA教程:Filters集合对象

Excel VBA教程:Floor对象 Excel VBA教程:Font对象
Excel VBA教程:FormatCondition对象 Excel VBA教程:FormatConditions集合对象
Excel VBA教程:FreeformBuilder对象 Excel VBA教程:Graphic对象
Excel VBA教程:Gridlines对象 Excel VBA教程:GroupShapes集合对象
Excel VBA教程:HiLoLines对象 Excel VBA教程:HPageBreak对象
Excel VBA教程:HPageBreaks集合对象 Excel VBA教程:Hyperlink对象
Excel VBA教程:Hyperlinks集合 Excel VBA教程:Interior对象
Excel VBA教程:IRtdServer对象 Excel VBA教程:IRTDUpdateEvent对象
Excel VBA教程:LeaderLines对象 Excel VBA教程:Legend对象
Excel VBA教程:LegendEntries集合对象 Excel VBA教程:LegendEntry对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号