Метод CubeField.AddMemberPropertyField (Excel)
Добавляет поле свойства члена на отображение поля куба.
Синтаксис
expression. AddMemberPropertyField (Property, PropertyOrder, PropertyDisplayedIn)
Выражение Переменная, представляющая объект CubeField .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Свойство | Обязательный | String | Уникальное имя свойства-члена. Для сбалансированных иерархий можно создать уникальное имя, добавив к уникальному имени уровня, с которым связано свойство-член, имя свойства "в кавычках". Для несбалансированных иерархий можно создать уникальное имя, добавив к уникальному имени иерархии свойство "в кавычки". |
| PropertyOrder | Необязательный | Variant | Задает значение свойства PropertyOrder для объекта CubeField . Фактическое положение в коллекции будет непосредственно перед полем сводной таблицы, которое в настоящее время имеет то же значение PropertyOrder , которое задано в аргументе . Если ни одно поле не имеет заданного значения PropertyOrder , диапазон допустимых значений составляет 1 к числу свойств элементов, которые уже отображаются для иерархии плюс один. Этот аргумент является одноуровневый. Если этот параметр пропущен, свойство переходит в конец списка. |
| PropertyDisplayedIn | Необязательный | XlPropertyDisplayedIn | Указывает место для отображения свойства. Если этот аргумент опущен, поле свойства члена будет добавлено только в сводную таблицу. |
Замечания
Указанное поле свойства не будет просматриваться, если в представлении сводной таблицы нет полей.
Чтобы удалить свойства элемента, используйте метод Delete , чтобы удалить объект PivotField из коллекции PivotFields .
Пример
В этом примере Microsoft Excel добавляет поле свойства элемента с именем Description в представление отчета сводной таблицы. В этом примере предполагается, что на активном листе существует сводная таблица, а страна, область и описание являются элементами отчета.
Sub UseAddMemberPropertyField()
Dim pvtTable As PivotTable
Set pvtTable = ActiveSheet.PivotTables(1)
With pvtTable
.ManualUpdate = True
.CubeFields("[Country]").LayoutForm = xlOutline
.CubeFields("[Country]").AddMemberPropertyField _
Property:="[Country].[Area].[Description]"
.ManualUpdate = False
End With
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.