Excel VBA 实现用户窗体文本框提取TCNumber序列自动递增加1求助

原代码问题原因 #

原有代码仅输出数字部分的原因是：提取数字计算完成后没有拼接TC前缀，也没有保留前导零格式，直接将纯数字赋值给了文本框。

修正后完整代码 #

Sub 加载TC编号窗体()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim lastTC As String
    Dim tcNumPart As Long
    Dim newTC As String
    
    ' 指定目标工作表
    Set ws = Worksheets("Material Tracibility Register")
    
    ' 获取A列最后一行行号
    lastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    
    ' 异常处理：如果A列无数据，默认从TC00001开始
    If lastRow = 1 And IsEmpty(ws.Range("A1").Value) Then
        newTC = "TC00001"
    Else
        ' 读取最后一行的完整TC编号
        lastTC = ws.Range("A" & lastRow).Value
        ' 提取第3位开始的数字部分，转为数值后加1
        tcNumPart = CLng(Mid(lastTC, 3)) + 1
        ' 拼接前缀并补5位前导零，保证格式一致
        newTC = "TC" & Format(tcNumPart, "00000")
    End If
    
    ' 赋值给窗体文本框，显示完整TC编号
    UserForm1.TXBTCNumber.Value = newTC
    ' 显示窗体
    UserForm1.Show
    
    ' 如需确认后直接写入新行A列，可在窗体确认按钮的点击事件中加入以下代码：
    ' ws.Range("A" & lastRow + 1).Value = UserForm1.TXBTCNumber.Value
End Sub

核心调整说明 #

• 保留完整编号格式：提取数字计算完成后，拼接回TC前缀，用Format函数补5位前导零，保证编号和原有格式完全一致，比如最后一个编号是TC00010，生成的新编号就是TC00011
• 修复工作表对象指向问题：所有单元格读取都明确指定ws工作表对象，不会因活动工作表变化读错数据
• 增加空表兼容逻辑：A列无数据时默认从TC00001开始生成编号，避免报错
• 变量类型优化：行号改用Long类型，避免行数超过Integer范围报错

内容的提问来源于stack exchange，提问作者ivai Charambira