VBA實現表單自動編號

效果：每次提交或刷新標段，表單案指定格式實現自動編號。如當天日期加數字編號的格式 即 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