求助如何实现编号自动获取为当前日期+001

adisszoom · 发表于 2017-2-3 15:37

求助！希望实现事件单号为当前日期+000的形式，在编号前有个字母S，且在保存后编号加1如：S20170203001，保存后为S20170203002

谢谢~！

liulang0808 · 发表于 2017-2-3 15:54

楼主这个保存是要怎么保存啊？

adisszoom · 发表于 2017-2-3 16:24

liulang0808 发表于 2017-2-3 15:54
楼主这个保存是要怎么保存啊？

就是文档保存后，ctrl+s，或单击保存

liulang0808 · 发表于 2017-2-3 16:34

工作薄事件beforesave吧，看看这个吧

adisszoom · 发表于 2017-2-3 16:56

各位大神有代码最好了~万分感谢！！

adisszoom · 发表于 2017-2-3 16:58

保存后编号加一我觉得比较方便，有更好的方式自然是最好了~~感谢大神们！

adisszoom · 发表于 2017-2-4 09:14

麻烦各位大神了！~

zax010 · 发表于 2017-2-4 15:22

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Sheet1
      If Mid(.[c3], 2, 8) <> Format(Date, "yyyymmdd") Then
         s = "S" & Format(Date, "yyyymmdd") & Format(1, "000")
      Else
         s = Mid(.[c3], 1, 9) & Format(Val(Mid(.[c3], 10)) + 1, "000")
      End If
      .[c3] = s
End With
End Sub

zax010 · 发表于 2017-2-4 15:25

>>>>>>>>>>>>>>>>>>>>>>

jim.wang · 发表于 2018-6-15 16:48

zax010 发表于 2017-2-4 15:25
>>>>>>>>>>>>>>>>>>>>>>

你好，我用了你这个语句，修改了下内容，为什么每次保存的时候，编号不能自动更新？

请问还有什么地方要做设置的吗？急，谢谢。

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

[求助] 求助如何实现编号自动获取为当前日期+001

评分

评分