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 支援與意見反應。