Objeto Filtros (Excel)

Uma coleção de objetos filter que representa todos os filtros num intervalo filtrado automaticamente.

Exemplo

Utilize a propriedade Filtros do objeto Filtro Automático para devolver a coleção Filtros . 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.

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

Utilize Filtros (índice), em que o índice é o título do filtro ou o número do índice, para devolver um único objeto Filtro . 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.

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

Propriedades

• Application
• Count
• Creator
• Item
• Parent

Confira também

• Referência do modelo de objeto do Excel

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? 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.