Método CubeFields.GetMeasure (Excel)
Dada uma hierarquia de atributo, retorna uma medida implícita para a função determinada 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 .
Sintaxe
expressão. GetMeasure (AttributeHierarchy, Function, Caption)
Expressão Uma variável que representa um objeto CubeFields .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| AttributeHierarchy | Obrigatório | Variantes | O campo de cubo exclusivo que é uma hierarquia de atributo (XlCubeFieldType = xlHierarchy e XlCubeFieldSubType = xlCubeAttribute). |
| Function | Obrigatório | XlConsolidationFunction | A função realizada no campo de dados adicionado. |
| Caption | Opcional | Variantes | 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. |
Comentários
Obter uma medida usando a função GetMeasure funcionará apenas para essas funções: Contagem, Soma, Média, Max e Min.
Por exemplo, isso funcionará:
Get CubeField0 = modelPivotTable.CubeFields.GetMeasure("[customer].[num_cars_owned]", xlCount, "NumCarsOwnedCount")Set CubeField1 = modelPivotTable.CubeFields.GetMeasure("[customer].[num_cars_owned]", xlSum, "NumCarsOwnedSum")Set CubeField2 = modelPivotTable.CubeFields.GetMeasure("[customer].[num_cars_owned]", xlAverage, "NumCarsOwnedAverage")Set CubeField4 = modelPivotTable.CubeFields.GetMeasure("[customer].[num_cars_owned]", xlMax, "NumCarsOwnedMax")Set CubeField5 = modelPivotTable.CubeFields.GetMeasure("[customer].[num_cars_owned]", xlMin, "NumCarsOwnedMin")
Isso não funcionará:
Set CubeField3 = modelPivotTable.CubeFields.GetMeasure("[customer].[num_cars_owned]", xlCountNums, "NumCarsOwnedCountNums")Set CubeField6 = modelPivotTable.CubeFields.GetMeasure("[customer].[num_cars_owned]", xlProduct, "NumCarsOwnedProduct")Set CubeField7 = modelPivotTable.CubeFields.GetMeasure("[customer].[num_cars_owned]", xlStDev, "NumCarsOwnedStDev")Set CubeField8 = modelPivotTable.CubeFields.GetMeasure("[customer].[num_cars_owned]", xlStDevP, "NumCarsOwnedStDevP")
Valor de retorno
CUBEFIELD
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.