Clase CalculatedItems - elementos calculado (Excel VBA)

Colección de objetos PivotItem que representa todos los elementos calculados del informe de tabla dinámica especificado. Para usar una variable de clase CalculatedItems, primero debe ser instanciado, por ejemplo

Dim cis as CalculatedItems
Set cis = ActiveCell.PivotField.CalculatedItems()

For Each

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

Dim pvtiCalculatedItem As PivotItem
For Each pvtiCalculatedItem In Application.CalculatedItems()
	
Next pvtiCalculatedItem

Add

Crea un nuevo elemento calculado.

Add (Name, Formula, UseStandardFormula)

Dim strName As String: strName = 
Dim strFormula As String: strFormula = 
Dim pvti As PivotItem
Set pvti = ActiveCell.PivotField.CalculatedItems.Add(Name:=strName, Formula:=strFormula)

Arguments

Estos son los argumentos con nombre :

Name (String) - Nombre del elemento.

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

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.PivotField.CalculatedItems.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 pvtiCalculatedItem As PivotItem
Set pvtiCalculatedItem = ActiveCell.PivotField.CalculatedItems(Index:=1)