在excel中打印的时候可以自动生成单据编号吗

Question

在excel中打印的时候可以自动生成单据编号吗 如： 就是打印一次单号就自动加1这样子的

Answer 1

我可以帮你实现在打印前增加。不过你的例子说的不明白，是从20100731变成20100801（即年月日）这样的呢，还是7月份20100701、20100702、...20100756、20100757、....到了8月份20100801、20100802、...20100835、20100836、（即年月加序号） 无论如何，操作如下： 同时按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