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

yuanxipeng

yancjm 发表于 2010-5-1 11:23
ThisWorkbook 加入以下代码,参考附件范例
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal ...

厉害厉害厉害厉害厉害

tlanky

yancjm 发表于 2010-5-1 11:23
ThisWorkbook 加入以下代码,参考附件范例
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal ...

方法作用于worksheet时失败扎回事

xcseven

这是个好工具

27802961

学习了，非常感谢

gdgzapplee

yancjm 发表于 2010-5-1 11:23
ThisWorkbook 加入以下代码,参考附件范例
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal ...

非常感谢！您的代码非常有用！

想继续请教一个问题：我想两个数据源，分别对应的两个数据透视表，实现自动刷新。但是用VB后，结果是只能第一个数据透视表自动刷新，第二个不行，，，求助求助，谢谢

1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
2. Dim sh2 As Worksheet
   
3. Dim sh3 As Worksheet
   
4. Set sh2 = Sheets("数据透视1")
   
5. Set sh3 = Sheets("数据透视2")
   
6. If Sh.Name = "wechat_source" Then sh2.PivotTables("数据透视表1").PivotCache.Refresh
   
7. If Sh.Name = "url_type_clear" Then sh3.PivotTables("数据透视表2").PivotCache.Refresh
   
8. End Sub
   

复制代码

gdgzapplee

1. 
   

复制代码

mogxin

yancjm 发表于 2010-5-1 11:23
ThisWorkbook 加入以下代码,参考附件范例
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal ...

为什么我下载了，不会自动刷新，是哪里还需要设置什么吗

gg273806801

gdgzapplee 发表于 2017-6-22 19:34
非常感谢！您的代码非常有用！

想继续请教一个问题：我想两个数据源，分别对应的两个数据透视表，实现 ...

你找到好方法了吗，让同一个表中的所有透视表全更新

9559285

2017级九年级第一学期期末成绩分析202001（已改）.zip (81.1 KB, 下载次数: 5)

2020-1-18 16:45 上传

点击文件名下载附件

gdgzapplee 发表于 2017-6-22 19:34
非常感谢！您的代码非常有用！

想继续请教一个问题：我想两个数据源，分别对应的两个数据透视表，实现 ...

在数据源中输入新数据，透视表都能自动更新，如果通过公式让数据源数据变化，透视表就不能自动更新了。请教一下如何设置呢？

fan423000

yancjm 发表于 2010-5-1 11:23
ThisWorkbook 加入以下代码,参考附件范例
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal ...

你好，我的情况是连接了数据库，有数据模型，有很多个数据透视表，这种情况怎么办？