Klasse CalculatedFields - berechneten Felde (Excel VBA)

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

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

For Each

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

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

Add

Erstellt ein neues berechnetes Feld.

Add (Name, Formula, UseStandardFormula)

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

Arguments

Hier sind die benannte Argumente :

Name (String) - Der Name des Felds.

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

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.PivotTable.CalculatedFields.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 pvtfCalculatedField As PivotField
Set pvtfCalculatedField = ActiveCell.PivotTable.CalculatedFields(Index:=1)