excel表格送货单号怎么设置打印一份自动递增编号加1？-excel自动编号打印,excel打印自动增加编号

我不知道为什么现在不能上 传附件知。

设编号样式NO:WWJG17000001放在A1单元格，我写了一个VBA按钮程序，每按一下就道打印一次，一次一份当前编号的内容，打印完成后编号自动加一专，属17的年份按你的需要或你的首次编号你自己输入吧，不在程序中作处理：

Sub A1编号打印后加一_Click()
    Number = [A1]
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True
    [A1] = Left(Number, 9) & Format(Right(Number, 6) + 1, "000000")
End Sub

第一步，在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》确定，输入打印份数