Метод CalculatedMembers.Add (Excel)

Добавляет вычисляемое поле или вычисляемый элемент в сводную таблицу. Возвращает объект CalculatedMember .

Синтаксис

expression. Add (Name, Formula, SolveOrder, Type, Dynamic, DisplayFolder, HierarchizeDistinct)

Выражение Переменная, представляющая объект CalculatedMembers .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Name	Обязательный	String	Имя вычисляемого элемента.
Formula	Обязательный	String	Формула вычисляемого элемента.
SolveOrder	Необязательный	Variant	Порядок решения для вычисляемого элемента.
Type	Необязательный	Variant	Тип вычисляемого элемента.
Dynamic	Необязательный	Логический	Указывает, пересчитывается ли вычисляемый элемент при каждом обновлении.
DisplayFolder	Необязательный	String	Имя отображаемой папки для вычисляемого элемента.
HierarchizeDistinct	Необязательный	Логический	Указывает, следует ли упорядочивать и удалять дубликаты при отображении иерархии вычисляемого элемента в отчете сводной таблицы на основе куба OLAP.

Возвращаемое значение

Объект CalculatedMember , представляющий новое вычисляемое поле или вычисляемый элемент.

Замечания

Аргумент Formula должен содержать допустимую синтаксическую инструкцию многомерных выражений (многомерное выражение). Аргумент Name должен быть приемлемым для поставщика OLAP, а аргумент Type должен быть определен.

Если для аргумента Type этого метода задано значение xlCalculatedSet, необходимо вызвать метод AddSet объекта CubeFields , чтобы новый набор полей отображался в сводной таблице.

Пример

В следующем примере набор добавляется в сводную таблицу.

Примечание.

Для запуска примера необходимо подключение к кубу и существующей сводной таблице.

Sub UseAddSet() 
 
 Dim pvtOne As PivotTable 
 Dim strAdd As String 
 Dim strFormula As String 
 Dim cbfOne As CubeField 
 
 Set pvtOne = ActiveSheet.PivotTables(1) 
 
 strAdd = "[MySet]" 
 strFormula = "'{[Product].[All Products].[Food].children}'" 
 
 ' Establish connection with data source if necessary. 
 If Not pvtOne.PivotCache.IsConnected Then pvtOne.PivotCache.MakeConnection 
 
 ' Add a calculated member titled "[MySet]" 
 pvtOne.CalculatedMembers.Add Name:=strAdd, _ 
 Formula:=strFormula, Type:=xlCalculatedSet 
 
 ' Add a set to the CubeField object. 
 Set cbfOne = pvtOne.CubeFields.AddSet(Name:="[MySet]", _ 
 Caption:="My Set") 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.