Klasse PivotFormulas (Excel VBA)
Die Klasse PivotFormulas stellt die Auflistung von Formeln eines PivotTable-Berichts dar. Um eine PivotFormulas -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise
Dim pfs as PivotFormulas
Set pfs = ActiveCell.PivotTable.PivotFormulas
For Each
Hier ist ein Beispiel für die Verarbeitung der PivotFormulas -Elemente in einer Sammlung
Dim pvtfor As PivotFormula
For Each pvtfor In ActiveCell.PivotTable.PivotFormulas
Next pvtfor
Add
Erstellt eine neue PivotTable-Formel.
Add (Formula, UseStandardFormula)
Worksheets(1).PivotTables(1).PivotFormulas _
.Add "Year['1998'] Apples = (Year['1997'] Apples) * 2"
Arguments
Ein benanntes Argument
Formula (String) - Die neue PivotTable-Formel.
Optional arguments
Das folgendes Argument ist optional
UseStandardFormula - Eine Standard-PivotTable-Formel
Count
Gibt einen Long-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.
Dim lngCount As Long
lngCount = ActiveCell.PivotTable.PivotFormulas.Count
Item
Gibt ein einzelnes Objekt aus einer Auflistung zurück.
Item (Index)
Index: Der Name oder die Indexnummer für das Objekt.
Dim pvtfor As PivotFormula
Set pvtfor = ActiveCell.PivotTable.PivotFormulas(Index:=1)