จะเพิ่มค่าเซลล์อัตโนมัติหลังจากการพิมพ์แต่ละครั้งได้อย่างไร?

สมมติว่าฉันมีหน้าเวิร์กชีตที่ต้องพิมพ์ 100 สำเนาเซลล์ A1 คือหมายเลขเช็ค Company-001 ตอนนี้ฉันต้องการให้จำนวนเพิ่มขึ้น 1 ครั้งหลังจากการพิมพ์ทุกครั้ง นั่นหมายความว่าเมื่อฉันพิมพ์สำเนาที่สองจำนวนจะเพิ่มเป็น Company-002 โดยอัตโนมัติสำเนาที่สามหมายเลขจะเป็น บริษัท -003 …หนึ่งร้อยฉบับหมายเลขจะเป็น บริษัท -100 มีเคล็ดลับในการแก้ปัญหานี้ใน Excel อย่างรวดเร็วและเป็นไปได้หรือไม่?

เพิ่มค่าของเซลล์โดยอัตโนมัติหลังจากการพิมพ์แต่ละครั้งด้วยรหัส VBA

เพิ่มค่าของเซลล์โดยอัตโนมัติหลังจากการพิมพ์แต่ละครั้งด้วยรหัส VBA

โดยปกติไม่มีวิธีโดยตรงสำหรับคุณในการแก้ปัญหานี้ใน Excel แต่ที่นี่ฉันจะสร้างรหัส VBA เพื่อจัดการกับมัน

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: เพิ่มค่าเซลล์อัตโนมัติหลังจากการพิมพ์แต่ละครั้ง:

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. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณป้อนจำนวนสำเนาที่คุณต้องการพิมพ์แผ่นงานปัจจุบันดูภาพหน้าจอ:

4. คลิก OK และแผ่นงานปัจจุบันของคุณกำลังพิมพ์อยู่ในขณะนี้และในเวลาเดียวกันแผ่นงานที่พิมพ์จะมีหมายเลข Company-001, Company-002, Company-003 …ในเซลล์ A1 ตามที่คุณต้องการ

หมายเหตุ: ในโค้ดด้านบนเซลล์ A1 จะถูกแทรกหมายเลขลำดับที่คุณสั่งซื้อและค่าเซลล์เดิมใน A1 จะถูกล้าง และ“บริษัท -00” คือหมายเลขลำดับที่คุณสามารถเปลี่ยนได้ตามต้องการ