PivotTableWizard - Имя полей данных как заголовки столбцов

Question

Я создаю сводную таблицу из листа Excel с помощью метода Viv PivotTableWizard.

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

Я хочу отобразить имя полей данных в виде заголовков столбцов. В Мастере пользователь перетащил поле «Знак знака - Значения» в поле «Ярлыки столбцов». Как это можно сделать с помощью кода?

Это то, что я до сих пор: ответ

' Create the PivotTable object based on the data on the selected sheet 
Set tm_volumes_pivot_table = ActiveSheet.PivotTableWizard 


'Page fields 
Set tm_volumes_pivot_field = tm_volumes_pivot_table.PivotFields("Article Type") 
tm_volumes_pivot_field.Orientation = xlPageField 

'Row fields 
Set tm_volumes_pivot_field = tm_volumes_pivot_table.PivotFields("Main Area") 
tm_volumes_pivot_field.Orientation = xlRowField 
Set tm_volumes_pivot_field = tm_volumes_pivot_table.PivotFields("Subarea") 
tm_volumes_pivot_field.Orientation = xlRowField 


'Column fields 
'Must be Names of Data Fields - how? 


'Data fields 
Set tm_volumes_pivot_field = tm_volumes_pivot_table.PivotFields("Initial Volume") 
tm_volumes_pivot_field.Orientation = xlDataField 
tm_volumes_pivot_field.Function = xlSum 
tm_volumes_pivot_field.NumberFormat = "#" 

Set tm_volumes_pivot_field = tm_volumes_pivot_table.PivotFields("Final Volume") 
tm_volumes_pivot_field.Orientation = xlDataField 
tm_volumes_pivot_field.Function = xlSum 
tm_volumes_pivot_field.NumberFormat = "#" 

Answer 1

Transfer OP от вопроса:

Когда сводная таблица будет иметь более чем одно поле данных, существует виртуальное поле с именем Значения в зонах сброса сводного списка сводных таблиц. В VBA это эквивалентное виртуальное поле называется «Данные». - Это будет использоваться для упорядочивания данных в столбцах.

'Define Pivot Fields (Rows/Columns - Attention to "Data"/Page) 
tm_volumes_pivot_table.AddFields Array("Main Area", "Subarea"), "Data", "Article Type"