VBA一键生成报表代码

VBA一键生成报表代码

VBA作为Excel中最厉害的一把利器,但是因为其学习门槛阻挡了很多Excel使用者,今天芮和给大家分享几个VBA自定义插件,零基础直接套用模板就可以使用了,代码也非常简短。

67.4K

更新日期:2020-06-30 分类标签: 平台:

18KB 1 人已下载 手机查看

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的使用,我们会在教程中为同学详细讲解。

相关导航

暂无评论

暂无评论...