6 Excel VBA实例教程——批量生成报表



作为预算、财务、资料员的你 , 是不是经常需要从一个总报表中提取数据 , 批量生成多张报表呢?
这里就提供一个案例:批量生成报表 。
先看看效果视频
视频加载中...再先看看需求,以下是相关的文件夹:

6 Excel VBA实例教程——批量生成报表

1、总表:也就是数据源,每一行就是一组数据,需要分别按照上面的2个模板生成2个文件,并且自动存档到相应的文件夹 。
【6 Excel VBA实例教程——批量生成报表】两个橙色的按钮 , 就是按照两个模板生成报表 , 需要生成哪个就点击哪个 。
6 Excel VBA实例教程——批量生成报表



2、模板:这里有2个模板,要按照两个模板分别生成要收报告,并且放在下面的文件夹里面 。
6 Excel VBA实例教程——批量生成报表



涂色单元格表示需要填充的,其它区域是模板自带的 。
代码及说明:(只展示其中一个模板的代码 , 另一个类似)
6 Excel VBA实例教程——批量生成报表

代码看起来很多,是因为需要处理的单元格比较多 。实际上原理很简单,只要弄明白其中一个,其他的都是类似 。
本代码主要是对总报表中的每一行进行循环,然后将相应单元格的内容填入模板中,保存文件后放入相应文件夹,其中涉及到文件读写,新建等命令 。
另外 , Application.WorksheetFunction.RoundUp(Sheet1.Cells(i, 6).Value * 0.1, 0) 表示向上取整,提取板的和的10%(这是客户要求的),如果读者有其它百分比需求 , 可以灵活运用 。


以上就是本教程的全部内容,欢迎在评论区讨论 。

相关经验推荐