《用ECEL打印表格 自动加编码.docx》由会员分享,可在线阅读,更多相关《用ECEL打印表格 自动加编码.docx(1页珍藏版)》请在三一办公上搜索。
用ECEL打印表格 自动加编码用EXCEL打印表格 自动加编码 假设编码在G1单元格,使用下面代码可实现打印和自动编码递增。 按ALT+F11打开VBA窗口,插入一个模块,把下面代码复制进去。 Sub 打印 ActiveWindow.SelectedSheets.PrintOut s = Val(Range(g1) s = s + 1 Range(g1) = & Right(0000 & s, 5) End Sub 回到excel窗口,按“视图工具栏”,点“窗体”,调出“窗体”工具栏,在上面选一个按钮,添加到表格上,并指定宏为“打印”。 使用时,每点击一下添加的按钮,就会打印一次,并使编号自动加一。