Excel macro để in 3 trang với cùng một số rồi tăng dần

Tôi có một bảng excel để in một bộ 3 trang mà tôi sử dụng cho bảng chấm công. Tôi cần một số loại macro có thể thay đổi số sau mỗi ba tờ được in. Vì vậy, ba tờ đầu tiên là 0001 và ba 0002 tiếp theo ba 0003 tiếp theo, v.v.

Nếu có thể, tôi cần có khả năng bắt đầu từ nơi tôi rời đi. Đây là những gì tôi đã thử cho đến nay:

Sub PrintCopies_ActiveSheet()

Dim CopiesCount As Long
Dim copynumber As Long

CopiesCount = Application.InputBox("How many copies do you want?", Type:=1)
'Now the program wants you to input how many pages you like to print.
'You can input 100 here.

For copynumber = 1 To CopiesCount
With ActiveSheet
   .Range("E1").Value = copynumber 'I assume your invoice number is in cell E1.
   For i = 1 To 3
    .PrintOut 'Print the sheet
End With
Next copynumber
End Sub

Một số vấn đề:

1. Nó không in tờ ba lần với cùng một số
2. Tôi cũng cần số để có các số 0 đứng đầu (ví dụ: 0001, 0002 ... 000n)

Giải pháp nào?

Bạn đã tuyên bố rằng bạn vừa sao chép mã khác và không tự thực hiện. Nếu bạn tiếp tục đi xuống tuyến đường này, bạn sẽ bị lạc, tôi thực sự khuyên bạn nên học mã nhỏ bạn cần.

Hàm này sẽ giới thiệu cách bạn tăng số lượng cứ sau 3 lần và cách thêm số 0 đứng đầu. Tôi đã giả sử, theo ví dụ của bạn (nơi bạn đã viết (eg, 0001, 0002 ... 000n) ), rằng bạn luôn muốn có 3 số không ở phía trước.

Sub doThis()

Dim page As Integer
page = 1

Dim pageToUse As String
pageToUse = "000" & page

Dim copyNumber As Integer
Dim copiesCount As Integer
copiesCount = 5

For copyNumber = 1 To copiesCount

    If copyNumber Mod 4 = 0 Then     'needs to be 4 as you start with 1
        pageToUse = "000" & page + 1
    End If

Next copyNumber

End Sub