Excel VBA - Использование переменной для установки функции поля сводной таблицы

Question

Я пытаюсь создать собственные отчеты, используя созданные сводные таблицы VBA, и одна из частей, с которыми у меня возникают проблемы, заключается в том, что поле данных основывается на том, что он пользователь желания.

Например: У меня есть раскрывающееся меню, которое отображает каждый тип функции PivotFields (сумма, 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

Я нашел возможное решение, которое использует функцию Оценивать, однако мне было интересно, если есть какие-либо другие решения?

Если нет, я могу выбрать это как ответ.