VBA技术求助：用户窗体初始化自动生成递增日志ID遇类型不匹配错误

错误原因 #

• 代码直接读取A列最后一行的参考号（如LSI-1）并执行lstdt + 1，但该值是带前缀的字符串类型，无法直接与数字进行加法运算，导致类型不匹配错误。
• 未考虑日志无记录的边界情况：当工作表第6行及以下无数据时，End(xlUp)会定位到第5行（表头行），获取的值并非预期的参考号格式，同样会引发错误。

解决方法 #

需要先提取参考号中的数字部分，转换为数值后递增，再重新拼接前缀LSI-。同时加入边界判断，处理无记录时的初始值。

修正后的初始化代码：

Private Sub UserForm_Initialize()
    Me.Height = 424
    Me.Width = 438
    Me.Zoom = 100

    Txt_DateLogged.Value = Format(Date, "dd/mm/yyyy")
    Txt_Month.Value = Format(Date, "MMM-YY")

    Call CBO_Supplier_Items
    Call CBO_SRM_Items
    Call CBO_Cause_Items

    Dim ws As Worksheet
    Dim lastRow As Long
    Dim lastRefNum As String
    Dim numPart As Long

    Set ws = ThisWorkbook.Sheets("LSI Log")
    
    ' 获取A列最后一个有数据的行号
    lastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    
    ' 处理边界情况：首条记录始于第6行，若最后行小于6则无记录
    If lastRow < 6 Then
        numPart = 1
    Else
        lastRefNum = ws.Range("A" & lastRow).Value
        ' 提取"-"后的数字部分并转换为数值
        numPart = CLng(Split(lastRefNum, "-")(1)) + 1
    End If
    
    ' 填充下一个参考号
    Me.Txt_IssueNum.Value = "LSI-" & numPart
End Sub

关键改进点 #

• 使用Split(lastRefNum, "-")(1)拆分字符串，提取出-后的数字部分。
• 用CLng()将提取的数字字符串转换为长整型，确保可以进行加法运算。
• 增加lastRow < 6的判断，当无记录时直接从LSI-1开始。

内容的提问来源于stack exchange，提问作者Tomas Joe Gemine