Метод 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 и обратная связь.