如果对特定列进行了更改，则刷新数据透视表 Table

Question

我发现以下代码会刷新数据透视表 Table 如果对工作表进行任何更改。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
  ActiveSheet.PivotTables("PromoList").RefreshTable
Application.EnableEvents = True

End Sub

问题是工作表还有很多我要编辑的其他字段，但是因为代码适用于整个工作表，所以当我在任何地方进行任何更改时，我无法撤消错误，这可能会让我退了很多。

数据透视表 Table 的数据仅包含在一个列 (A) 中。

有没有办法更新代码以仅引用 A 列，这样我就不会丢失撤消？我可以更进一步，在 A 列中指定一个范围吗？

Answer 1

仅当您在 A 列中的任意位置进行了更改时才会触发刷新

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error GoTo EH

    Application.EnableEvents = False

    If Target.Column = 1 Then
        ActiveSheet.PivotTables("PromoList").RefreshTable
    End If

EH:
    Application.EnableEvents = True

End Sub

如果对特定列进行了更改，则刷新数据透视表 Table

Refresh Pivot Table if Changes to Specific Column are made

excel

vba

pivot-table

refresh