Hướng dẫn excel auto increment number printing - in số tăng tự động excel

Giả sử, tôi có một trang bảng tính cần được in 100 bản, ô A1 là số kiểm tra công ty-001, bây giờ, tôi muốn số sẽ tăng thêm 1 sau mỗi lần in. Điều đó có nghĩa là khi tôi in bản sao thứ hai, số sẽ được tăng lên tự động thành công ty-002, bản sao thứ ba, số sẽ là công ty-003, một trăm bản, số lượng sẽ là công ty-100. Có bất kỳ thủ thuật để giải quyết vấn đề này trong Excel một cách nhanh chóng và có thể?

Tự động tăng giá trị ô sau mỗi lần in bằng mã VBA

Tự động tăng giá trị ô sau mỗi lần in bằng mã VBA

Thông thường, không có cách trực tiếp nào để bạn giải quyết nhiệm vụ này trong Excel, nhưng, ở đây, tôi sẽ tạo mã VBA để đối phó với nó.

1. Giữ các phím ALT + F11 để mở cửa sổ Microsoft Visual Basic cho các ứng dụng.. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.

2. Nhấp vào Chèn> Mô -đun và Dán mã sau vào cửa sổ Mô -đun.. Click Insert > Module, and paste the following code in the Module Window.

Mã VBA: Tự động tăng giá trị ô sau mỗi lần in:

Sub IncrementPrint[]
'updateby Extendoffice
    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:", "Kutools for Excel"]
    If TypeName[xCount] = "Boolean" Then Exit Sub
    If [xCount = ""] Or [Not IsNumeric[xCount]] Or [xCount < 1] Then
        MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
        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

3. Sau đó nhấn phím F5 để chạy mã này và một hộp nhắc được bật ra để nhắc bạn nhập số lượng bản sao mà bạn muốn in bảng tính hiện tại, xem ảnh chụp màn hình:. Then press F5 key to run this code, and a prompt box is popped out to remind you enter the number of copies that you want to print the current worksheet, see screenshot:

4. Nhấp vào nút OK và bảng tính hiện tại của bạn hiện đang in, đồng thời, các bảng tính được in được đánh số là Công ty-001, Company-002, Company-003, trong ô A1 khi bạn cần.. Click OK button, and your current worksheet is printing now, and at the same time, the printed worksheets are numbered Company-001, Company-002, Company-003…in cell A1 as you need.

Lưu ý: Trong mã trên, ô A1 sẽ được chèn các số chuỗi mà bạn đã đặt hàng và giá trị ô ban đầu trong A1 sẽ được xóa. Và CÔNG TY-00-00 là số trình tự, bạn có thể thay đổi chúng theo nhu cầu của mình.: In the above code, the cell A1 will be inserted the sequence numbers that you ordered, and the original cell value in A1 will be cleared. And “Company-00” is the sequence number, you can change them to your need.

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[47] [47]

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