怎么在excel表里实现打印时编号自动增加

Question

编号样式为NO:WWJG17000001，其中17代表年份，每年递增，000001是打印序列号，没打印一次自动更新

Answer 1

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

设编号样式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

追问

刚刚试了代码好像要按更新执行宏编号才能更新，光点打印按钮编号不会自动

追答

是的。你在开发工具插入一个按钮，将这程序复制进去，按这按钮执行。

追问

如果打印后发现内容错误，编号需要重置，宏又该怎么设置，谢谢！