vba 号码生成

菜小包同学

求助
求大神帮助

有一个表格， 内容有”当天日期“和 A1单元格。
表格填好后， 按按钮生成一个号码


号码由”当天的日期“+A1单元格首字母+ “- 1-10按序排列”组成，不可重复。

生成的号码依次保存在某个tab里面。

求怎么写vba代码

我的想法是
create code
然后和之前的保存的比对， 没有重复则生成， 有重复进到下一位
但是不成功

只是、那个人

没有看到表有点难理解，
拼接日期+A1单元格字幕累加后面序号不可以吗？

小凡、、、

for i = -1 to 10 ？，上传附件模拟结果

菜小包同学

小凡、、、 发表于 2024-8-14 13:04
for i = -1 to 10 ？，上传附件模拟结果

谢大侠，已上传

小凡、、、

菜小包同学 发表于 2024-8-14 13:16
谢大侠，已上传

这个意思？还有有点没理解

菜小包同学

只是、那个人 发表于 2024-8-14 13:02
没有看到表有点难理解，
拼接日期+A1单元格字幕累加后面序号不可以吗？

对，就是加序号，
比如日期是14/08/2024，A1单元格内容是Acc,希望生成的号码是14082024A1
如果14082024A1已经被用过了，那就用14082024A2

生成的号码保存到sheet2，相应 A1单元格的内容也保存在同一行

Qs18

Sub qs()
Dim arr
arr = Sheet2.Range("a1").CurrentRegion.Value
ReDim crr(1 To UBound(arr))
rq = Format(CDate(Sheet1.[d1].Value), "yyyy-mm-dd")
br = Split(rq, "-")
s = br(2) & br(1) & br(0)
t = Left(Sheet1.[a1].Value, 1)
For i = 1 To UBound(arr)
    If InStr(arr(i, 1), s & t) > 0 Then
        m = m + 1
        crr(m) = VBA.Replace(arr(i, 1), s & t, "") * 1
    End If
Next
mya = Application.Max(crr)
Sheet1.[j1].Value = s & t & mya + 1
Beep
End Sub

Qs18

试试.........

Qs18

试试..........

gyf519

看了一个月视频，试着做一个