Метод CubeFields.GetMeasure (Excel)
С учетом иерархии атрибутов возвращает неявную меру для данной функции, соответствующей этому атрибуту. Если неявная мера не существует, создается новая неявная мера, которая добавляется в коллекцию CubeFields .
Синтаксис
expression. GetMeasure (AttributeHierarchy, Function, Caption)
Выражение Переменная, представляющая объект CubeFields .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| AttributeHierarchy | Обязательный | Variant | Уникальное поле куба, которое является иерархией атрибутов (XlCubeFieldType = xlHierarchy и XlCubeFieldSubType = xlCubeAttribute). |
| Function | Обязательный | XlConsolidationFunction | Функция, выполняемая в добавленном поле данных. |
| Caption | Необязательный | Variant | Метка, используемая в отчете сводной таблицы для идентификации этой меры. Если мера уже существует, заголовок перезапишет существующую метку этой меры. |
Замечания
Получение меры с помощью функции GetMeasure будет работать только для следующих функций: Count, Sum, Average, Max и Min.
Например, они будут работать:
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")
Они не будут работать:
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")
Возвращаемое значение
CUBEFIELD
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.