Làm cách nào để tự động tăng giá trị ô sau mỗi lần in?
Giả sử, tôi có một trang bảng tính cần in 100 bản, ô A1 là số séc Công ty-001, bây giờ, tôi muốn con số sẽ tăng thêm 1 sau mỗi bản in. Điều đó có nghĩa là khi tôi in bản thứ hai, số sẽ tự động được tăng lên thành Công ty-002, bản thứ ba, số sẽ là Công ty-003… một trăm bản, số sẽ là Công ty-100. Có thủ thuật nào để giải quyết vấn đề này trong Excel một cách nhanh chóng và có thể không?
Tự động tăng giá trị ô sau mỗi lần in với mã VBA
Tự động tăng giá trị ô sau mỗi lần in với mã VBA
Thông thường, không có cách nào trực tiếp để bạn giải quyết công việc này trong Excel, nhưng ở đây, tôi sẽ tạo một mã VBA để giải quyết nó.
1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.
Mã VBA: Giá trị ô tăng tự động 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 F5 để chạy mã này và một hộp nhắc xuất hiện để nhắc bạn nhập số lượng bản sao mà bạn muốn in trang tính hiện tại, xem ảnh chụp màn hình:
4. Nhấp chuột OK và trang tính hiện tại của bạn đang được in, đồng thời, các trang tính đã in được đánh số Công ty-001, Công ty-002, Công ty-003… trong ô A1 khi bạn cần.
Chú thích: Trong đoạn mã trên, ô A1 sẽ được chèn các số thứ tự mà bạn đã đặt hàng và giá trị ô ban đầu trong A1 sẽ được xóa. Và “Công ty-00”Là số thứ tự, bạn có thể thay đổi chúng theo nhu cầu của mình.
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và 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 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!