VBA实现表单自动编号

Posted 2021-02-11 luoye00

效果：每次提交或刷新标段，表单案指定格式实现自动编号。如当天日期加数字编号的格式 即 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 With
End Sub