Question

excel表中如何在数据源中定义一个宏按钮，点击该按钮则所有透视表就刷新数据？求详细的VBA代码~！

Answer 1

Sub 小按钮()
    Sheet1.PivotTables("数据透视表1").PivotCache.Refresh
End Sub

透视表所在工作表.pivotables("透视表名称").pivotcache.refresh

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Sheet1.PivotTables("数据透视表1").PivotCache.Refresh
End Sub

在源数据中定义这个更好，每修改完一个单元格数据后，自动刷新透视表。

Answer 2

可以用事件+代码的形式完成。

追问

能不能说具体点。。

追答

事件用透视表所在的工作表的激活事件 代码用全部刷新的代码