Объект Filters (Excel)Filters object (Excel)

Коллекция объектов Filter , которые представляют все фильтры в диапазоне с автофильтром.A collection of Filter objects that represents all the filters in an autofiltered range.

ПримерExample

Используйте свойство Filters объекта автофильтра , чтобы возвратить коллекцию Filters .Use the Filters property of the AutoFilter object to return the Filters collection. В следующем примере создается список, который содержит критерии и операторы для фильтров в диапазоне автофильтра на листе Крев.The following example creates a list that contains the criteria and operators for the filters in the autofiltered range on the Crew worksheet.

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), где index — это название фильтра или номер индекса, чтобы вернуть один объект Filter .Use Filters (index), where index is the filter title or index number, to return a single Filter object. В примере ниже показано, как задать для переменной значение свойства On фильтра для первого столбца в отфильтрованном диапазоне на листе Крев.The following example sets a variable to the value of the On property of the filter for the first column in the filtered range on the Crew worksheet.

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

СвойстваProperties

См. такжеSee also

Поддержка и обратная связьSupport and feedback

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.