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

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

步骤2

现在将表格保存为启用宏的模板,然后单击F5运行代码。将生成弹出窗口,如下图所示。

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

步骤3

每次打印后,单元格中的数据都被删除,并将指针移动到下一个单元格,如下图所示。

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

结论

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

Python教程

Java教程

Web教程

数据库教程

图形图像教程

大数据教程

开发工具教程

计算机教程