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

jooter

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

1. Sub 重置()
   
2. '
   
3. ' 重置 Macro
   
4. ' 宏由 jooter 录制，时间: 2010-6-8
   
5. '
   
6.     ActiveSheet.PivotTables("pivottable1").PivotFields("工装构成").Orientation = xlHidden
   
7.     ActiveSheet.PivotTables("pivottable1").PivotFields("夹具总成").Orientation = xlHidden
   
8.     ActiveSheet.PivotTables("pivottable1").PivotFields("设计者").Orientation = xlHidden
   
9.     ActiveSheet.PivotTables("pivottable1").PivotFields("序号").Orientation = xlHidden
   
10.     ActiveSheet.PivotTables("pivottable1").PivotFields("图号").Orientation = xlHidden
    
11.     ActiveSheet.PivotTables("pivottable1").PivotFields("名称").Orientation = xlHidden
    
12.     ActiveSheet.PivotTables("pivottable1").PivotFields("物品描述").Orientation = xlHidden
    
13.     ActiveSheet.PivotTables("pivottable1").PivotFields("制造商").Orientation = xlHidden
    
14.     ActiveSheet.PivotTables("pivottable1").PivotFields("规格").Orientation = xlHidden
    
15.     ActiveSheet.PivotTables("pivottable1").PivotFields("发图时间").Orientation = xlHidden
    
16.     ActiveSheet.PivotTables("pivottable1").PivotFields("计划完成时间").Orientation = xlHidden
    
17.     ActiveSheet.PivotTables("pivottable1").PivotFields("PRE编号").Orientation = xlHidden
    
18.     ActiveSheet.PivotTables("pivottable1").PivotFields("PR单编号").Orientation = xlHidden
    
19.     ActiveSheet.PivotTables("pivottable1").PivotFields("QEV单编号").Orientation = xlHidden
    
20.     ActiveSheet.PivotTables("pivottable1").DataPivotField.Orientation = xlHidden
    
21. End Sub
    

复制代码

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

zhc19620430

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

jooter

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

zhc19620430

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

jooter

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

开心萝卜惠州

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

whsfhwm

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

bolliy

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

抹香鲸2009

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

jooter

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

1. ActiveSheet.PivotTables("pivottable1").DataPivotField.Orientation = xlHidden
   
2. End Sub

复制代码

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

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