會將計算欄位或計算項目新增到樞紐分析表中。
語法
表達。AddCalculatedMember (Name、Formula、SolveOrder、Type、DisplayFolder、MeasureGroup、ParentHierarchy、ParentMember、NumberFormat)
詞 代表 CalculatedMembers 物件的變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| Name | 必要 | 字串 | 計算成員的名稱。 |
| 公式 | 必要 | Variant | 計算成員所用的公式。 |
| SolveOrder | 選用 | Variant | 計算成員的求解順序。 |
| 類型 | 選用 | Variant | 計算成員的類型。 |
| DisplayFolder | 選用 | Variant | 用來顯示計算量值的資料夾。 |
| MeasureGroup | 選用 | Variant | 計算成員所屬的群組。 |
| ParentHierarchy | 選用 | Variant | ParentMember 的父路徑。 |
| ParentMember | 選用 | Variant | 計算成員的母系。 |
| NumberFormat | 選用 | Variant | 用於計算成員的數字格式。 |
傳回值
CALCULATED成員
註解
Formula 引數必須具有有效的 MDX (多維度運算式) 語法陳述式。 Name 引數必須可供線上分析處理 (OLAP) 提供者接受。
DisplayFolder
顯示資料夾僅對計算量值有效。 它們不適用於計算成員。
字 串 可以有分號 ; 在其中。 分號指定多個顯示資料夾。 例如,如果您使用 字串myfolder1;myfolder2,計算量值將顯示在兩個顯示資料夾中,一個名為 myfolder1 ,另一個名為 myfolder2。
字串可以有反斜線\。 這會指定顯示資料夾的階層路徑。 例如,如果您使用字串welcome\to\seattle,則會有一個名為 welcome 的顯示資料夾,其中包含一個名為 seattle 的顯示資料夾。 顯示資料夾是虛擬資料夾;它們實際上並不像我們所認為的系統資料夾那樣存在。 它們僅用於顯示計算的量值。
NumberFormat
數字格式只能由巨集設定。 沒有用於設定它們的使用者介面。 這是唯一無法透過使用者介面設定的屬性。 透過使用者介面建立計算成員時,類型一律為 xlNumberFormatTypeDefault 。 數字格式僅對計算成員有效。 它們不適用於計算的量值。
ParentHierarchy
父階層可以是任何有效的 MDX 階層。 父階層僅對計算成員有效。 它們不適用於計算的量值。 如果選擇的父項成員位於不同的父項階層中,則會自動變更父項階層,以符合父項成員的父項階層。 例如,假設計算成員的下列巨集。
OLEDBConnection.CalculatedMembers.AddCalculatedMember Name:="[UK+US]", _
Formula:= _
"[Customer].[Customer Geography].[Country].&[United Kingdom] + [Customer].[Customer Geography].[Country].&[United States] " _
, Type:=xlCalculatedMember, SolveOrder:=0, ParentHierarchy:= _
"[Account].[Accounts]", ParentMember:= _
"[Customer].[Customer Geography].[Australia]", NumberFormat:= _
xlNumberFormatTypePercent
在此情況下,您已指定母項成員來自 [Customer].[Customer Geography] 階層,但已將父項階層指定為 [Account].[Accounts]。 建立成員時,它將使用父成員的父階層,即 [Customer].[Customer Geography],當您在 UI 的 「管理計算 」對話方塊中查看時,它將顯示 [Customer].[Customer Geography] 為父階層,而不是巨集中指定的階層, [Account].[Accounts]即 。
範例
下列程式碼範例會將 計算量值 新增至樞紐分析表。
注意事項
在這兩個範例中,必須在建立計算之後重新整理樞紐分析表,才能在使用者介面中檢視它。
Sub AddCalculatedMeasure()
Dim pvt As PivotTable
Dim strName As **String**
Dim strFormula As **String**
Dim strDisplayFolder As **String**
Dim strMeasureGroup As **String**
Set pvt = Sheet1.PivotTables("PivotTable1")
strName = "[Measures].[Internet Sales Amount 25 %]"
strFormula = "[Measures].[Internet Sales Amount]*1.25"
strDisplayFolder = "My Folder\Percent Calculations"
strMeasureGroup = "Internet Sales"
pvt.CalculatedMembers. AddCalculatedMember Name:=strName, Formula:=strFormula, Type:=xlCalculatedMeasure, DisplayFolder:=strDisplayFolder, MeasureGroup:=strMeasureGroup, NumberFormat:=xlNumberFormatTypePercent
End Sub
下列程式碼範例會將 計算成員 新增至樞紐分析表。
Sub AddCalculatedMember()
Dim pvt As PivotTable
Dim strName As **String**
Dim strFormula As **String**
Dim strParentHierarchy As **String**
Dim strParentMember As **String**
Set pvt = Sheet1.PivotTables("PivotTable1")
strName = "[Customer].[Customer Geography].[All Customers].[North America]"
strFormula = "[Customer].[Customer Geography].[Country].&[United States] + [Customer].[Customer Geography].[Country].&[Canada]"
strParentHierarchy = "[Customer].[Customer Geography]"
strParentMember = "[Customer].[Customer Geography].[All Customers]"
pvt.CalculatedMembers. AddCalculatedMember Name:=strName, Formula:=strFormula, Type:=xlCalculatedMember, ParentHierarchy:=strParentHierarchy, ParentMember:=strParentMember, SolveOrder:=0, NumberFormat:=xlNumberFormatTypeDefault
End Sub
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。