求助一段自动刷新的VBA代码

LoveSeiya · 发表于 2010-1-4 11:07:37

本帖最后由 LoveSeiya 于 2010-1-4 12:47 编辑

在EXCEL中可以设置按F8手动刷新数据，现在想设计这么个按钮，按钮的作用按后可以一次性刷新所有数据透视表的数据，不晓得该怎么写这段代码，我没学过VBA，求高手赐代码！！！感激不尽！！！

shentao · 发表于 2010-1-4 14:24:19

我也想知道啊

pureshadow · 发表于 2010-1-4 18:16:19

F8刷新数据？
楼主你按F8试试。

LoveSeiya · 发表于 2010-1-4 23:13:05

我知道按F8就可以的，我现在就是想设计个按钮，按钮的作用就相当于按F8，毕竟按F8就我知道，人家用的人不懂，所以么想弄个按钮算了，老大能帮忙吗？

方漠 · 发表于 2010-1-5 09:27:03

Should be key F9, not F8.
Code as below, pls change the P-Table name as yours.

Private Sub CommandButton1_Click()
ActiveWorkbook.ActiveSheet.Calculate 'Re-Calculate worksheet.
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh 'Re-Calculate P-Table.
End Sub

pureshadow · 发表于 2010-1-5 22:03:48

我知道按F8就可以的，我现在就是想设计个按钮，按钮的作用就相当于按F8，毕竟按F8就我知道，人家用的人不懂，所以么想弄个按钮算了，老大能帮忙吗？
LoveSeiya 发表于 2010-1-4 23:13

F8是扩展选择的快捷键
数据重新计算是F9
网页或者文件夹的刷新是F5（F5在EXCEL里是定位）
方漠版主提供的代码可以解决你的问题。

wang1950317 · 发表于 2010-1-6 16:16:35

受教！！！

bpchan · 发表于 2011-12-29 11:15:15

学习

帐号		自动登录	找回密码
密码			注册

群介绍
Excel中国官方交流群2群 (331511605)
Excel中国官方群 (243419633)
Office China for Exc (498717031)
Excel交流群(纯技术) (324568243)
Excel VBA (122204306)

主题相关群

地区相关群[您还没设置居住地]

求助一段自动刷新的VBA代码

群介绍
主题无相 (随机显示版	同地区群块其他地区)