曼城足球论坛技术论坛

找回密码
收费注册

QQ登录

只需一步,快速起头

EH搜索
EH技术汇-专业的职场身手充电站 妙哉!函数段子手风趣讲函数 足球供职器-会足球,做管理系统 足球 Home精品图文教程库
足球不给力? 何不试试FoxTable! 足球 2016函数公式学习大典 Office知识技巧收费学 制造主题竞争力的职场宝典
Tableau-数据可视化工具 曼城足球论坛出品 - VBA代码宝收费下载
你的足球 2010实战技巧学习锦囊 不能自休, 过目难忘的 Office 新界面 足球 VBA典范代码实践指南
察看: 2063 | 回复: 9
打印 上一主题 下一主题

VBA中哪个属性是支配数据透视表中的分类汇总的

[复制链接]

TA的精华主题

TA的得分主题

跳转到指定楼层
1
公告于 2013-6-27 11:25 | 只看该作者 | 只看大图 回帖夸奖 | 倒序赏玩 | 阅读形式
VBA中哪个属性是支配数据透视表中的分类汇总的?

我不想手动去改动,要用VBA来实现。



TA的精华主题

TA的得分主题

2
公告于 2013-6-27 11:49 | 只看该作者
Pivottables(1).ColumnGrand = True '掀开数据透视表列字段汇总
Pivottable(1).RowGrand = True '掀开数据透视表行字段汇总,最火的足彩论坛。

相应的False 代表隐藏该行汇总或该列汇总。

TA的精华主题

TA的得分主题

3
楼主 | 公告于 2013-6-27 12:25 | 只看该作者
hehex 公告于 2013-6-27 11:49
Pivottables(1).ColumnGrand = True '掀开数据透视表列字段汇总
Pivottable(1).RowGrand = True '掀开数据 ...

可是依然是还显示分类汇总啊

TA的精华主题

TA的得分主题

4
公告于 2013-6-27 13:14 | 只看该作者
狼随风窜 公告于 2013-6-27 12:25
可是依然是还显示分类汇总啊

你把这两个属性设成False 哪里还有汇总?看不懂你说的。
不行你上附件吧

TA的精华主题

TA的得分主题

5
楼主 | 公告于 2013-6-27 15:35 | 只看该作者
hehex 公告于 2013-6-27 13:14
你把这两个属性设成False 哪里还有汇总?看不懂你说的。
不行你上附件吧

就是这个意思, B汇总,最火的足彩论坛。A 汇总,我不想让他显示。

TA的精华主题

TA的得分主题

6
楼主 | 公告于 2013-6-27 15:58 | 只看该作者
哦,是用subtotals这个属性。或者是我表述不太明了,我知道了。

TA的精华主题

TA的得分主题

7
公告于 2013-6-27 16:01 | 只看该作者
狼随风窜 公告于 2013-6-27 15:35
就是这个意思,我不想让他显示,A 汇总, B汇总, C汇总这些行。

下面代码。
  1. Sub 解除汇总()
  2. Dim rng As Range
  3. Set rng = PivotTables(1).RowRange.Find("汇总")
  4. If Not rng Is Nothing Then
  5. rng.Delete
  6. End If
  7. End Sub
复制代码

TA的精华主题

TA的得分主题

8
楼主 | 公告于 2013-6-27 16:09 | 只看该作者
hehex 公告于 2013-6-27 16:01
下面代码,可以在目前页的第一个数据透视表内去掉行区域内的分类汇总项。

十分十分感激!

TA的精华主题

TA的得分主题

9
公告于 2013-6-27 16:18 | 只看该作者
狼随风窜 公告于 2013-6-27 15:58
哦,我知道了,是用subtotals这个属性。或者是我表述不太明了,谢谢了!

数据透视表对象彷佛没有Subtotals 这个属性。
当设置为True 时显示。
只有一个SubtotalHiddenPageItems 是布尔型。
关于整个行区域 RowRange 倒是有一个Substotal 方法,但是这个方法是对Range 对象举办分类汇总设置的。虎扑足球论坛。而且就是广泛分类汇总使用的方法。足球吧论坛。
所以我用了迂回的形式,然后执行delete 方法,足球社区。通过寻找关键字在透视表行区域内找到第一个复合的单元格。

TA的精华主题

TA的得分主题

10
公告于 2020-9-16 00:01 | 只看该作者
hehex 公告于 2013-6-27 16:18
数据透视表对象彷佛没有Subtotals 这个属性,很昭着你的需求是一个开关式的属性设置。
当设置为True 时 ...

PivotTables,怎么我的提示子经过或函数未定义呢
您需要登录后才可以回帖 登录 | 收费注册

本版积分规则

眷注官方微信,高效办公专列,每天发车

手机版|关于我们|关系我们|曼城足球论坛

GMT+8, 2020-9-24 06:31, Processed in 0.0 second(s),第一足球网论坛。 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

? 1999-2021 Wooffice Inc.

沪公网安备号 沪ICP备号

本论坛言论纯属公告者小我意见,任何违反国度相关法律的言论。

快速回复 前往顶部 前往列表