用EXCEL打标签,把某一个单元格的数字依次加1,手工改很麻烦,有没有简单方法?

来源：百度知道 编辑：UC知道 时间：2024/06/23 08:46:43
比如说打印第一张D5格的数字是1,打印第二张让它变成2,用宏可以吗?具体怎么用,请指点

Sub Macro1()
'
' Macro1 Macro
' 宏由 zhai 录制，时间: 2008-8-6
'

'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Dim I As Integer
I = Range("D5").Value
I = I + 1
Range("D5").Value = I
End Sub

按下ALT+F11,菜单:插入-模块,复制下面代码.退出
只要你对工作表进行打印后,D5的数字就会加1

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.Cells(5, 4) = ActiveSheet.Cells(5, 4) + 1
End Sub

=D5+1