当用录制宏的方式录制数据透视表是否显示分类汇总时,录制的宏代码如下:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Sub 宏3() ActiveSheet.PivotTables("第一个透视表").PivotFields("姓名").Subtotals = Array(True, _ False, False, False, False, False, False, False, False, False, False, False) ActiveSheet.PivotTables("第一个透视表").PivotFields("店名").Subtotals = Array(True, _ False, False, False, False, False, False, False, False, False, False, False) ActiveSheet.PivotTables("第一个透视表").PivotFields("大指标").Subtotals = Array(True, _ False, False, False, False, False, False, False, False, False, False, False) ActiveSheet.PivotTables("第一个透视表").PivotFields("小指标").Subtotals = Array(True, _ False, False, False, False, False, False, False, False, False, False, False) ActiveSheet.PivotTables("第一个透视表").PivotFields("内容").Subtotals = Array(True, _ False, False, False, False, False, False, False, False, False, False, False) ActiveSheet.PivotTables("第一个透视表").SubtotalLocation xlAtBottom ActiveSheet.PivotTables("第一个透视表").SubtotalLocation xlAtTop End Sub |
也就是如果要用vba显示数据透视表的分类汇总,需要遍历每个透视表字段[……]
阅读全文>>>