VBA中哪个属性是控制数据透视表中的分类汇总的

狼随风窜

VBA中哪个属性是控制数据透视表中的分类汇总的？

我不想手动去改变，要用VBA来实现，但是不知道哪个属性是。

hehex

Pivottables(1).ColumnGrand = True '打开数据透视表列字段汇总
Pivottable(1).RowGrand = True '打开数据透视表行字段汇总

相应的False 代表隐藏该行汇总或该列汇总。

狼随风窜

hehex 发表于 2013-6-27 11:49
Pivottables(1).ColumnGrand = True '打开数据透视表列字段汇总
Pivottable(1).RowGrand = True '打开数据 ...

可是依然是还显示分类汇总啊

hehex

狼随风窜 发表于 2013-6-27 12:25
可是依然是还显示分类汇总啊

你把这两个属性设成False 哪里还有汇总？看不懂你说的。
不行你上附件吧

狼随风窜

hehex 发表于 2013-6-27 13:14
你把这两个属性设成False 哪里还有汇总？看不懂你说的。
不行你上附件吧

             就是这个意思，我不想让他显示，A 汇总， B汇总， C汇总这些行。

狼随风窜

哦，我知道了，是用subtotals这个属性。可能是我表述不太清楚，谢谢了！

hehex

狼随风窜 发表于 2013-6-27 15:35
就是这个意思，我不想让他显示，A 汇总， B汇总， C汇总这些行。

下面代码，可以在当前页的第一个数据透视表内去掉行区域内的分类汇总项。

1. Sub 取消汇总()
   
2.     Dim rng As Range
   
3.     Set rng = PivotTables(1).RowRange.Find("汇总")
   
4.     If Not rng Is Nothing Then
   
5.         rng.Delete
   
6.     End If
   
7. End Sub

复制代码

狼随风窜

hehex 发表于 2013-6-27 16:01
下面代码，可以在当前页的第一个数据透视表内去掉行区域内的分类汇总项。

十分十分感谢！

hehex

狼随风窜 发表于 2013-6-27 15:58
哦，我知道了，是用subtotals这个属性。可能是我表述不太清楚，谢谢了！

数据透视表对象好像没有Subtotals 这个属性，很明显你的需求是一个开关式的属性设置。
当设置为True 时显示，为False 时不显示。数据透视表对象没有关于行区域的substotals 的布尔型属性，
只有一个SubtotalHiddenPageItems 是布尔型，很明显这个不是你需求的。
关于整个行区域 RowRange 倒是有一个Substotal 方法，但是这个方法是对Range 对象进行分类汇总设置的。而且就是普通分类汇总使用的方法，因此也不适合。
所以我用了迂回的办法，通过寻找关键字在透视表行区域内找到第一个复合的单元格，然后执行delete 方法，从而去掉分类汇总。

yyyjianchao

hehex 发表于 2013-6-27 16:18
数据透视表对象好像没有Subtotals 这个属性，很明显你的需求是一个开关式的属性设置。
当设置为True 时 ...

PivotTables,怎么我的提示子过程或函数未定义呢