如何使用vba更改数据透视表中计算字段的名称

【问题标题】：how to change the name of calculated field in pivot table using vba如何使用vba更改数据透视表中计算字段的名称
【发布时间】：2019-02-24 15:00:48
【问题描述】：

我使用了下面的代码。但它仍然没有更新计算字段的名称。

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"

【问题讨论】：

如果我的回答对您有帮助，请告诉我:) 并将其标记为已接受！
对不起 Teasel 但它对我没有帮助..:(

标签： excel vba excel-formula excel-2007

【解决方案1】：

您可以使用以下代码更新所有数据透视表：

'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

【讨论】：