在与源表相同的工作表中自动刷新数据透视表

Question

每次定义的表更改时，如何定义表和数据透视表自动刷新？我使用此代码并无限循环：

Private Sub Worksheet_Change(ByVal Target As Range)
    Worksheets("Totales").PivotTables("Tabla dinámica1").PivotCache.Refresh
End Sub

当数据透视表位于另一个工作表中时，它不会循环。

Answer 1

您的程序应放在Excel对象中，表示作为数据透视表数据源的工作表。例如，假设数据透视表的数据在Sheet1中，则应将代码放在Sheet1 Microsoft Excel对象中：

假设您的数据透视表位于Sheet3中，代码（放在Sheet1对象中）应该与此类似：

Private Sub Worksheet_Change(ByVal Target As Range)
    Worksheets("Sheet3").PivotTables("Tabla dinámica1").PivotCache.Refresh
End Sub