做了一个简单的收银系统，想利用vba自动生成单号何解

redhat5800

做了一个简单的收银系统，想点击结算的时候，在A1列自动生成单号。我现在sheet2里用的是公式。但是怕前台收银乱删就没了，如果表格设置保护，又不能自动排序，所以想利用vba自动生成一个，请高手解答，谢谢

IVYQQQQQ

测试一下附件！

redhat5800

IVYQQQQQ 发表于 2019-12-29 11:02
测试一下附件！

redhat5800

IVYQQQQQ 发表于 2019-12-29 11:02
测试一下附件！

帅哥，我想最后的三位是按顺序排列的，比如001,002，一直这样往下排的

bobfifth

redhat5800 发表于 2019-12-30 10:44
帅哥，我想最后的三位是按顺序排列的，比如001,002，一直这样往下排的

订单号的格式是什么？"yyyymmddhhmmss"+001, 002... 这样吗？

redhat5800

bobfifth 发表于 2019-12-30 10:53
订单号的格式是什么？"yyyymmddhhmmss"+001, 002... 这样吗？

对呀，可行吗

bobfifth

可行。自定义函数getOrderNumber()
Function getOrderNumber(serialNum As Integer)
    Dim strToday, strTime As String
    strToday = Format(Date, "YYYYMMDD")
    strTime = Format(Time, "HHMMSS")
    getOrderNumber = strToday & strTime & Format(Str(serialNum), "000")
End Function

一个参数serialNum 可由订单中物品种类数算出来，就是该物品所在行的行号。

boy8199

别放在同一个文件里面， 生成的单号，保存在 另一个电脑的文件里面。悄悄的。

IVYQQQQQ

redhat5800 发表于 2019-12-30 10:44
帅哥，我想最后的三位是按顺序排列的，比如001,002，一直这样往下排的

一直往下什么逻辑呢？到1000行就是四位了，三位就不能满足要求了