Objeto Filters (Excel)

Una colección de objetos Filter que representa todos los filtros de un rango filtrado automáticamente.

Ejemplo

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 Filtros (índice), donde índice es el título o el número de índice del filtro, para devolver un solo 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

Propiedades

Vea también

Soporte técnico y comentarios

¿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.

  • Last updated on