CalculatedField в Excel

Question

Предположим, у меня есть два столбца в excel, даты как строки, и я хочу создать сводную таблицу с некоторым вычисленным полем. Формула для вычисленного поля - Column1/AVERAGE(Column2), в зависимости от выбранной даты.

Я использую vba. но когда я

pvtTable.CalculatedFields.Add Name:="Test1", Formula:="Column1/AVERAGE(Column2)" 

AVERAGE в настоящее время отсчет от суммы значений в колонке 2 (для выбранного диапазона дат), а не отдельные значения. EDIT: AVERAGE, по-видимому, игнорируется в формуле вычисленного поля и вместо этого берется сумма.

Можно ли использовать одиночные значения при использовании AVERAGE в формуле вычисленного поля? Я использую Office 2010.

Более подробную информацию

Я пытался сделать это:

With pvtTable 
    With .PivotFields("Column2") 
     .Orientation = xlDataField 
     .Function = xlAverage 
     .NumberFormat = "0.00" 
     .Value = "Avg Column2" 
    End With 
End With 
pvtTable.CalculatedFields.Add Name:="Test2", Formula:="Column1/Avg Column2" 

Но Test2 не отображается в списке поля сводной таблицы в. Когда я хочу отобразить его из vba, я получаю сообщение об ошибке Unable to get the PivotFields property of the PivotTable class.

Answer 1

Вы почти находитесь. В первой попытке вам нужно изменить формулу: = быть фактической формулой. The =, который следует за: не запускает вашу формулу (см. Аргумент name). Это путаный бит синтаксиса. то вам нужны одинарные кавычки вокруг имен столбцов.

Это должно сделать трюк:

ActiveSheet.PivotTables("PivotTable1").CalculatedFields.Add _ 
    "Test1", _ 
    "='Column 1'/AVERAGE('Column 2')", _ 
    True 

Update: это не работает. Вы не можете использовать формулы в вычисленном поле, которое требует ссылок на диапазон.

http://www.ozgrid.com/Excel/pivot-calculated-fields.htm