【VBA】【一天的心血，收藏一下】一键生成报表2

最新推荐文章于 2025-04-02 15:38:08 发布

平淡如茶

最新推荐文章于 2025-04-02 15:38:08 发布

阅读量1.3k

点赞数 2

CC 4.0 BY-SA版权

分类专栏： VBA 文章标签： vba

本文链接：https://blog.youkuaiyun.com/qq_27469815/article/details/83583054

本文详细介绍了如何利用VBA编程实现一键生成报表的功能。通过自定义宏和自动化流程，节省了一天手动制作报表的时间，提升了工作效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Public batch$
Sub crAddReport()
    '获取窗体单选框选择
    UserForm1.Show
    If UserForm1.OptionButton1.Value = True Then
        batch = "一"
    ElseIf UserForm1.OptionButton2.Value = True Then
        batch = "二"
    ElseIf UserForm1.OptionButton3.Value = True Then
        batch = "三"
    End If

    t1 = Timer
    Application.ScreenUpdating = False
        Call importLog '引用模块2的方法
        Call findBrokenStation '引用模块2的方法
        Call nowCrReport2
        Call crFile2
    Application.ScreenUpdating = True
    t2 = Timer
    MsgBox "己完成，运行时间 = " & (t2 - t1) * 1000 & " ms"

End Sub

Sub crFile2()

    Worksheets("结果统计-新增").Copy
    With ActiveSheet
        .Select
        .Columns("A:E").Delete
        .Shapes.Range(Array("Picture 1")).Delete
        [I1] = "执行结果"
        [I2] = "断X"
        [I3] = "配齐4个XX"
        [I4] = "无XX数据"
        [I5] = "因XXXX未配齐"
        [I6] = "总计"

        [J1] = "数量"
        [J2].formula = "=COUNTIF(E:E,I2)"
        [J3].formula = "=