Tạo dãy số tự động tăng dần khi thực hiện thao tác in (3 người xem)

[kimhue1989]

Làm sao từ cái file em đang có, khi in ra nó cho ra nhiều mã số tăng dần mã số:01, mã số 02,.... mã số n. tức là nếu in ra 5 bản thì nó tự động tăng dần theo số bản mình in! huuuuuu GIÚP EM! Sếp em sắp nghiệm thu bài kiểm tra!:

 

[viehoai]

Làm sao từ cái file em đang có, khi in ra nó cho ra nhiều mã số tăng dần mã số:01, mã số 02,.... mã số n. tức là nếu in ra 5 bản thì nó tự động tăng dần theo số bản mình in! huuuuuu GIÚP EM! Sếp em sắp nghiệm thu bài kiểm tra!:

Yêu cầu của bạn không rõ ràng, mọi người khó mà giúp được bạn
Trong bảng tính excel đó bạn muốn in ra 5 bản (copy thành 5 ?) thì các mã đó tăng dần là sao? nó thể hiện ở đâu? Ở đây tôi lấy làm ví dụ thông thường in 1 phiếu nào đó mã số 1, xong, tự nhảy mã số 2 v.v.. nhưng với file bạn ở đây hình như không thuộc dạng này làm cho tôi khó hiểu ý đồ của bạn

 

[kimhue1989]

Thể hiện ở cột ô mã số bác ạ! hình như cái bài kia em bị removed rùi! có một bác gửi bài cho em nhưng em chưa kịp coi thì bị xoá. Bác ý tạo ra một ô cột in phiếu, chỉ cần chọn ví dụ như 6 thì bản của em lần lượt in ra 6 bản khác nhau với mã số từ 1-6. Giúp em bác nhé! Huuuuuuuuu

 

[nghiaphuc]

Thể hiện ở cột ô mã số bác ạ! hình như cái bài kia em bị removed rùi! có một bác gửi bài cho em nhưng em chưa kịp coi thì bị xoá. Bác ý tạo ra một ô cột in phiếu, chỉ cần chọn ví dụ như 6 thì bản của em lần lượt in ra 6 bản khác nhau với mã số từ 1-6. Giúp em bác nhé! Huuuuuuuuu

Bạn sử dụng Code sau nhé:

Sub Print_Out()
    Dim n As Byte, i As Byte
    On Error Resume Next
    n = InputBox("Nhap so ban in:")
    For i = 1 To n
        With Sheet1.[E2]
            .Value = i
            .NumberFormat = "0000"
            .CurrentRegion.PrintOut preview:=True
        End With
    Next
End Sub

Trong file đính kèm, bạn nhấn Ctrl+Shift+P để thực hiện lệnh in nhé.
Để in ra giấy thì bạn xóa chỗ preview:=True trong code trên là được.

 

[viehoai]

Thể hiện ở cột ô mã số bác ạ! hình như cái bài kia em bị removed rùi! có một bác gửi bài cho em nhưng em chưa kịp coi thì bị xoá. Bác ý tạo ra một ô cột in phiếu, chỉ cần chọn ví dụ như 6 thì bản của em lần lượt in ra 6 bản khác nhau với mã số từ 1-6. Giúp em bác nhé! Huuuuuuuuu

Hỏi lại tí như trong File bạn:
1. Ô mã số là D1 phải không?
2. Ta tạo ô nhập số phiếu ví dụ như 7
Cho D1=1, in bảng tính
Cho D1=2, in bảng tính
...
Cho đến khi D1=7, in bảng tính và kết thúc
Như vậy có đúng không?