如何在excel中设置票据打印
发布网友
发布时间：2022-04-20 20:03
我来回答
共1个回答
热心网友
时间：2023-06-28 07:19
我可以帮你实现在打印前增加。不过你的例子说的不明白，是从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
