求一段功能等同于透视表"刷新数据"按钮的代码

kezhiye · 发表于 2007-5-29 21:44

求一段功能等同于透视表"刷新数据"按钮的代码.也就是说我想在工作表内加个更新按钮而不必打开数据透视表工具栏.

哪位帮写个这样的代码．谢谢．

凡人无忧 · 发表于 2007-5-29 21:53

录制一个吧~!好好的!

ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh

kezhiye · 发表于 2007-5-30 07:50

谢谢!就这一句吗?放在哪个地方呢?

stx100 · 发表于 2007-5-30 08:26

QUOTE:

以下是引用kezhiye在2007-5-30 7:50:30的发言：

谢谢!就这一句吗?放在哪个地方呢?

数据透视表所在工作表的Activate事件

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

kezhiye · 发表于 2007-5-30 10:25

谢谢,我试试

kezhiye · 发表于 2007-5-30 12:48

QUOTE:

以下是引用stx100在2007-5-30 8:26:33的发言：

数据透视表所在工作表的Activate事件

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

请问Activate事件是在哪个地方的.

我通过窗体的按钮指定不了,通过控件工具箱的命令按钮也指定不了.

烦请再予指点!

huzi3000 · 发表于 2007-9-11 13:01

偶然搜到了,就回一个了.

Activate事件是不需要指定的,你将这段代码放入哪个sheet下,当这个sheet被点击时就自然触发.所以不能指定为click事件.

vanessaff · 发表于 2010-3-4 12:43

学习了，谢谢

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