Excel) (CalculatedMembers.AddCalculatedMember 方法

會將計算欄位或計算項目新增到樞紐分析表中。

語法

表達式。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	用於匯出成員的數位格式。

傳回值

CALCULATEDMEMBER

註解

Formula 自變數必須具有有效的 MDX (多維度表示式) 語法語句。 在線分析處理 (OLAP) 提供者必須接受 Name 自變數。

DisplayFolder

顯示資料夾僅適用於匯出量值。 它們對匯出成員無效。

String 可以有分號 ;在其中。 分號指定多個顯示資料夾。 例如，如果您使用 Stringmyfolder1;myfolder2，計算量值會顯示在兩個顯示資料夾中，一個名為 myfolder1 ，另一個名為 myfolder2。

字串可以有反斜杠 \。 這會指定顯示資料夾的階層式路徑。 例如，如果您使用 Stringwelcome\to\seattle，則會有一個名為 welcome 的顯示資料夾，其中 包含名為 seattle 的顯示資料夾，其中包含名為 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 支援與意見反應。