用EXCEL打印表格 自动加编码
发布网友
发布时间：2022-04-19 13:05
共1个回答
热心网友
时间：2023-08-17 21:57
按ALT+F11打开VBA窗口，插入一个模块，把下面代码复制进去。
回到excel窗口，按“视图－工具栏”，点“窗体”，调出“窗体”工具栏，在上面选一个按钮，添加到表格上，并指定宏为“打印”。
使用时，每点击一下添加的按钮，就会打印一次，并使编号自动加一。
Sub
打印()
ActiveWindow.SelectedSheets.PrintOut
s
=
Val(Range("g1"))
s
=
s
+
1
Range("g1")
=
"'"
&
Right("0000"
&
s,
5)
End
Sub
如有疑问，可以H我。
