效果：每次提交或刷新标段，表单案指定格式实现自动编号。如当天日期加数字编号的格式 即 2019年2月3日产生的第一张表单产生的编号格式为20190203-001 以此类推第二张表单编号为20190203-002 

如果日期发生变化，那么日期后面的编号也从1开始。如2019年2月4日那么，他的编号20190204-001 如果是当天，他产生多章表单那么编号会自动递增。 如果表单编号所在单元格为空那么也将从001开始

产生编号。

代码：

Sub autonum()    a = Right([c2], 2)    cdat = Format(Now(), "yyyymmdd")    pc = Left([c2], 8)    va = ThisWorkbook.Sheets("a3").Range("c2").Value    MsgBox va    With ThisWorkbook.Sheets("a3")        If va = "" Or cdat <> pc Then            c = Format(Now, "yyyy") & Format(Now, "mm") & Format(Now, "dd") & "-" & Format(1, "000")            .Range("c2").Value = c        Else            c = Format(Now, "yyyy") & Format(Now, "mm") & Format(Now, "dd") & "-" & Format(a + 1, "000")            .Range("c2").Value = c        End If    End WithEnd Sub