無法使用數據 Model 在 Pivot 表中正確添加值字段

Question

我正在嘗試將 Pivot 表字段值添加到由數據 Model 中的多個表支持的 Pivot 表中，而我正在努力做到這一點。 我正在使用以下代碼添加行，但無法正確添加值：

Dim pt As PivotTable
Dim cf As CubeField

Set pt = Sheet1.PivotTables("PivotTable1")

Set cf = pt.CubeFields("[Asset1].[Geography]")
cf.Orientation = xlRowField

如果我使用以下代碼，它會添加值但作為計數，並且當有多個值時只有 1，因此計數應該不同於 1，目標是檢索特定地理位置的資產值的總和：

Set pt = Sheet1.PivotTables("PivotTable1")
ptFieldDescription = "Value"

pt.AddDataField pt.CubeFields("[FundAsset1].[Value]"), ptFieldDescription

非常感謝您的幫助！

Answer 1

居然用開發者模式找到了解決方案，在錄制宏的同時手動完成，如果需要，很容易自己完成！