数据更改时刷新excel电子表格中的所有数据透视表

是否有人知道当Excel 2010电子表格中的数据发生更改时，自动刷新所有透视表（每个表包含4个透视表）的VBA代码？它还可以搜索特定单元格中的更改

---

欢迎任何意见

添加到包含源数据的工作表中的代码应该可以工作

专用子工作表\u ChangeByVal目标作为范围 将图纸调整为工作表，将数据透视为数据透视表 用于此工作簿中的每张工作表。工作表 对于Sheet.PivotTables中的每个数据透视 透视表 透视。更新 下一个 下一个 端接头

有关更多信息，请查看

---

添加到包含源数据的工作表中的代码应该可以工作

专用子工作表\u ChangeByVal目标作为范围 将图纸调整为工作表，将数据透视为数据透视表 用于此工作簿中的每张工作表。工作表 对于Sheet.PivotTables中的每个数据透视 透视表 透视。更新 下一个 下一个 端接头

有关更多信息，请查看

---

如果您的数据透视表在整个工作簿中设置为绝对范围，我非常喜欢这种简单的方法：

Sub RefreshAllPivots()
' RefreshAllPivots Macro
' Refresh all the pivots in the workbook
    ActiveWorkbook.RefreshAll
End Sub

---

如果您的数据透视表在整个工作簿中设置为绝对范围，我非常喜欢这种简单的方法：

Sub RefreshAllPivots()
' RefreshAllPivots Macro
' Refresh all the pivots in the workbook
    ActiveWorkbook.RefreshAll
End Sub

---

如果工作表中有名为“数据”的数据，并且表位于名为“数据透视表1”的工作表透视中，则可以将其粘贴到“数据表vba”选项卡上

Private Sub Worksheet_Calculate()

    'If data on this worksheet changes, refresh the pivot table
    Sheets("Pivot").PivotTables("PivotTable1").RefreshTable

End Sub

---

如果工作表中有名为“数据”的数据，并且表位于名为“数据透视表1”的工作表透视中，则可以将其粘贴到“数据表vba”选项卡上

Private Sub Worksheet_Calculate()

    'If data on this worksheet changes, refresh the pivot table
    Sheets("Pivot").PivotTables("PivotTable1").RefreshTable

End Sub

---

谢谢你的帮助。我刚试过这个代码，但似乎不起作用。将其放在包含数据的工作表中没有任何作用。第三个工作表包含数据，将其放在工作簿中也不起作用。把它放在第一张纸上，在那里有4个数据透视表，可以进行选择，这将导致一个无休止的刷新循环。谢谢你的帮助。我刚试过这个代码，但似乎不起作用。将其放在包含数据的工作表中没有任何作用。第三个工作表包含数据，将其放在工作簿中也不起作用。把它放在第一张纸上，在那里有4个数据透视表，可以进行选择，这将导致一个无休止的刷新循环。欢迎使用堆栈溢出！别忘了格式化你的代码！欢迎来到堆栈溢出！别忘了格式化你的代码！