Clase CalculatedFields - campos calculados (Excel VBA)

Colección de objetos PivotField que representa todos los campos calculados del informe de tabla dinámica especificado.

Para usar una variable de clase CalculatedFields, primero debe ser instanciado, por ejemplo

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

Las variables de tipo CalculatedFields se pueden establecer utilizando el procedimiento PivotTable.CalculatedFields

For Each

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

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

Crea un nuevo campo calculado.

Add (Name, Formula, UseStandardFormula)

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

Estos son los argumentos con nombre :

Name (String) - Nombre del campo.

Formula (String) - Fórmula correspondiente al campo.

Los siguientes argumentos son opcionales

UseStandardFormula (Boolean) - False (valor predeterminado) para la compatibilidad con versiones posteriores.

Devuelve un valor Long que representa el número de objetos de la colección.

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

Devuelve un solo objeto de una colección.

El nombre de texto del objeto es el valor de las propiedades Name y Value .

Item (Index)

Index: Número de índice o nombre del objeto.

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