Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)Range("F1") = Range("F1") + 1 '请自己把F1改为你实际存放单号的单元格End Sub回到Excel。
这可以实现,只要存盘,单元格F1就在原来的数字上加1。
如果你一天要存盘几次,而打印只有一次,建议将代码改为:
Private Sub Workbook_BeforePrint(Cancel As Boolean)Range("F1") = Range("F1") + 1End Sub这个可以实现:你一点打印,F1自动加1,然后打印。(因此,你原来的单号要小1号)。
按你所需了。
如果你一天又打印几次又存盘几次,比较麻烦。
匿名回答于2023-09-20 09:26:18
匿名回答于2023-08-21 16:24:28
匿名回答于2023-08-23 22:37:22