Objeto Filters (Excel)Filters object (Excel)

Uma coleção de objetos Filter que representa todos os filtros em um intervalo filtrado.A collection of Filter objects that represents all the filters in an autofiltered range.

ExemploExample

Use a propriedade filters do objeto AutoFilter para retornar a coleção Filters . ****Use the Filters property of the AutoFilter object to return the Filters collection. O exemplo a seguir cria uma lista que contém os critérios e os operadores para os filtros no intervalo filtrado automaticamente na planilha Crew.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

Use Filters (index), onde index é o título do filtro ou número de índice, para retornar um único objeto Filter .Use Filters (index), where index is the filter title or index number, to return a single Filter object. O exemplo a seguir define uma variável como o valor da propriedade On do filtro para a primeira coluna no intervalo filtrado na planilha Crew.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

PropriedadesProperties

Confira tambémSee also

Suporte e comentáriosSupport and feedback

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação?Have questions or feedback about Office VBA or this documentation? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.