根據單元格將數據字段添加到數據透視表

Question

我試圖通過允許用戶選擇要顯示的數據字段（即賺取的美元、花費的美元）來創建一個交互式數據透視表。 我有以下有效的代碼

Sub AddMoreFields()

 With ActiveSheet.PivotTables("PivotTable1")
 .AddDataField ActiveSheet.PivotTables( _
 "PivotTable1").PivotFields("Dollars_spent")
 End With

End Sub

但是，我想將其更改為以下內容，以便用戶可以選擇要顯示的數據

Sub AddMoreFields()

 With ActiveSheet.PivotTables("PivotTable1")
 .AddDataField ActiveSheet.PivotTables( _
 "PivotTable1").PivotFields(Range("d21"))
 End With

End Sub

Range("D21") 實際上是一個下拉列表，用戶可以在其中選擇賺取的美元和花費的美元。 但是，當我嘗試使用它時，我收到一條錯誤消息，指出 Rang("D21") 不是樞軸字段。

有什么建議？

Answer 1

Sub adddynamic()
Dim pt As PivotTable
Dim pf As PivotField
Dim f As String

f = Range("d21")
Set pt = ActiveSheet.PivotTables("PivotTable1")
Set pf = pt.PivotFields(f)
pt.AddDataField pf, "Sum of " & f, xlSum

End Sub