添加数据透视表全部刷新功能

fengbin7506 · 发表于 2009-6-8 15:51

全部刷新按钮能否放到右键菜单中？

xowi99 · 发表于 2009-6-8 16:51

当然可以：Application.CommandBars("cell").Controls.Add ID:=1952

Private Sub Workbook_Open()
'当工作簿打开时，“全部刷新”按钮放到右键菜单
Application.CommandBars("cell").Controls.Add ID:=1952

End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'当工作簿关闭前复原右键菜单
Application.CommandBars("cell").Reset
End Sub

[ 本帖最后由 xowi99 于 2009-6-8 16:55 编辑 ]

huanbei · 发表于 2009-6-8 19:11

谢谢版主和12楼的朋友，奇怪，以前怎么没有注意到呢？

dgxsdr · 发表于 2009-6-8 19:44

下载学习！

yanjie · 发表于 2009-6-8 20:16

谢谢，学习了！
全部刷新透视表按钮，也会同时刷新引用的外部数据源！如果不想刷新外部数据源。
下面代码只刷新透视表全部：
dim pc as pivotcache
for each pc in thisworkbook.pivotcaches
pc.refresh
next pc

xbing203 · 发表于 2009-6-9 15:09

自定义里面有不少隐藏的东东，学习了。

fengbin7506 · 发表于 2009-6-9 17:55

原帖由 xowi99 于 2009-6-8 16:51 发表
当然可以：Application.CommandBars("cell").Controls.Add ID:=1952

Private Sub Workbook_Open()
'当工作簿打开时，“全部刷新”按钮放到右键菜单
Application.CommandBars("cell").Controls.Add ID ...

谢谢，有没有其它的方法？这种方法我不知道怎么用。

Ruiya · 发表于 2009-6-30 18:53

朱版您好！您在《EXCEL数据透视表应用大全》P76第四章4.1.9 设置错误值的显示方式
示例4-17 将报表中的错误值显示为加粗的"✘",
我在EXCEL单元格中用Alt+41409（数字小键盘）可显示出来的是细小的“×”，你那个加粗的叉叉是怎样弄出来的，顺便问问加粗的对勾“✔”在Excel中是怎样录入的，期待您的解答

bibisin · 发表于 2009-6-30 21:38

微软收藏得还真紧,哈哈
谢谢朱版分享

mipingyf · 发表于 2009-7-7 15:18

学习学习，谢谢

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

添加数据透视表全部刷新功能

回复 11楼 fengbin7506 的帖子

回复 1楼 jssy 的帖子