Klasse PivotFormula - eine Formel in einem PivotTable-Bericht (Excel VBA)

Die Klasse PivotFormula stellt eine Formel dar, die zur Berechnung von Ergebnissen in einem PivotTable-Bericht verwendet wird. Um eine PivotFormula -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

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 =

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 =