Clase CubeFields (Excel VBA)

Colección de todos los objetos CubeField de un informe de tabla dinámica basado en un cubo OLAP.

Para usar una variable de clase CubeFields, primero debe ser instanciado, por ejemplo

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

Las variables de tipo CubeFields se pueden establecer utilizando el procedimiento PivotTable.CubeFields

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos CubeFields en una colección.

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

AddSet

Agrega un nuevo objeto CubeField a la colección CubeFields .

Si no existe un conjunto con el nombre indicado en el argumento Name, el método AddSet devolverá un error en tiempo de ejecución.

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

Estos son los argumentos con nombre :

Name (String) - Nombre válido en el conjunto de filas SETS del esquema.

Caption (String) - Cadena que representa el campo que aparecerá en la vista de tabla dinámica.

Count

Devuelve un valor Long que representa el número de objetos de la colección.

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

GetMeasure

Dada una jerarquía de atributo, devuelve una medida implícita para la función especificada que corresponde a este atributo.

Para obtener una medida, use la función GetMeasure solo funcionará para estas funciones: Count, SUM, Average, Maxy min. Por ejemplo, trabajarán:

GetMeasure (AttributeHierarchy, Function, Caption)

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

Arguments

Estos son los argumentos con nombre :

AttributeHierarchy (XlCubeFieldSubType) - El campo de cubo único que es una jerarquía de atributo (XlCubeFieldType = xlHierarchyy XlCubeFieldSubType = xlCubeAttribute).


Aquí puede ver valores posibles para

XlCubeFieldSubType

Function (XlConsolidationFunction) - Función que se ejecuta en el campo de datos agregado.


Aquí puede ver valores posibles para

XlConsolidationFunction

Optional arguments

Los siguientes argumentos son opcionales

Caption (String) - La etiqueta usada en el informe de tabla dinámica para identificar esta medida.

Item

Devuelve un solo objeto de una colección.

Item (Index)

Index: Nombre o número de índice del objeto.

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