Klasse CubeFields (Excel VBA)

Eine Auflistung aller CubeField -Objekte in einem PivotTable-Bericht, der auf einem OLAP-Cube basiert. Um eine CubeFields -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim cfs as CubeFields
Set cfs = ActiveCell.PivotTable.CubeFields

For Each

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

Dim cbf As CubeField
For Each cbf In ActiveCell.CubeFields
	
Next cbf

AddSet

Fügt der CubeFields -Auflistung ein neues CubeField -Objekt hinzu.

Wenn eine Datenreihe mit dem im Argument Name angegebenen Namen nicht vorhanden ist, gibt die AddSet-Methode einen Laufzeitfehler zurück.

AddSet (Name, Caption)

Dim strName As String: strName = 
Dim strCaption As String: strCaption = 
Dim cbfAddSet As CubeField
Set cbfAddSet = ActiveCell.PivotTable.CubeFields.AddSet(Name:=strName, Caption:=strCaption)

Arguments

Hier sind die benannte Argumente :

Name (String) - Ein gültiger Name im SETS-Schemarowset.

Caption (String) - Eine Zeichenfolge, die das Feld darstellt, das in der PivotTable-Ansicht angezeigt wird.

Count

Gibt einen Long-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveCell.PivotTable.CubeFields.Count

GetMeasure

Bei einer Attributhierarchie gibt eine implizite Maßeinheit für die angegebene Funktion zurück, die diesem Attribut entspricht.

Das erhalten eines Measures mithilfe der getmeasure-Funktion funktioniert nur für diese Funktionen: count, Sum, Average, Maxund Min. Dies funktioniert beispielsweise:

GetMeasure (AttributeHierarchy, Function, Caption)

Dim cbfGetMeasure As CubeField
Set cbfGetMeasure = ActiveCell.PivotTable.CubeFields.GetMeasure(AttributeHierarchy:=xlHierarchy, Function:=xlAverage)

Arguments

Hier sind die benannte Argumente :

AttributeHierarchy (XlCubeFieldSubType) - Das eindeutige Cubefeld, das eine Attributhierarchie darstellt (XlCubeFieldType = xlHierarchyund XlCubeFieldSubType = xlCubeAttribute).

Dies sind mögliche Werte für XlCubeFieldSubType

Function - XlConsolidationFunction

Dies sind mögliche Werte für XlConsolidationFunction

Optional arguments

Das folgendes Argument ist optional

Caption (String) - Die im PivotTable-Bericht verwendete Bezeichnung zum Identifizieren dieses Measures.

Item

Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Item (Index)

Index: Der Name oder die Indexnummer des Objekts.

Dim cbfItem As CubeField
Set cbfItem = ActiveCell.PivotTable.CubeFields(Index:=1)