【VBA案例004】自动填充表单

归档779

审技265 程技242 投技146 财技57 税技47 法技11 食技7 书技4

407 字

2 分钟

【VBA案例004】自动填充表单

2023-10-23

程技

VBA

浏览量加载中...

大家好！今天我们分享一个有关VBA自动填充表单的案例，帮助大家简化表单填写的过程，提高工作效率。

我们经常需要填写大量重复的表单，例如报销单、数据输入表格等，并且每个表单都有各自的字段需要填写。手动逐个填写这些表单既耗时又容易出错。

使用VBA自动填充表单可以极大地简化这一过程，让我们能够更专注于其他重要的工作。

譬如说，现在有两个表格，一个是人员清单，另一个的表单。

现在要做的是，将人员清单中的每一行信息，填到表单里，并导出为一个单独的工作簿。

下面是VBA的代码分享，你也可以观看下方的视频解析：

方法一：#

1
Sub 表格填充()
2

3
    Dim i, j, k
4

5
    Dim xinXiSht As Worksheet
6
    Dim qingDanSht As Worksheet
7

8
    Set xinXiSht = ThisWorkbook.Worksheets("信息卡")
9
    Set qingDanSht = ThisWorkbook.Worksheets("人员清单")
10

11
    With qingDanSht
12
        For i = 2 To .Range("a" & .Rows.Count).End(xlUp).Row
13
            For j = 1 To 5
14
                xinXiSht.Range("c" & j + 4) = .Cells(i, j)
15
            Next j
16

17
            xinXiSht.Copy
18
            ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & .Range("a" & i) & ".xlsx"
19
            ActiveWorkbook.Close True
20
        Next i
21
    End With
22

23
End Sub

方法二：#

1
Sub 表格填充优化()
2

3
    Dim i, j, k
4

5
    Dim xinXiSht As Worksheet
6
    Dim qingDanSht As Worksheet
7

8
    Set xinXiSht = ThisWorkbook.Worksheets("信息卡")
9
    Set qingDanSht = ThisWorkbook.Worksheets("人员清单")
10

11
    Application.ScreenUpdating = False
12

13
    Dim ar, br()
14
    With qingDanSht
15
        ar = .Range("a2:e" & .Range("a" & .Rows.Count).End(xlUp).Row)
16
        For i = 1 To UBound(ar)
17
            ReDim br(1 To 5, 1 To 1)
18
            For j = 1 To 5
19
                br(j, 1) = ar(i, j)
20
            Next j
21
            xinXiSht.[c5].Resize(UBound(br)) = br
22
            xinXiSht.Copy
23
            ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ar(i, 1) & ".xlsx"
24
            ActiveWorkbook.Close True
25
            xinXiSht.[c5:c9].ClearContents
26
        Next i
27
    End With
28

29
    Application.ScreenUpdating = True
30
End Sub