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
使用 篩選 (索引) ,其中 index 是篩選標題或索引編號,可傳回單一 Filter 物件。 下列範例會將變數設定為 Crew 工作表上篩選範圍中第一欄篩選的 On 屬性值。
Set w = Worksheets("Crew")
If w.AutoFilterMode Then
filterIsOn = w.AutoFilter.Filters(1).On
End If
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。