如何用VBA创建数据透视表时把合计行自动隐藏？(感谢卡卡西)

babycc

RT。。
请问如何用VBA创建数据透视表时把合计行自动隐藏吖？
我建了数据透视表以后不需要有把合计行，想把合计行自动隐藏。
如何能用代码控制数据透视表没有合计行吖？
万分感谢。

已解决。。感谢卡卡西哦。。

[ 本帖最后由 babycc 于 2011-2-23 16:40 编辑 ]

mn860429

录制个宏看下代码
    With ActiveSheet.PivotTables("数据透视表1")
        .ColumnGrand = False
        .RowGrand = False
    End With

babycc

原帖由 mn860429 于 2011-2-23 11:55 发表
录制个宏看下代码
    With ActiveSheet.PivotTables("数据透视表1")
        .ColumnGrand = False
        .RowGrand = False
    End With

我建表的时候也添加了.ColumnGrand = False.RowGrand = False这两句代码。但是提示错误吖。

babycc

原帖由 mn860429 于 2011-2-23 11:55 发表
录制个宏看下代码
    With ActiveSheet.PivotTables("数据透视表1")
        .ColumnGrand = False
        .RowGrand = False
    End With

    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "sdf!R1C1:R693C10").CreatePivotTable TableDestination:="", TableName:= _
        "123", DefaultVersion:=xlPivotTableVersion10
        ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Name = "456"
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("123").AddFields RowFields:=Array("物料", "描述"), _
        ColumnFields:=Array("需求日期", "订单")
    ActiveSheet.PivotTables("123").PivotFields("需求数量").Orientation = xlDataField

请问那两句代码应该在哪里增加吖？

babycc

原帖由 mn860429 于 2011-2-23 11:55 发表
录制个宏看下代码
    With ActiveSheet.PivotTables("数据透视表1")
        .ColumnGrand = False
        .RowGrand = False
    End With

已经能把总合计隐藏。但是我每一项数据下都有一个合计。那怎么把每一项的合计隐藏呢？

mn860429

录制个宏，那个是分类汇总。

babycc

原帖由 mn860429 于 2011-2-23 14:18 发表
录制个宏，那个是分类汇总。

那应该怎么把那个分类汇总隐藏吖？