用EXCEL打印表格 自动加编码

Question

我现在用EXCEL编好了一个表格，打印时想在其上面加入类似于单据上的连续编码，请各位帮忙，在线等

Answer 1

假设
编码
在G1
单元格
，使用下面
代码
可实现打印和自动编码递增。
按ALT+F11打开VBA
窗口
，插入一个
模块
，把下面代码复制进去。
回到excel窗口，按“视图－工具栏”，点“窗体”，调出“窗体”工具栏，在上面选一个
按钮
，添加到
表格
上，并指定宏为“打印”。
使用时，每点击一下添加的按钮，就会打印一次，并使
编号
自动加一。
Sub
打印()
ActiveWindow.SelectedSheets.PrintOut
s
=
Val(Range("g1"))
s
=
s
+
1
Range("g1")
=
"'"
&
Right("0000"
&
s,
5)
End
Sub
如有疑问，可以H我。