Classe CubeFields (Excel VBA)
Uma coleção de todos os objetos cubefield em um relatório de tabela dinâmica com base em um cubo OLAP. Cada objeto CubeField representa um campo de hierarquia ou de medida do cubo. Para usar uma variável de classe CubeFields, ela primeiro precisa ser instanciada por exemplo
Dim cfs as CubeFields
Set cfs = ActiveCell.PivotTable.CubeFields
For Each
Aqui está um exemplo de processamento dos itens CubeFields em uma coleção.
Dim cbf As CubeField
For Each cbf In ActiveCell.CubeFields
Next cbf
AddSet
Adiciona um novo objeto cubefield à coleção CubeFields . O objeto CubeField corresponde a uma coleção definida no provedor OLAP Online Analytical Processing do cubo.
Se um conjunto com o nome atribuído no argumento Name não existir, o método AddSet retornará um erro em tempo de execução.
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
O seguinte argumento é opcional
Name (String) - Um nome válido no rowset do esquema SETS.
Caption (String) - Uma sequência de caracteres que representa o campo a ser mostrado na exibição de tabela dinâmica.
Count
Retorna um valor Long que representa o número de objetos na coleção.
Dim lngCount As Long
lngCount = ActiveCell.PivotTable.CubeFields.Count
GetMeasure
Dada uma hierarquia de atributo, retorna uma medida implícita para a função fornecida que corresponde a esse atributo. Se uma medida implícita não existir, uma nova medida implícita será criada e adicionada à coleção CubeFields .
Obter uma medida usando a função getmeasure funcionará somente para estas funções: Count, sum, Average, Maxe min. Por exemplo, isso funcionará:
GetMeasure (AttributeHierarchy, Function, Caption)
Dim cbfGetMeasure As CubeField
Set cbfGetMeasure = ActiveCell.PivotTable.CubeFields.GetMeasure(AttributeHierarchy:=xlHierarchy, Function:=xlAverage)
Arguments
O seguinte argumento é opcional
AttributeHierarchy (XlCubeFieldSubType) - O campo de cubo exclusivo que é uma hierarquia de atributo (XlCubeFieldType = xlHierarchye XlCubeFieldSubType = xlCubeAttribute).
Aqui você pode encontrar os valores possíveis para
Function (XlConsolidationFunction) - A função realizada no campo de dados adicionado.
Aqui você pode encontrar os valores possíveis para
Optional arguments
The following argument is optional
Caption (String) - O rótulo usado no relatório de tabela dinâmica para identificar essa medida. Se a medida já existir, a legenda substituirá o rótulo existente dessa medida.
Item
Retorna um único objeto de uma coleção.
Item (Index)
Index: O nome ou número de índice do objeto.
Dim cbfItem As CubeField
Set cbfItem = ActiveCell.PivotTable.CubeFields(Index:=1)