как изменить имя вычисляемого поля в сводной таблице с помощью VBA - PullRequest
Новая
       21

как изменить имя вычисляемого поля в сводной таблице с помощью VBA

0 голосов
/ 20 сентября 2018

Я использовал приведенный ниже код.Но все равно не обновляется имя вычисляемого поля. 

ActiveSheet.PivotTables(PivotName).CalculatedFields.Add "basic_amt", _
    "=((amount + other_charges) - discount_amt)", True
ActiveSheet.PivotTables(PivotName).PivotFields("basic_amt").Orientation = xlDataField
ActiveSheet.PivotTables(PivotName).PivotFields("basic_amt").Name = "Basic Amount"
ActiveSheet.PivotTables(PivotName).PivotFields("basic_amt").NumberFormat = "###0.00"

1 Ответ

0 голосов
/ 20 сентября 2018

Вы можете обновить все сводные таблицы , используя следующий код: 

'Refresh All Pivot Tables
 ActiveWorkbook.RefreshAll

Чтобы обновить определенную сводную таблицу в пределах листа: 

'Refresh A Single Pivot Table
ActiveSheet.PivotTables("YourPivotTable").PivotCache.Refresh

Если вы хотите обновить определенную сводную таблицу в другой лист , вы можете использовать: 

'Refresh A Single Pivot Table
 ThisWorkbook.Sheets("YourSheet").PivotTables("YourPivotTable").PivotCache.Refresh
...