Excel 怎么设置编号每打印一次自动递增

Excel 怎么设置编号每打印一次自动递增

第一步，在excel里，按ALT+F11，会弹出一个窗口

第二步，在弹出的窗口里选 菜单中的插入，模块

第三步，复制粘贴下面
Sub dayin()
dim n as integer
n=inputbox("打印次数") *1
for i=1 to n
activesheet.PrintOut Copies:=1
[H2]= "NO:" & application.text(i,"0000000000")'这里是H2，改成自己需要的单元格，后面是数字格式，根据需要修改
next
End Sub
代码，然后关闭窗口
第四步，回到excel中》宏》dayin》确定，输入打印份数

第一步，在excel里，按ALT+F11，会弹出一个窗口
​在VB中输入以下代码程序就行,你的流水号设置在哪个位就把[F3]换成你要的位置就行!
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet3" Then
    Application.EnableEvents = False
    [f3] = Left([f3], 9) & Format(Right([f3], 5) + 1, "00000")
    Application.EnableEvents = True
End If
End Sub
此程序我是在网上搜出的，原来的程序会重复打印，后来我查了很久，把其中的一个编程删掉才不会重复打印