还在一份一份生成报表?VBA一键生成插件代码送给你~

Excel 11个月前 芮和
140 0 0

Hi,大家好,这里是芮和。在之前的教程中,我们分享了VBA快速合并文档的小插件,今天我们分享1个VBA高效工具:批量生成报表文件

这个功能是Excel办公人员使用频率非常高的操作,文末附有代码的下载地址。你有什么想实现的VBA功能呢?可以在评论区留言,我们将挑选部分同学的留言进行实现~

根据模板快速生成报表

日/周/月报是很多Excel使用者经常接触的,在没有学习VBA之前,绝大部分Excel使用者都是通过复制粘贴的形式来生成报表,其实这些重复性的工作交给VBA就可以了,10秒搞定成千上百份模板报表。

将数据方式到「模板」工作表中,点击「生成报表」,就会生成「1~31号」的所有日报。

还在一份一份生成报表?VBA一键生成插件代码送给你~
一键生成报表

代码如下:

Sub 圆角矩形1_Click()
    Dim x As Integer
    Dim sh As Worksheet
    For x = 1 To 31
        Set sh = Sheets.Add
        With sh
            .Name = x & "日"
            Sheets("模板").Range("1:15").Copy sh.Range("A1")
        End With
    Next x
End Sub


这里还有一点需要注意一下,使用了VBA代码的Excel文档,必须保存成.xlsm的格式,只有这个格式才支持VBA。

因为本文属于自定义插件篇,这里的代码就不提供详细的说明了,关于VBA的使用,我们会在教程中为同学详细讲解。

——END——

版权声明:芮和 发表于 2020-06-30 0:00:00。
转载请注明:还在一份一份生成报表?VBA一键生成插件代码送给你~ | 芮和

相关文章

暂无评论

暂无评论...