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

sjfwxm

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

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

zhc19620430

你设置就可以。

yancjm

原帖由 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

谢谢YANCJM。很好用

pdamen

谢谢，这个用得上的。

sjfwxm

原帖由 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

原帖由 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

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

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

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

ringdove

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

sjfwxm

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

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

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