用EXCEL打印表格自动加编码

2024-12-01 05:13:17

推荐回答（5个）

回答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我。

回答2：

以我多年的经验好象不可以出现这样的结果，上面那位说的定义页眉或页脚也不能出现这自动变的结果，还是手动输入下吧

回答3：

可以用宏实现，但是我水平太低爱莫能助
就是统计打印次数的功能，每打印一次，编码自动加1

回答4：

定义页眉或页脚，在页面设置里

回答5：

页眉或页脚

用EXCEL打印表格 自动加编码

用EXCEL打印表格自动加编码