CalculatedMembers.Add-Methode (Excel)

Artikel
04/07/2023

Fügt ein berechnetes Feld oder ein berechnetes Element zu PivotTable hinzu. Gibt ein CalculatedMember-Objekt zurück.

Syntax

Ausdruck. Add (Name, Formula, SolveOrder, Type, Dynamic, DisplayFolder, HierarchizeDistinct)

Ausdruck Eine Variable, die ein CalculatedMembers-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Name	Erforderlich	String	Der Name des berechneten Elements.
Formula	Erforderlich	String	Die Formel des berechneten Elements.
SolveOrder	Optional	Variant	Die Lösungsreihenfolge für das berechnete Element.
Typ	Optional	Variant	Der Typ des berechneten Elements.
Dynamic	Optional	Boolescher Wert	Gibt an, ob das berechnete Element bei jeder Aktualisierung neu berechnet wird.
DisplayFolder	Optional	String	Der Name des Anzeigeordners für das berechnete Element.
HierarchizeDistinct	Optional	Boolescher Wert	Gibt an, ob Duplikate sortiert und entfernt werden sollen, wenn die Hierarchie des berechneten Elements in einem PivotTable-Bericht basierend auf einem OLAP-Cube angezeigt wird.

Rückgabewert

Ein CalculatedMember-Objekt, das das neue berechnete Feld oder das berechnete Element darstellt.

Hinweise

Das Argument Formula muss eine gültige MDX-Syntaxanweisung (Multidimensional Expression) besitzen. Das Argument Name muss für den OLAP-Anbieter (Online Analytical Processing) akzeptabel sein, und das Argument Type muss definiert werden.

Wenn Sie das Type-Argument dieser Methode auf xlCalculatedSet festlegen, müssen Sie die AddSet-Methode des CubeFields-Objekts aufrufen, um den neuen Feldsatz in der PivotTable sichtbar zu machen.

Beispiel

Im folgenden Beispiel wird einer PivotTable eine Datenreihe hinzugefügt.

Hinweis

Für die Ausführung des Beispiels ist eine Verbindung mit dem Cube und einer vorhandenen PivotTable erforderlich.

Sub UseAddSet() 
 
 Dim pvtOne As PivotTable 
 Dim strAdd As String 
 Dim strFormula As String 
 Dim cbfOne As CubeField 
 
 Set pvtOne = ActiveSheet.PivotTables(1) 
 
 strAdd = "[MySet]" 
 strFormula = "'{[Product].[All Products].[Food].children}'" 
 
 ' Establish connection with data source if necessary. 
 If Not pvtOne.PivotCache.IsConnected Then pvtOne.PivotCache.MakeConnection 
 
 ' Add a calculated member titled "[MySet]" 
 pvtOne.CalculatedMembers.Add Name:=strAdd, _ 
 Formula:=strFormula, Type:=xlCalculatedSet 
 
 ' Add a set to the CubeField object. 
 Set cbfOne = pvtOne.CubeFields.AddSet(Name:="[MySet]", _ 
 Caption:="My Set") 
 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über