急！如何写代码自动更新透视表

fayepy · 发表于 2008-3-13 21:43

一个worksheet里面有很多个有不同worksheet的数据生成的透视表，也有由一个worksheet的数据生成的透视表，怎么用写代码让这些透视表都能自动更新数据？

详细例子在附件！

CCRXdU5Z.rar (4.74 KB, 下载次数: 349)

LangQueS · 发表于 2008-3-13 21:53

录制宏吧

LangQueS · 发表于 2008-3-13 22:25

Sub 刷新透视表()
    Sheets("源数据1&2透视表").Select
    Range("B4").Select
    ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh
    Range("B16").Select
    ActiveSheet.PivotTables("数据透视表2").PivotCache.Refresh
    Sheets("源数据3透视表").Select
    Range("B3").Select
    ActiveSheet.PivotTables("数据透视表3").PivotCache.Refresh
    Sheets("源数据1").Select
End Sub

[此贴子已经被作者于2008-3-13 22:28:16编辑过]

peterf1 · 发表于 2008-3-25 13:46

暂时看不懂，收藏先！[em04]

yanjie · 发表于 2008-3-25 21:36

用PivotTables对象集合，利用For each......next来循环所有的透视表更新！

你搜索一下，应该有很多帖子讲到这个问题！

[此贴子已经被作者于2008-3-25 21:37:22编辑过]

tongchen · 发表于 2008-3-29 11:02

支持，请继续

zqs0324 · 发表于 2008-7-18 19:46

谢谢分享，先下载下来，慢慢研究

Amy.gao · 发表于 2008-8-7 11:36

谢谢各位朋友无私的奉献！

等我成了高手也要回馈我们的Excel Home

Amy.gao · 发表于 2008-8-7 13:13

QUOTE:

以下是引用fayepy在2008-3-13 21:43:02的发言：

一个worksheet里面有很多个有不同worksheet的数据生成的透视表，也有由一个worksheet的数据生成的透视表，怎么用写代码让这些透视表都能自动更新数据？

详细例子在附件！

版主

我想问一下

我没有学过VB，大学里学过C++

现在想学Office里面的VBA编程，会不会有些障碍啊？是不是应该先自学一下VB？

有好的学习方法吗？

能不能指教一下？谢谢版主！

summer922 · 发表于 2008-8-7 15:34

看不懂，能再详细的解说一下吗？

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