เพิ่มหมายเลขลำดับใน 4 เซลล์ที่แตกต่างกันหลังจากพิมพ์

ฉันสร้างใบเสร็จขนาดตัวอักษร 1/4 และคัดลอก 4 ครั้งในแผ่นงานเดียว (เพื่อบันทึกเอกสาร) และต้องการพิมพ์อย่างต่อเนื่องตั้งแต่ 001 ถึง 100 ใบเสร็จแต่ละใบควรมีหมายเลขเฉพาะ 001,002 ... 100 ..

ฉันจะใส่หมายเลขต่อเนื่องใน 4 เซลล์ต่างกันเช่น A1, C1, E1 และ G1 เป็นเซลล์ของฉันด้วยหมายเลข 001,002,003,004 และเพิ่มแต่ละหมายเลขหลังจากพิมพ์แต่ละครั้งได้อย่างไร

ฉันยังต้องการความสามารถในการระบุหมายเลขเริ่มต้น

ฉันพบสิ่งนี้ในเว็บดังนั้นอาจเป็นจุดเริ่มต้น:

Sub IncrementPrint()

    Dim xCount As Variant
    Dim xScreen As Boolean
    Dim I As Long
    On Error Resume Next
LInput:
    xCount = Application.InputBox("Please enter the number of copies you want to print:", "Title")
    If TypeName(xCount) = "Boolean" Then Exit Sub
    If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
        MsgBox "error entered, please enter again", vbInformation, "Title"
        GoTo LInput
    Else
        xScreen = Application.ScreenUpdating
        Application.ScreenUpdating = False
        For I = 1 To xCount
            ActiveSheet.Range("A1").Value = " Company-00" & I
            ActiveSheet.PrintOut
        Next
        ActiveSheet.Range("A1").ClearContents
        Application.ScreenUpdating = xScreen
    End If
End Sub

ใช้สิ่งนี้

Option Explicit

Public Sub IncrementPrint()
    Dim resp As Variant, scr As Boolean, i As Long, j As Long

On Error Resume Next
    resp = Application.InputBox(Prompt:="Please enter the number of copies to print:", _
                                Title:="Select Total Print Copies", Type:=1)
On Error GoTo 0

    If resp = False Then Exit Sub
    If resp < 1 Or resp > 100 Then
        MsgBox "Invalid number: " & resp & " (Enter 1 to 100)", vbExclamation, "Try Again"
        Exit Sub
    End If

    scr = Application.ScreenUpdating
    Application.ScreenUpdating = False
    j = 0
    For i = 1 To resp
        ActiveSheet.Range("A1").Value2 = " Company-00" & i + 0 + j
        ActiveSheet.Range("C1").Value2 = " Company-00" & i + 1 + j
        ActiveSheet.Range("E1").Value2 = " Company-00" & i + 2 + j
        ActiveSheet.Range("G1").Value2 = " Company-00" & i + 3 + j
        ActiveSheet.PrintOut
        j = j + 3
    Next i
    ActiveSheet.Range("A1,C1,E1,G1").ClearContents
    Application.ScreenUpdating = scr
End Sub