打印excel表格,每打印一张都需要实现数字的自动递增，哪位高手帮我做一个宏

2024-12-28 12:32:08

推荐回答（2个）

回答1：

亲，这个需要VBA编程。

打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧ThisWorkbook上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。

每次打印时，如果打印的当前表名称是“Sheet1”，都会把A1单元格的数字加1，然后再执行打印。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet1" Then
    Range("A1") = Range("A1") + 1
End If
End Sub

回答2：

要有触发条件