VBA 自动生成数据透视表

183776928qqcom · 发表于 2022-11-16 10:45

VBA 自动生成数据透视表

3190496160 · 发表于 2022-11-16 11:50

目前的代码都是录制宏得到的，没有修改的价值，没兴趣看，
具体描述你的需求，可以考虑用vba实现透视表的效果的

183776928qqcom · 发表于 2022-11-16 19:45

3190496160 发表于 2022-11-16 11:50
目前的代码都是录制宏得到的，没有修改的价值，没兴趣看，
具体描述你的需求，可以考虑用vba实现透视表的 ...

大部分都是录制宏得到的。只修改了数据来源，和数据去的目的地，还修改了开始前清空数据透视表。

捞屎人 · 发表于 2022-11-26 17:59

3190496160 发表于 2022-11-16 11:50
目前的代码都是录制宏得到的，没有修改的价值，没兴趣看，
具体描述你的需求，可以考虑用vba实现透视表的 ...

呵呵那我就不下了熟透一直学不会暂时vba 替代者

13691385157 · 发表于 2022-12-2 14:25

3190496160 发表于 2022-11-16 11:50
目前的代码都是录制宏得到的，没有修改的价值，没兴趣看，
具体描述你的需求，可以考虑用vba实现透视表的 ...

貌似好厉害哦！

andy19830420 · 发表于 2022-12-5 10:11

mavin · 发表于 2022-12-9 14:45

粗看了楼主的文件，没看懂意思。建议分享文件的时候，能文字写一下工作的流程，思路。
大家有时候不一定是要借鉴代码，而是想借鉴一下思路。

我也使用代码自动生成透视表的。因为我习惯使用透视表作为正式的报表打印。我的代码主要实现的这些功能：
鼠标依次选择数据源的第2行(透视表的行字段)，和数据源的第1行（透视表的数据汇总字段）。运行宏，自动生成一致透视表。
1、行字段和数据汇总字段已生成，数据字段全部改成求和，字段表头的“求和：”全部去掉。根据字段包含的内容，设置数值的格式（万，亿，或保留2位小数）。
2、透视表加框线，汇总行加粗，加灰，字体改为微软雅黑。
3、增加表头（表头字体为16号雅黑粗体），第2行增加制表日期（今天）和单位（万元、亿元）
4、页面设置，打印区域，页边距，重复表头。
5、数据源设置offset动态数据源，透视表绑定这个动态数据源。
主要想到的就是这些。

183776928qqcom · 发表于 2022-12-12 14:27

如何自动生成数据透视表----------------------------代码解释

183776928qqcom · 发表于 2022-12-12 14:50

思路
0.先用录制宏把要做的数据透视表做一遍, 系统会自动生成宏代码 macro1或宏1, 留好后面改好就可以重复使用;
1.统计原表格有多少行,y行或r行 whatever;
2.清除生成的透视表;
3.修改数据来源和数据去的目的地;
4. 做一个按钮调用宏.
5.搞定

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

[原创] VBA 自动生成数据透视表