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