如何重置数据透视表（仅生成一次数据透视表）！

jooter · 发表于 2010-6-8 18:51

大家晚上好：
请问如何重置数据透视表，要求：
①、不能重新生成数据透视表；
②、重置仅仅是移除所有字段，即还原到创建时的空白数据透视表状态；
③、最终目的的通过不同的控件按钮实现在一张数据透视表（仅仅生成一次）上面的结果筛选。
我自己做的重置数据透视表的宏为：

Sub 重置()
'
' 重置 Macro
' 宏由 jooter 录制，时间: 2010-6-8
'
ActiveSheet.PivotTables("pivottable1").PivotFields("工装构成").Orientation = xlHidden
ActiveSheet.PivotTables("pivottable1").PivotFields("夹具总成").Orientation = xlHidden
ActiveSheet.PivotTables("pivottable1").PivotFields("设计者").Orientation = xlHidden
ActiveSheet.PivotTables("pivottable1").PivotFields("序号").Orientation = xlHidden
ActiveSheet.PivotTables("pivottable1").PivotFields("图号").Orientation = xlHidden
ActiveSheet.PivotTables("pivottable1").PivotFields("名称").Orientation = xlHidden
ActiveSheet.PivotTables("pivottable1").PivotFields("物品描述").Orientation = xlHidden
ActiveSheet.PivotTables("pivottable1").PivotFields("制造商").Orientation = xlHidden
ActiveSheet.PivotTables("pivottable1").PivotFields("规格").Orientation = xlHidden
ActiveSheet.PivotTables("pivottable1").PivotFields("发图时间").Orientation = xlHidden
ActiveSheet.PivotTables("pivottable1").PivotFields("计划完成时间").Orientation = xlHidden
ActiveSheet.PivotTables("pivottable1").PivotFields("PRE编号").Orientation = xlHidden
ActiveSheet.PivotTables("pivottable1").PivotFields("PR单编号").Orientation = xlHidden
ActiveSheet.PivotTables("pivottable1").PivotFields("QEV单编号").Orientation = xlHidden
ActiveSheet.PivotTables("pivottable1").DataPivotField.Orientation = xlHidden
End Sub

复制代码

代码中的字段包括了部分字段，其中datapivotfield部分还包含了三个数据字段！我试过经常会出错，请问各位大侠有没有更好的办法呢？麻烦各位了！

zhc19620430 · 发表于 2010-6-8 19:10

直接使用数据透视表可以吧，为什么要录制宏呀。

jooter · 发表于 2010-6-8 20:11

当然直接用数据透视表那最好了！
问题是对会用数据透视表的人来说不是问题，但是对于许多不会使用数据透视表的人就不行了。
现在我的目的就是考虑哪些不会使用数据透视表的人直接看到他们想要的结果。

zhc19620430 · 发表于 2010-6-8 20:17

啊，到底哪个难，数据透视表难吗。

jooter · 发表于 2010-6-8 20:28

我是意思是做好代码按钮后，让不会的人直接按就可以了！

开心萝卜惠州 · 发表于 2010-6-8 22:40

晕，有搞代码的时间，应该可以教会做简单的数据透视表了

whsfhwm · 发表于 2010-6-9 10:08

似乎有点理解楼主的意思：透视表结果要给一些电脑文盲看的（估计还有领导级别的），所以希望通过点击按钮的方式让他们操作。
但有一个问题楼主没有阐述清楚：你需要哪几种结果啊？你要给出结果的样子来啊。

bolliy · 发表于 2010-6-9 10:49

使用动态数据源，直接把透视表做好发给别人就好了，

抹香鲸2009 · 发表于 2010-6-9 10:58

如果真如7楼假设那样，那么楼主可能要自己动手编一个应用程序了，类似用友、融创这样的ERP软件了，否则那些电脑盲不会明白的

jooter · 发表于 2010-6-10 21:27

七楼的假设的对的

今天用了一个笨办法勉强解决了问题，就是删除了下面这个代码，让数据里面的三个字段一直放着不动（不重置）。

复制代码

就是这个代码经常出错，去掉这个代码后其它的字段全部xlHidden就相当于重置数据透视表了（不用删除数据透视表），然后添加需要的不同字段的组合就构成很多不同组的代码，然后分别制定按钮让领导按就可以了！

[ 本帖最后由 jooter 于 2010-6-10 21:32 编辑 ]

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

[求助] 如何重置数据透视表（仅生成一次数据透视表）！