CalculatedMembers.Add 方法 (Excel)

向数据透视表中添加计算字段或计算项。 返回 CalculatedMember 对象。

语法

表达式。添加 (名称、 Formula、 SolveOrder、 Type、 Dynamic、 DisplayFolder、 HierarchizeDistinct)

表达 一个代表 CalculatedMembers 对象的变量。

参数

名称	必需/可选	数据类型	说明
Name	必需	字符串	计算成员的名称。
Formula	必需	字符串	计算成员的公式。
SolveOrder	可选	Variant	计算成员的求解次序。
Type	可选	Variant	计算成员的类型。
Dynamic	可选	Boolean	指定是否在每次更新时重新计算计算出的成员。
DisplayFolder	可选	字符串	计算成员的显示文件夹的名称。
HierarchizeDistinct	可选	Boolean	指定在基于 OLAP 多维数据集的数据透视表中显示计算成员的层次结构时，是否对重复项进行排序和删除。

返回值

一个代表新计算字段或计算项的 CalculatedMember 对象。

备注

Formula 参数必须包含有效的 MDX（多维表达式）语法语句。 联机分析处理 (OLAP) 提供程序必须接受 Name 参数，并且必须定义 Type 参数。

如果将此方法的 Type 参数设置为 xlCalculatedSet，则必须调用 CubeFields 对象的 AddSet 方法，以使新字段集在数据透视表中可见。

示例

下例向数据透视表中添加一个集，假定活动工作表中有数据透视表。

注意

若要运行示例，必须连接到多维数据集和现有数据透视表。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。