如何在每次打印后自动递增 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