Hướng dẫn how to print multiple copies with sequence page numbers in excel - cách in nhiều bản sao với số trang thứ tự trong excel

Bạn đã bao giờ thử in nhiều bản sao của một tờ với số trang chuỗi chưa? Điều đó có nghĩa là in 10 bản sao của một tờ và điền vào ô A1 vào bản sao đầu tiên với 001, trong bản sao thứ 2 với 002, và trong bản sao thứ 10 với 010. Trong Excel, không có tính năng tích hợp nào có thể giải quyết Công việc này, nhưng trong bài viết này, tôi giới thiệu một mã macro để giúp bạn nhanh chóng in nhiều bản sao với số trang chuỗi trong Excel.

In các bản sao với các số khác nhau theo mã VBA

In các bản sao với các số khác nhau theo mã VBA

Các bước sau đây để in nhiều bản sao của một tờ với số thứ tự theo mã VBA

1. Kích hoạt trang tính bạn muốn in và nhấn các phím Alt + F11 để mở cửa sổ Microsoft Visual Basic cho các ứng dụng.Microsoft Visual Basic for Applications window.

2. Nhấp vào Chèn> Mô -đun và Dán mã bên dưới vào tập lệnh mô -đun. Xem ảnh chụp màn hình:Insert > Module, and paste below code to the Module script. See screenshot:

VBA: In bản sao với số trang chuỗi.

Sub PrintCopiesWithNumbers[]
'UpdatebyEntendoffice20161031
    Dim i As Integer
    Application.ScreenUpdating = False
    For i = 1 To 10
        Range["A1"].Value = "'00" & i
       ActiveSheet.PrintOut
    Next i
    Application.ScreenUpdating = True
    MsgBox "Totally print" & [i - 1] &"copies", vbInformation, "Kutools for Excel"
End Sub

Lưu ý: Trong mã, A1 là ô bạn muốn đặt số thứ tự, 1 đến 10 cho biết in 10 bản sao và "'00" & i là định dạng trình tự, bạn có thể thay đổi chúng khi bạn cần.: in the code, A1 is the cell you want to place the sequence number, 1 To 10 indicates to print 10 copies, and "'00" & I is the sequence format, you can change them as you need.

3. Nhấn phím F5 để chạy mã và hộp thoại bật ra để nhắc nhở bạn rằng in 10 bản. Nhấn OK để đóng hộp thoại, sau đó mỗi bản in có số thứ tự riêng. F5 key to run the code, and a dialog pops out to remind you that print 10 copies. Click OK to close the dialog, then each printed copy has its own sequence number.

Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng năng suất của bạn lên 80%

• Tái sử dụng: nhanh chóng chèn các công thức phức tạp, biểu đồ & nbsp; và bất cứ điều gì bạn đã sử dụng trước đây; Mã hóa các ô bằng mật khẩu; Tạo danh sách gửi thư và gửi email ...: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
• Thanh siêu công thức [dễ dàng chỉnh sửa nhiều dòng văn bản và công thức]; Đọc bố cục [dễ dàng đọc và chỉnh sửa số lượng lớn các ô]; Dán vào phạm vi được lọc ... [easily edit multiple lines of text and formula]; Reading Layout [easily read and edit large numbers of cells]; Paste to Filtered Range...
• Hợp nhất các ô/hàng/cột mà không mất dữ liệu; Chia nội dung tế bào; Kết hợp các hàng/cột trùng lặp ... Ngăn chặn các ô trùng lặp; So sánh phạm vi ... without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
• Chọn các hàng trùng lặp hoặc độc đáo; Chọn các hàng trống [tất cả các ô trống]; Siêu tìm và mờ tìm trong nhiều sách bài tập; Chọn ngẫu nhiên ... Rows; Select Blank Rows [all cells are empty]; Super Find and Fuzzy Find in Many Workbooks; Random Select...
• Sao chép chính xác nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tham chiếu đến nhiều tờ; Chèn đạn, hộp kiểm và nhiều hơn nữa ... Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
• Trích xuất văn bản, thêm văn bản, xóa theo vị trí, loại bỏ không gian; Tạo và in các phần phụ phân trang; Chuyển đổi giữa nội dung ô và bình luận ..., Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
• Siêu bộ lọc [lưu và áp dụng các sơ đồ lọc cho các bảng khác]; Sắp xếp nâng cao theo tháng/tuần/ngày, tần suất và nhiều hơn nữa; Bộ lọc đặc biệt của in đậm, nghiêng ... [save and apply filter schemes to other sheets]; Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
• Kết hợp sách bài tập và bảng tính; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều tờ; Batch Chuyển đổi XLS, XLSX và PDF ...; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
• Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office/Excel 2007-2019 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ các tính năng dùng thử miễn phí 30 ngày. Đảm bảo hoàn lại tiền 60 ngày.. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.

Tab Office mang giao diện được lập bảng đến văn phòng và làm cho công việc của bạn dễ dàng hơn nhiều

• Kích hoạt chỉnh sửa và đọc theo bảng trong Word, Excel, PowerPoint, Nhà xuất bản, Truy cập, Visio và Dự án., Publisher, Access, Visio and Project.
• Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
• Tăng năng suất của bạn lên 50%và giảm hàng trăm lần nhấp chuột cho bạn mỗi ngày!

Comments[15] [15]

Chưa có xếp hạng nào. Hãy là người đầu tiên xếp hạng!