Objeto Filters (Excel)
Colección de objetos Filter que representa todos los filtros de un intervalo autofiltrado.
Utilice la propiedad Filters del objeto AutoFilter para devolver la colección Filters . En el siguiente ejemplo se crea una lista que contiene los criterios y los operadores para los filtros del rango autofiltrado de la hoja de cálculo 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 Filters (index), donde index es el título del filtro o el número de índice, para devolver un único objeto Filter . En el siguiente ejemplo se establece una variable en el valor de la propiedad On del filtro para la primera columna del rango filtrado de la hoja de cálculo Crew.
Set w = Worksheets("Crew")
If w.AutoFilterMode Then
filterIsOn = w.AutoFilter.Filters(1).On
End If
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.