大佬们看看这个办法是不是太笨了

quantaotao · 发表于 2023-3-8 10:45

本帖最后由 quantaotao 于 2023-3-8 11:56 编辑

大佬们看看这个自动编号的是不是太笨了.有没有更简洁的办法

第一次没说清. 是给从单据生成统计表做的准备
比如每天要做销售单,一个单一个流水号. 然后把整个单据汇总到sheet2去生成统计表.
第1个单号就是20230308-01 第999个就是20230308-999
3月9号的第一个单号就是20230309-01

3190496160 · 发表于 2023-3-8 11:05

总得说一下编号的规则吧

quantaotao · 发表于 2023-3-8 11:06

3190496160 发表于 2023-3-8 11:05
总得说一下编号的规则吧

按照日期,生成流水编号

taller · 发表于 2023-3-8 11:08

你要实现什么

3190496160 · 发表于 2023-3-8 11:13

quantaotao 发表于 2023-3-8 11:06
按照日期,生成流水编号

呵呵，等于没说呗

tanglf188 · 发表于 2023-3-8 11:14

供参考,代码写的不会有重号的
Private Sub CommandButton1_Click()
Dim nmb$
nmb = Sheet2.Cells(Sheet2.Range("A" & Rows.Count).End(xlUp).Row, 1)
If Mid(nmb, 4, 8) = Format(Date, "yyyymmdd") Then
Sheet1.[A1] = Left(nmb, 12) & Format(Val(Right(nmb, 2)) + 1, "00")
Else
Sheet1.[A1] = Left(nmb, 3) & Format(Date, "yyyymmdd") & "-01"
End If
End Sub

Private Sub CommandButton2_Click()
If Sheet2.Cells(Sheet2.Range("A" & Rows.Count).End(xlUp).Row, 1) = Sheet1.[A1] Then Exit Sub
Sheet2.Cells(Sheet2.Range("A" & Rows.Count).End(xlUp).Row + 1, 1) = Sheet1.[A1]
End Sub

3190496160 · 发表于 2023-3-8 11:20

Private Sub CommandButton1_Click()
Dim zuida
zuida = Sheet2.Cells(Rows.Count, 1).End(xlUp)
Dim pono
If Mid(zuida, 4, 8) < Format(Date, "yyyymmdd") Then
      pono = "橡皮鱼" & Format(Date, "yyyymmdd") & "-" & "01"
Else
      xh = InStr(zuida, "-")
      sl = Val(Mid(zuida, xh + 1, Len(zuida) - xh))
      pono = "橡皮鱼" & Format(Date, "yyyymmdd") & "-" & Format(sl + 1, "00")
End If
Cells(1, 1) = pono
End Sub

3190496160 · 发表于 2023-3-8 11:21

猜的，仅供参考

自动编号保存.rar (22.45 KB, 下载次数: 5)

joy.008@163.com · 发表于 2023-3-8 11:32

提供品目列表;每天固定生成15单还是有其他的限制要求你不说清楚靠大家猜的么???

xunanming · 发表于 2023-3-8 11:46

尾号最大可生成多少?小于100的按00,大于100的按 000?是否可以直接都按000方式?

		自动登录	找回密码
密码			免费注册

[求助] 大佬们看看这个办法是不是太笨了