我有一个需求,比如我dim a ,b as string,a=format(date,"yyyymmdd"),b="0001"
在A1单元格自动得到201807290001,在今天之内第二次点击控件时,判断A1单元格里的前八位,即20180729是不是当天的日期,如果是,则b+1,显示201807290002,依次类推,如果7月30日第一次点击控件时,A1单元格的值则自动变为201807300001,第二次点击时,则显示为201807300002,求代码
答:
Sub Demo()On Error Resume Next
Dim CurDate As Date
CurDate = DateValue(Application.Text(Left(Range("A1"), 8), "0000-00-00"))
If CurDate = Date Then
Range("A1") = Left(Range("A1"), 8) & Format(CLng(Right(Range("A1"), 4)) + 1, "0000")
Else
Range("A1") = Format(Date, "yyyymmdd") & "0001"
End If
End Sub
温馨提示:答案为网友推荐,仅供参考