Classe PivotFilters (Excel VBA)

O objeto PivotFilters é uma coleção de objetos PivotFilter . Para usar uma variável de classe PivotFilters, ela primeiro precisa ser instanciada por exemplo

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

For Each

Aqui está um exemplo de processamento dos itens PivotFilters em uma coleção.

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

O seguinte argumento é necessário

Type - XlPivotFilterType

Aqui você pode encontrar os valores possíveis para XlPivotFilterType

Optional arguments

Os seguintes argumentos são opcionais

DataField

Value1

Value2

Order

Name - String

Description - String

MemberPropertyField

WholeDayFilter

Count

Retorna o número de itens na coleção PivotFilters. Somente leitura.

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

Item

Retorna um elemento específico do objeto da coleção PivotFilters pela respectiva posição na coleção. Somente leitura.

Item (Index)

Index: Especifica a posição de um elemento da coleção.

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