如何用vba显示或者取消数据透视表的分类汇总?

当用录制宏的方式录制数据透视表是否显示分类汇总时,录制的宏代码如下:

也就是如果要用vba显示数据透视表的分类汇总,需要遍历每个透视表字段对象PivotField,设置它的Subtotals属性。

数据透视表字段的Subtotals属性有Index属性,这个属性的值如下:

如果某个Index设置为True,那么就显示对应种类的分类汇总,如果Index 1 设置为True,那么就自动选择分类汇总的方式,其它索引都是False。

当用vba创建数据透视表后,默认的字段分类汇总方式都是自动选择的,也就是Index 1 设置为True,其它索引都是False。

所以如果要用VBA快速地取消数据透视表的分类汇总,只需将Index 1 设置为False即可。

代码如下:

 





       

发表评论