Excel VBA-使用變量設置數據透視表數據字段功能

Question

我正在嘗試使用VBA創建的數據透視表來創建自定義報告，而我遇到麻煩的部分之一就是將數據字段設置為基於他的用戶期望。

例如：我有一個下拉菜單，顯示每種類型的PivotFields函數（sum，min max等），並根據用戶選擇的內容將其存儲為字符串變量。

當我運行代碼時：

Dim valueXL As String
valueXL = xlSum

With Worksheets(sheetPivotName).PivotTables(sheetPivotName).PivotFields(valueType)
.Function = valueXL
.NumberFormat = "$#,##0.00"
End With

我收到一個錯誤，但是，如果將.Function = valueXL替換為.Function = xlSum，它將正常工作。

有沒有辦法動態設置.Function值？

謝謝

Answer 1

由於xlSum是Excel的數字常量，因此應將valueXL更改為整數

Dim valueXL As Integer
valueXL = xlSum

或在代碼中使用直接常量

With Worksheets(sheetPivotName).PivotTables(sheetPivotName).PivotFields(valueType)
  .Function = xlSum
  .NumberFormat = "$#,##0.00"
End With

Answer 2

我找到了一個可能的解決方案，該解決方案正在使用評估功能，但是我想知道是否還有其他解決方案？

如果沒有，我可以選擇它作為答案。