[求助]请教关于透视表自动刷新问题！！

小坏熊 · 发表于 2007-11-12 13:50

nZU0WL56.rar (9.07 KB, 下载次数: 29)

如题。。附件中有详细问题的说明。

请大虾们出手相助，谢谢！！

清风_ll · 发表于 2007-11-12 22:56

对当前表所有透视表都进行一次刷新:

Private Sub worksheet_activate()
    Application.ScreenUpdating = False
    For Each pt In ActiveSheet.PivotTables
        pt.PivotCache.Refresh
    Next
    Application.ScreenUpdating = True
End Sub

[此贴子已经被作者于2007-11-12 22:56:34编辑过]

正宗小坏熊 · 发表于 2007-11-13 22:57

清风版主，非常谢谢！

另外我还有个问题，如果我放透视表的sheet需要隐藏起来，这段代码就不能刷新了。好像必须激活透视表所在的sheet才行。

我要怎么样才能在隐藏sheet的情况下，透视表在数据源更改后随之同步刷新？

yanjie · 发表于 2007-11-14 21:02

QUOTE:

以下是引用正宗小坏熊在2007-11-13 22:57:35的发言：

清风版主，非常谢谢！

另外我还有个问题，如果我放透视表的sheet需要隐藏起来，这段代码就不能刷新了。好像必须激活透视表所在的sheet才行。

我要怎么样才能在隐藏sheet的情况下，透视表在数据源更改后随之同步刷新？

里面的代码各种情况都考虑了刷新:

oakKCnKG.rar (13.72 KB, 下载次数: 60)

[此贴子已经被作者于2007-11-14 21:06:20编辑过]

正宗小坏熊 · 发表于 2007-11-16 22:24

谢谢版主

xing · 发表于 2009-1-13 09:37

提一个类似的问题
如果想把工作簿中所有的透视表都要一次性自动刷新,这段代码应怎么改,谢谢

		自动登录	找回密码
密码			免费注册