[已解决]各位大神帮忙Excel表格的单号每次打印后能自动生成下一个单号

111223231 · 发表于 2014-12-9 16:03

各位大神用宏怎样做出，比如我打印3张就变成20141209-002,003，第二天打印就会变成20141210-004，

请各位大神帮忙解答，谢谢！要全英文的宏，因为用的是英文版办公软件，谢谢！

最佳答案

zjdh

2014-12-10 10:29

Material Request (For Produce).rar (27.75 KB, 下载次数: 10)

zjdh · 发表于 2014-12-9 16:30

用宏打印，并用宏修改单号。

zjdh · 发表于 2014-12-9 16:39

Sub TEST()
ActiveSheet.PrintOut
Range("Q8") = Format(Date, "YYYYMMDD") & "-" & Format(Split(Range("Q8"), "-")(1) + 1, "000")
End Sub

111223231 · 发表于 2014-12-9 17:05

zjdh 发表于 2014-12-9 16:39
Sub TEST()
ActiveSheet.PrintOut
Range("Q8") = Format(Date, "YYYYMMDD") & "-" & Format(Split(Ra ...

谢谢你的回复，我添加到This workbook里面打印没反应，打印出来还是001没变到002, 003打印的3张都是001.

zjdh · 发表于 2014-12-9 17:58

发附件上来看看

zyouong · 发表于 2014-12-9 21:26

工作簿1.rar (15.2 KB, 下载次数: 3)

111223231 · 发表于 2014-12-10 09:05

本帖最后由 111223231 于 2014-12-10 09:07 编辑

zjdh 发表于 2014-12-9 17:58
发附件上来看看

Material Request (For Produce).zip (27.75 KB, 下载次数: 10)

zyouong · 发表于 2014-12-10 09:12

代码放到模块中，在页面上新建命令按钮。

111223231 · 发表于 2014-12-10 09:46

zyouong 发表于 2014-12-10 09:12
代码放到模块中，在页面上新建命令按钮。

不好意思本人菜鸟，不懂怎样做请高人指点

zjdh · 发表于 2014-12-10 10:29

Material Request (For Produce).rar (27.75 KB, 下载次数: 10)

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