每次打印後如何自動增加單元格值？

假設我有一個工作表頁面需要打印100份，單元格A1是支票號碼Company-001，現在，我希望每次打印後該數字將增加1。 這意味著當我打印第二份副本時，該編號將自動增加到Company-002，第三份副本，該編號將成為Company-003…一百份，該編號將成為Company-100。 是否有任何技巧可以快速且可能地在Excel中解決此問題？

每次打印後使用VBA代碼自動遞增單元格值

每次打印後使用VBA代碼自動遞增單元格值

通常，沒有直接的方法可以讓您在Excel中解決此任務，但是在這裡，我將創建一個VBA代碼來處理它。

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

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 按鈕，您當前的工作表正在打印，同時，您需要的單元格A001中同時將打印的工作表編號為Company-002，Company-003，Company-1…。

備註：在上面的代碼中，單元格 A1 將插入您訂購的序列號，並插入原始單元格值 A1 將被清除。 還有“公司-00”為序列號，您可以根據需要進行更改。