Classe CalculatedFields - campos calculados (Excel VBA)

Uma coleção de objetos PivotField que representa todos os campos calculados no relatório de tabela dinâmica especificado. Para usar uma variável de classe CalculatedFields, ela primeiro precisa ser instanciada por exemplo

Dim cfs as CalculatedFields
Set cfs = ActiveCell.PivotTable.CalculatedFields()

For Each

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

Dim pvtfCalculatedField As PivotField
For Each pvtfCalculatedField In Application.CalculatedFields()
	
Next pvtfCalculatedField

Add

Cria um novo campo calculado. Retorna um objeto PivotField.

Add (Name, Formula, UseStandardFormula)

Worksheets(1).PivotTables(1).CalculatedFields.Add "PxS", _ 
 "= Product * Sales"

Arguments

O seguinte argumento é opcional

Name (String) - O nome do campo.

Formula (String) - A fórmula do campo.

Optional arguments

The following argument is optional

UseStandardFormula (Boolean) - False (padrão) para compatibilidade com versões posteriores. True para cadeias de caracteres contidas em quaisquer argumentos que são nomes de campo; será interpretado como tendo sido formatado em inglês americano padrão em vez de configurações locais.

Count

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

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

Item

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

O nome de texto do objeto é o valor das propriedades Name e Value .

Item (Index)

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

Dim pvtfCalculatedField As PivotField
Set pvtfCalculatedField = ActiveCell.PivotTable.CalculatedFields(Index:=1)