如何把VBA里打印编号改为年月日+001

无雨谷 · 发表于 2018-9-25 16:53

如何把VBA里打印流水编号自动增加格式改为“年月日”+“001”，现在编号是001，如何加上年月日+流水编号000

打印测试.zip (10.35 KB, 下载次数: 19)

08yj2001 · 发表于 2018-9-25 16:59

[H2] = Format(Date, "yyyymmdd") & Application.Text(i, "000")

719404338 · 发表于 2018-9-25 17:07

Sub dayin()
Dim n As Integer
n = InputBox("打印次数") * 1
For i = 1 To n
'ActiveSheet.PrintOut Copies:=1
[H2] = "NO:" & Year(Now) & Month(Now) & Day(Now) & Application.Text(i, "000") '这里是H2，改成自己需要的单元格，后面是数字格式，根据需要修改
Next
End Sub

复制代码

无雨谷 · 发表于 2018-9-25 17:41

谢谢大神，可以了。顺便问一下打印时第一张和第二张编号是重复的，后面的都是依次加1的，能不能哪里改一下？比如打印5张，第一张和第二张编号是001，后面的是002/003/004，没有005

		自动登录	找回密码
密码			免费注册

[求助] 如何把VBA里打印编号改为年月日+001