Objeto Filters (Excel)
Uma coleção de objetos Filter que representa todos os filtros em um intervalo autofilterado.
Use a propriedade Filters do objeto AutoFilter para retornar a coleção Filters . 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
Use Filtros (índice), em que o índice é o título do filtro ou o número de índice, para retornar um único objeto Filter . 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
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.