求流水报告号 编码的代码...

jojolam08

报告编号：201608180000001              

生成时间： 2016-08-18 09:45:45

想要对这两部分编制宏语言自动生成，用按键控制，不知宏语言如果编码，请求各位大神帮助。
报告编号规则为年月日+0000001 后面的序列号按当天按这个按键的次数编码。
生成时间则较为简单，就是按按键的当时，精确到秒。

jojolam08

  If Left(Range("G3"), 8) = Format(Now(), "yyyyMMdd") Then
        Range("B3").Value = Left(Range("G3").Value, 8) & Format(Right(Range("G3").Value, 4) + 1, "000000")
    Else
        Range("B3").Value = Format(Date, "yyyyMMdd") & "0000001"
    End If
   
这是目前我能想到的代码

jojolam08

但是按当天按这个按键的次数编码，这个有点困难

jojolam08

Sub Start()

Range("G3").Value = Format(Now(), "yyyy-MM-dd hh:mm")

Range("B3") = Application.Text(Now(), "yyyymmdd") & Application.Text(Right(Range("B3"), 3) + 1, "000000")

End Sub

jojolam08

这样编好像可以了

grf1973

1. Sub Start()
   
2.     Range("G3").Value = Format(Now(), "yyyy-MM-dd hh:mm")
   
3.     x = Range("b3")
   
4.     If Format(Now, "yyyymmdd") = Left(x, 8) Then
   
5.         Range("b3") = Left(x, 8) & Format(Val(Right(x, 6)) + 1, "000000")
   
6.     Else
   
7.         Range("b3") = Format(Now, "yyyymmdd") & Format(1, "000000")
   
8.     End If
   
9. End Sub
   

复制代码