Excel 每次打印后自动增加单元格值

假设我们有一个需要多次打印的Excel表格，你想知道这个表格被打印了多少次。在Excel中，我们没有办法解决这个问题，但可以用VBA程序来解决这个问题。阅读本教程，了解如何在每次打印后自动递增Excel中的单元格值。

每次打印后自动增加单元格值

在这里，我们将首先插入一个VBA模块，然后运行它来完成其任务。让我们看看一个简单的过程，了解我们如何在每次打印后递增单元格的值。

第1步

让我们考虑一个Excel工作表，其中包含你想打印的数据，还包含一列数字，如下图所示。

如何在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