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

【问题标题】：Refresh Pivot Table if Changes to Specific Column are made如果对特定列进行了更改，则刷新数据透视表
【发布时间】：2020-10-05 04:47:52
【问题描述】：

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

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

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

End Sub

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

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

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

【问题讨论】：

If Not Intersect(Me.Range("A1:A100"), Target) Is Nothing Then... 根据需要更改范围。

标签： excel vba pivot-table refresh

【解决方案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

【讨论】：