|
录制宏得到的命令如下:
ActiveSheet.PivotTables("数据透视表1").PivotFields("pictype").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("数据透视表1").PivotFields("Realtrail").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("数据透视表1").PivotFields("Subnum").Subtotals = Array(False _
, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("数据透视表1").PivotFields("M-Rate_9AE1").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("数据透视表1").PivotFields("M-Rate_9AE2").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("数据透视表1").PivotFields("M-Rate_5N1").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("数据透视表1").PivotFields("M-Rate_5N2").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("数据透视表1").PivotFields("M-Rate_8M1").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("数据透视表1").PivotFields("M-Rate_8M2").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("数据透视表1").PivotFields("Deye").Subtotals = Array(False, _
False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("数据透视表1").PivotFields("Dnose").Subtotals = Array(False, _
False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("数据透视表1").PivotFields("Dmouth").Subtotals = Array(False _
, False, False, False, False, False, False, False, False, False, False, False)
我想运行几句语句,使得所有数据透视表都不显示分类汇总,如何写? |
|