关于透视表实时更新的问题

feilanga · 发表于 2017-12-1 16:37

本帖最后由 feilanga 于 2017-12-2 10:00 编辑

原先一个excel一个工资表之中，只有一个数据透视表1 实现数据自动更新的方法是添加代码，代码如下：
Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh
End Sub

现在问题来了，如果这个工资表之中添加了第二个透视表2，应该如何修改代码呢。谢谢老师帮助，在线急等！

wxg0007 · 发表于 2017-12-1 22:41

Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh
ActiveSheet.PivotTables("数据透视表2").PivotCache.Refresh
End Sub

feilanga · 发表于 2017-12-2 09:59

wxg0007 发表于 2017-12-1 22:41
Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh
ActiveS ...

谢谢，此问题昨天热心网友已经解答了，用着可以。谢谢你了！他的答案代码如下，以供其他需要的人参考。

更新多个透视表实时更新代码：

Private Sub Worksheet_Activate()
ActiveWorkbook.RefreshAll
End Sub

张文洲 · 发表于 2017-12-2 15:57

我对VBA不是很熟悉，你可以试试以下代码

Sub 刷新当前工作表所有透视表()
Set pts = ActiveSheet.PivotTables
For Each pt In pts
pt.PivotCache.Refresh
Next
End Sub
Sub 刷新当前工作簿()
ActiveWorkbook.RefreshAll
End Sub

复制代码

feilanga · 发表于 2017-12-7 10:03

张文洲发表于 2017-12-2 15:57
我对VBA不是很熟悉，你可以试试以下代码

谢谢你，我测试一下。

feilanga · 发表于 2017-12-7 10:10

张文洲发表于 2017-12-2 15:57
我对VBA不是很熟悉，你可以试试以下代码

老师，帮我看看这个问题好吗？http://club.excelhome.net/thread-1383534-1-1.html

feilanga · 发表于 2017-12-7 10:11

wxg0007 发表于 2017-12-1 22:41
Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh
ActiveS ...

帮我看看这个问题好吗 http://club.excelhome.net/thread-1383534-1-1.html

lusa · 发表于 2017-12-7 11:02

这个我特别需要，先留个脚印看看

xiachuan980 · 发表于 2019-7-2 11:03

学习了，谢谢

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

[已解决] 关于透视表实时更新的问题

评分