Office中国论坛/Access中国论坛

标题: 求助一段自动刷新的VBA代码 [打印本页]

作者: LoveSeiya 时间: 2010-1-4 11:07
标题: 求助一段自动刷新的VBA代码
本帖最后由 LoveSeiya 于 2010-1-4 12:47 编辑

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

作者: shentao 时间: 2010-1-4 14:24
我也想知道啊

作者: pureshadow 时间: 2010-1-4 18:16
F8刷新数据？
楼主你按F8试试。

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

作者: 方漠 时间: 2010-1-5 09:27
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

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

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

作者: wang1950317 时间: 2010-1-6 16:16
受教！！！

作者: bpchan 时间: 2011-12-29 11:15
学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)