Klasse PivotFormula (Excel VBA)

Die Klasse PivotFormula stellt eine Formel dar, die zur Berechnung von Ergebnissen in einem PivotTable-Bericht verwendet wird.

Set

Um eine PivotFormula -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim pvtfor as PivotFormula
Set pvtfor = ActiveCell.PivotTable.PivotFormulas(Index:=1)

Die folgenden Prozeduren können zum Festlegen der PivotFormula Klassenvariablen verwendet werden : PivotFormulas.Item, PivotFormulas.Add und PivotTable.PivotFormulas

For Each

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

Dim pvtfor As PivotFormula
For Each pvtfor In ActiveCell.PivotTable.PivotFormulas
	
Next pvtfor

Delete

Löscht das Objekt.

ActiveCell.PivotTable.PivotFormulas(1).Delete

Formula

Gibt einen String-Wert zurück, der die Formel des Objekts in der A1-Schreibweise und in der Sprache des Makros darstellt, oder legt diesen fest.

Diese Eigenschaft ist für OLAP-Datenquellen nicht verfügbar. Wenn die Zelle eine Konstante enthält, gibt die Eigenschaft die Konstante zurück. Wenn Sie für den Wert oder die Formel einer Zelle ein Datum festlegen, prüft Microsoft Excel, ob die Zelle bereits mit einem der Datums- oder Zeitformate formatiert wurde. Wenn der Bereich einen ein- oder zweidimensionalen Bereich darstellt, können Sie für die Formel eine Visual Basic-Matrix mit derselben Dimension festlegen. Beim Festlegen der Formel für einen Bereich mit mehreren Zellen wird die Formel in alle Zellen des Bereichs eingetragen.

ActiveCell.PivotTable.PivotFormulas(1).Formula =

Index

Gibt zurück oder legt einen Long -Wert, der die Indexnummer des PivotFormula -Objekts in der PivotFormulas -Auflistung darstellt.

ActiveCell.PivotTable.PivotFormulas(1).Index =

Parent

Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

StandardFormula

Gibt einen String-Wert zurück oder legt diesen fest, der für Formeln das Standardformat "Englisch (USA)" angibt.

Die StandardFormulaStandardFormula-Eigenschaft wirkt sich in erster Linie auf Elementnamen aus, die ein Datums- oder Zahlenformat besitzen. Die StandardFormula -Eigenschaft ist "International Friendly", wohingegen die Formula -Eigenschaft nicht ist.

ActiveCell.PivotTable.PivotFormulas(1).StandardFormula = "Decimals + 10"

Value

Gibt einen String-Wert zurück, der den Namen der angegebenen Formel in der PivotTable-Formel darstellt, oder legt diesen fest.

ActiveCell.PivotTable.PivotFormulas(1).Value =

PivotFormulas.Add

Erstellt eine neue PivotTable-Formel.

Syntax : expression.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.

Das folgendes Argument ist optional

UseStandardFormula - Eine Standard-PivotTable-Formel

PivotFormulas.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

PivotFormulas.Item

Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Syntax : expression.Item (Index)

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

Dim pvtfor As PivotFormula
Set pvtfor = ActiveCell.PivotTable.PivotFormulas(Index:=1)

PivotFormulas.Parent

Gibt das übergeordnete Objekt für das angegebene Objekt zurück.