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

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

如何在Excel中每次打印后自动增加单元格值?

第2步

现在将工作表保存为支持宏的模板,并点击F5来运行代码。一个弹出式窗口将被生成,如下图所示。

如何在Excel中每次打印后自动增加单元格值?

第3步

每次打印后,单元格中的数据被删除,指针被移到下面的单元格,如下图所示。

如何在Excel中每次打印后自动增加单元格值?

结论

在本教程中,我们用一个简单的例子来演示如何在Excel中每次打印后递增单元格值。

Python教程

Java教程

Web教程

数据库教程

图形图像教程

大数据教程

开发工具教程

计算机教程