如何在每次列印後自動遞增 Excel 單元格的值？

MS Excel 微軟技術計算機

假設我們有一個需要多次列印的 Excel 表格，並且您想知道該表格列印了多少次。在 Excel 中沒有辦法解決這個問題，但可以使用 VBA 應用程式來解決。閱讀本教程，瞭解如何在每次列印後自動遞增 Excel 中單元格的值。

每次列印後自動遞增單元格值

在這裡，我們首先插入一個 VBA 模組，然後執行它來完成其任務。讓我們看一個簡單的過程來了解如何在每次列印後遞增單元格值。

步驟 1

讓我們考慮一個 Excel 表格，其中包含您要列印的資料，以及一列數字，如下面的圖片所示。

現在右鍵單擊工作表名稱並選擇“檢視程式碼”以開啟 VBA 應用程式，然後單擊“插入”，選擇“模組”，並將程式鍵入文字框中，如下面的圖片所示。

示例

Sub IncrementPrint()
'updateby Nirmal
   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:", "no of prints required")
   If TypeName(xCount) = "Boolean" Then Exit Sub
   If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
      MsgBox "error occured, please check value", vbInformation, "no of prints required"
      GoTo LInput
   Else
      xScreen = Application.ScreenUpdating
      Application.ScreenUpdating = False
      For I = 1 To xCount
         ActiveSheet.Range("A1").Value = "Print-1" & I
         ActiveSheet.PrintOut
      Next
      ActiveSheet.Range("A1").ClearContents
      Application.ScreenUpdating = xScreen
   End If
End Sub