Klasse CalculatedItems - berechneten Elemente (Excel VBA)

Eine Auflistung von PivotItem -Objekten, die alle berechneten Elemente im angegebenen PivotTable-Bericht darstellt. Um eine CalculatedItems -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

For Each

Hier ist ein Beispiel für die Verarbeitung der CalculatedItems -Elemente in einer Sammlung

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

Add

Erstellt ein neues berechnetes Element.

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

Hier sind die benannte Argumente :

Name (String) - Der Name des Elements.

Formula (String) - Die Formel für das Element.

Optional arguments

Das folgendes Argument ist optional

UseStandardFormula (Boolean) - False (Standardwert) für Aufwärtskompatibilität.

Count

Gibt einen Long-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveCell.PivotField.CalculatedItems.Count

Item

Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Der Textname des Objekts entspricht dem Wert der Eigenschaften Name und value .

Item (Index)

Index: Der Name oder die Indexnummer für das Objekt.

Dim pvtiCalculatedItem As PivotItem
Set pvtiCalculatedItem = ActiveCell.PivotField.CalculatedItems(Index:=1)