VBA根据日期自动编号问题

Kenny820918 · 发表于 2021-7-25 12:26

请教如何用vba根据姓名自动生成编号，编号格式为日期+姓名+序号，序号从01开始，添加下一个姓名时候序号变成02，隔天后序号又是从01开始，感谢大神帮忙！

请教自动编号.zip (8.49 KB, 下载次数: 5)

梦幻的流星 · 发表于 2021-7-25 12:38

请教自动编号.zip (14.39 KB, 下载次数: 7)

Kenny820918 · 发表于 2021-7-25 12:52

梦幻的流星发表于 2021-7-25 12:38

谢谢大神，但是有个问题，可否根据上个单元格的编号的序号来生成下一个序号，因为我发现有个问题，如果a列单元格我修改的话序号就会自动加1了，因为这种情况是存在的，如果我单元格输错了，重新输入，编号就自动加1了

向東 · 发表于 2021-7-25 13:01

编程逻辑：当姓名列有变更时检测右单元格是否有编号，若是有编号则检测结束，若是没有编号就到上方去查询是否有当日的编号，若是有就查到最大值，然后当前就是最大值＋1，若是没有当前就是01

Kenny820918 · 发表于 2021-7-25 13:05

向東发表于 2021-7-25 13:01
编程逻辑：当姓名列有变更时检测右单元格是否有编号，若是有编号则检测结束，若是没有编号就到上方去查询是 ...

谢谢老师指点，逻辑我也明白是这样的，但是无奈vba是菜鸟，不懂如何写，能不能帮忙写下代码，不甚感激！

向東 · 发表于 2021-7-25 14:36

都是从菜鸟过来的，有注释，希望能开启你的VBA之路。

3190496160 · 发表于 2021-7-25 14:55

Private Sub Worksheet_Change(ByVal T As Range)
If T.Row > 1 And T.Column = 1 Then
If T.Count > 1 Then Exit Sub
If T.Value = "" Then Exit Sub
If T.Row = 2 Then
      T.Offset(, 1) = Format(Date, "yyyymmdd") & T.Value & Format(1, "00")
ElseIf T.Row > 2 Then
      zf = Left(T.Offset(-1, 1), 8)
      rq = Format(Date, "yyyymmdd")
      If Val(zf) <> Val(rq) Then
         T.Offset(, 1) = Format(Date, "yyyymmdd") & T.Value & Format(1, "00")
      Else
         sl = Len(T.Offset(-1, 1))
         sl_1 = Len(T.Offset(-1))
         zf_1 = InStr(T.Offset(-1, 1), T.Offset(-1)) + sl_1
         xh = Mid(T.Offset(-1, 1), zf_1, sl - zf_1 + 1)
         T.Offset(, 1) = Format(Date, "yyyymmdd") & T.Value & Format(Val(xh) + 1, "00")
      End If
End If
End If
End Sub

3190496160 · 发表于 2021-7-25 14:56

请教自动编号.rar (16.49 KB, 下载次数: 11)

Kenny820918 · 发表于 2021-7-25 15:51

谢谢各位老师，问题解决了

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

[求助] VBA根据日期自动编号问题