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()

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

Add

Crea un nuevo campo calculado.

Add (Name, Formula, UseStandardFormula)

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

Arguments

Estos son los argumentos con nombre :

Name (String) - Nombre del campo.

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

Optional arguments

Los siguientes argumentos son opcionales

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

Count

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

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

Item

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)