如何才能让透视表自动刷新呢？

lrlxxqxa · 发表于 2010-5-2 23:57

代码里面的sheet4和sheet1都是指的工作表的名字,你改对应就行了

xkong · 发表于 2011-2-11 05:16

If Sh.Name = "Sheet1" Then sh2.PivotTables("数据透视表1").PivotCache.Refresh
楼主，此句中的“数据透视表１“应改为你的数据透视表名称，你的应为“数据透视表6“

yl20071202 · 发表于 2011-5-15 11:45

请问现在有两个数据透视表（同一数据源）需要同时刷新，需要怎么写代码？

wuxiang_123 · 发表于 2011-5-15 15:27

假如这两个透视表是共享缓存,那么,刷新一个,另一个也会自动刷新.

woshijx110 · 发表于 2012-3-1 16:25

学习到了，以后就不用每次点刷新

woshijx110 · 发表于 2012-3-1 16:26

谢谢，非常感谢

leal · 发表于 2012-10-25 09:38

我觉得还是激活含数据透视表的工作表时刷新数据比较好（适合打开数据表的次数比录源表更改的次数要少的情况）。
Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh
End Sub

1152118680 · 发表于 2014-4-9 16:55

leal 这个效果好，代码少！

wyvern0072 · 发表于 2014-6-30 11:21

学习了！！谢谢yancjm指点！！

flyinpg · 发表于 2014-9-28 09:39

非常感谢！

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

回复 10楼 sjfwxm 的帖子