Classe PivotFormulas - a coleção de fórmulas para um relatório de tabela dinâmica (Excel VBA)

A classe PivotFormulas representa a coleção de fórmulas para um relatório de tabela dinâmica. Cada fórmula é representada por um objeto PivotFormula . Para usar uma variável de classe PivotFormulas, ela primeiro precisa ser instanciada por exemplo

Dim pfs as PivotFormulas
Set pfs = ActiveCell.PivotTable.PivotFormulas

For Each

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

Dim pvtfor As PivotFormula
For Each pvtfor In ActiveCell.PivotTable.PivotFormulas
	
Next pvtfor

Add

Cria uma nova fórmula de tabela dinâmica.

Add (Formula, UseStandardFormula)

Worksheets(1).PivotTables(1).PivotFormulas _ 
 .Add "Year['1998'] Apples = (Year['1997'] Apples) * 2"

Arguments

O seguinte argumento é necessário

Formula (String) - A nova fórmula de tabela dinâmica.

Optional arguments

The following argument is optional

UseStandardFormula - Uma fórmula de tabela dinâmica padrão

Count

Retorna um valor Long que representa o número de objetos na coleção.

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

Item

Retorna um único objeto de uma coleção.

Item (Index)

Index: O nome ou número de índice do objeto.

Dim pvtfor As PivotFormula
Set pvtfor = ActiveCell.PivotTable.PivotFormulas(Index:=1)