无法使用数据模型在透视表中正确添加值字段

Question

我正试图将数据透视表字段值添加到数据模型中由多个表支持的数据透视表中，我在这样做的路上很挣扎。我使用以下代码来添加行，但无法正确添加值:

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

实际上找到了使用开发人员模式的解决方案，并在记录宏的同时手动执行，如果需要，很容易自己完成!