2021-01-29-ExcelVBA数据透视表的相关操作VBA程式代码段

最新推荐文章于 2024-07-09 17:24:14 发布

原创

最新推荐文章于 2024-07-09 17:24:14 发布 · 2.3k 阅读

15 ·

CC 4.0 BY-SA版权

这段VBA代码详细演示了如何使用宏进行Excel数据透视表的操作，包括设置分类汇总、总计、报表布局以及空行的处理。同时，还包含了对工作表的格式调整，如字体、字号、对齐方式和自动调整列宽等。此外，代码中还涉及到了冻结首行的功能，以及添加边框等格式设置。

Sub 数据透视表的相关操作VBA程式代码段()
    Rem PivotTables(1) 代表第一个数据透视表，这样就可以不用写名字了

    Rem 分类汇总
    For Each i In ActiveSheet.PivotTables(1).PivotFields
        i.Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False) '不显示分类汇总
        'i.Subtotals = Array(True, False, False, False, False, False, False, False, False, False, False, False) '在组的底部显示所有分类汇总
    Next
    ActiveSheet.PivotTables(1).SubtotalLocation xlAtTop '在组的顶部显示所有分类汇总
    
    Rem 总计
    With ActiveSheet.PivotTables(1)
        .ColumnGrand = False    '对列禁用总计
        .RowGrand = False   '对行禁用总计
'        .ColumnGrand = True '对列启用总计
'        .RowGrand = True   '对行启用总计
    End With

    Rem 报表布局
'    ActiveSheet.PivotTables(1).RowAxisLayout xlCompactRow   '以压缩形式显示
'    ActiveSheet.PivotTables(1).RowAxisLayout xlOutlineRow   '以大纲形式显示
    ActiveSheet.PivotTables(1).RowAxisLayout xlTabularRow   '以表格形式显示
    ActiveSheet.PivotTables(1).RepeatAllLabels xlRepeatL