Clase PivotFilters (Excel VBA)

El objeto PivotFilters es una colección de objetos PivotFilter . Para usar una variable de clase PivotFilters, primero debe ser instanciado, por ejemplo

Dim pfs as PivotFilters
Set pfs = ActiveCell.PivotTable.ActiveFilters

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos PivotFilters en una colección.

Dim pvtfil As PivotFilter
For Each pvtfil In ActiveCell.PivotTable.PivotFilters
	
Next pvtfil

Add2

Add2 (Type, DataField, Value1, Value2, Order, Name, Description, MemberPropertyField, WholeDayFilter)

Dim pvtfilAdd2 As PivotFilter
Set pvtfilAdd2 = ActiveCell.PivotTable.ActiveFilters.Add2(Type:=xlAfter)

Arguments

Un argumento con nombre

Type - XlPivotFilterType

Aquí puede ver valores posibles para XlPivotFilterType

Optional arguments

Los siguientes argumentos son opcionales

DataField

Value1

Value2

Order

Name - String

Description - String

MemberPropertyField

WholeDayFilter

Count

Devuelve la cantidad de elementos que se incluyen en la colección PivotFilters.

Dim lngCount As Long
lngCount = ActiveCell.PivotTable.ActiveFilters.Count

Item

Devuelve un elemento específico del objeto de colección PivotFilters por su posición en la colección.

Item (Index)

Index: Especifica la posición de un elemento de la colección.

Dim pvtfilItem As PivotFilter
Set pvtfilItem = ActiveCell.PivotTable.ActiveFilters(Index:=1)