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

babycc · 发表于 2011-2-23 11:50

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

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

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

mn860429 · 发表于 2011-2-23 11:55

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

babycc · 发表于 2011-2-23 12:30

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

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

babycc · 发表于 2011-2-23 12:35

原帖由 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 · 发表于 2011-2-23 14:15

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

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

mn860429 · 发表于 2011-2-23 14:18

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

babycc · 发表于 2011-2-23 14:54

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

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

		自动登录	找回密码
密码			免费注册

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