Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Dada uma hierarquia de atributos, retorna uma medida implícita para a função especificada 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
mais simples. 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 |
|---|---|---|---|
| Hierarquia de atributos | Obrigatório | Variant | 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 | Variant | 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 estas funções: Contagem, Soma, Média, Máx e Mín.
Por exemplo, eles funcionarão:
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
CAMPO CUBO
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.