EXCEL 2007 数据透视表 结果自动刷新的问题

用EXCEL 2007 做了一个数据透视表。 求某个指标的平均数。
做好以后， 源数据中的一些数据改变时， 数据透视表的结果却不能随之自动改变。
必须要点刷新才可以得到新的结果。
但是因为整个模型中好多数据透视表， 所以基本数年据改变时， 一个个刷新太麻烦了， 而且也容易遗漏。
请问有没有方法使数据透视表的结果随着源数据的改变面自动刷新结果，得到新的平均数。
有点罗索， 希望把我要问的问题讲清楚了。
谢谢指教。

The pivot tables are in the sheets study 1 qaly and study 2 qaly.

FYI in the attachment.

办法1、你的透视表，都可以利用导入外部数据的办法生成，然后在源数据变化后，点击外部数据工具栏上的 全部刷新 就可以 一次性刷新所有透视表。
办法2、编一段VB代码（大概就是遍历工作簿中所有的透视表对象，再刷新），可以去excelhome论坛 搜索，透视表 批量自动刷新的 帖子

Private Sub Worksheet_Activate()
        Sheets("Sheet1").PivotTables("数据透视表1").RefreshTable
End Sub

通用的代表如上，代码含义为当当前工作表被激活的时候，工作表“sheet1”的数据透视表会被刷新。你可以参照编写，不会的话，请上传你的文件我帮你做VBA

Hi there,

I copied the EXCEL file.
There are two pivot tables, in the sheets study 1 qaly and study 2 qaly seperately.
Would you mind to write the VBA for me please.
Thanks so much!
Xie xie!

private Sub Workbook_sheetActivate(ByVal sh As object)
    Dim pt
    For each pt in sh.pivotTables
    pt.pivotCache.refresh
Next
End Sub

你尝试下附件。我只是写了代码但是没法调试，因为家里的是OFFICE2003。原理是当你激活study 1，study2的时候会自动刷新。要查看源代码请按ALT+F11，另外sheet名字不要更改，如果要更改请相应更改代码中的sheet名字。如果调试失败请告诉我，我明天上班帮你调试。

额，试了一下不行呀