使用下面代码可实现打印和自动编码递增

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《使用下面代码可实现打印和自动编码递增》，欢迎阅读！

使用下面代码可实现打印和自动编码递增

设编码在F1单元格，使用下面代码可实现打印和自动编码递增。 按ALT+F11打开VBA窗口，插入一个模块，把下面代码复制进去。

回到excel窗口，按“视图－工具栏”，点“窗体”，调出“窗体”工具栏，在上面选一个按钮，添加到表格上，并指定宏为“打印”。

使用时，每点击一下添加的按钮，就会打印一次，并使编号自动加一。

Sub 打印()

ActiveWindow.SelectedSheets.PrintOut s = Val(Range("f1")) s = s + 1

Range("f1") = "'" & Right("0000" & s, 5) End Sub

同时按Alt和F11进入宏界面，在左上窗口找到本工作簿里的ThisWorkbook，双击它，在右边窗口粘贴如下代码： Private Sub Workbook_BeforePrint(Cancel As Boolean) Range("F1") = Format(CDate(Format(Range("F1"), "0000-00-00")) + 1, "YYYYMMDD") End Sub 这是第一种情况，假设单号在单元格F1，不是的话自己修改。另一种情况把中间那句话改为： If Left(Range("F1"), 6) = Format(Date, "YYYYMM") Then Range("F1") = Range("F1") + 1 Else Range("F1") = Format(Date, "YYYYMM") * 100 + 1 End If

本文来源：https://www.wddqxz.cn/0ea3bbbd2cc58bd63086bd46.html