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

sjfwxm · 发表于 2010-5-1 10:54

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

每次数据变化时，都要手动刷新，求和才变化，很不方便，所以想求助一下，谢谢了。

zhc19620430 · 发表于 2010-5-1 11:13

你设置就可以。

yancjm · 发表于 2010-5-1 11:23

原帖由 sjfwxm 于 2010-5-1 10:54 发表
如何才能让透视表自动刷新呢？

每次数据变化时，都要手动刷新，求和才变化，很不方便，所以想求助一下，谢谢了。

ThisWorkbook 加入以下代码,参考附件范例
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim sh2 As Worksheet
Set sh2 = Sheets("sheet4")
If Sh.Name = "Sheet1" Then sh2.PivotTables("数据透视表1").PivotCache.Refresh
End Sub

sjfwxm · 发表于 2010-5-1 18:25

谢谢YANCJM。很好用

pdamen · 发表于 2010-5-2 00:11

谢谢，这个用得上的。

sjfwxm · 发表于 2010-5-2 07:00

原帖由 yancjm 于 2010-5-1 11:23 发表

ThisWorkbook 加入以下代码,参考附件范例
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim sh2 As Worksheet
Set sh2 = Sheets("sheet4")
If Sh.Name = "Sheet1" Then sh2. ...

分不清哪个是("sheet4"),哪个是:"Sheet1"
重命名搞得我分不清了,YANCJM,帮帮我.

sjfwxm · 发表于 2010-5-2 07:01

原帖由 yancjm 于 2010-5-1 11:23 发表

ThisWorkbook 加入以下代码,参考附件范例
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim sh2 As Worksheet
Set sh2 = Sheets("sheet4")
If Sh.Name = "Sheet1" Then sh2. ...

分不清哪个是("sheet4"),哪个是:"Sheet1"
重命名搞得我分不清了,YANCJM,帮帮我.

yancjm · 发表于 2010-5-2 09:21

原帖由 sjfwxm 于 2010-5-2 07:01 发表

分不清哪个是("sheet4"),哪个是:"Sheet1"
重命名搞得我分不清了,YANCJM,帮帮我.

sheet1 是放数据源的
sheet4 是放数据透视表的
工作表名改了,VBA代码中的工作表名也要改成一样才行

ringdove · 发表于 2010-5-2 14:59

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

sjfwxm · 发表于 2010-5-2 17:29

原帖由 yancjm 于 2010-5-2 09:21 发表

sheet1 是放数据源的
sheet4 是放数据透视表的
工作表名改了,VBA代码中的工作表名也要改成一样才行

yancjm老师你好，我还是转不过来，我上附件你帮我一下吧。非常感谢你。

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

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

评分