求助：如何在Excel VBA发票系统中实现带前缀的自动递增发票号

核心实现逻辑 #

要生成JJ+数字格式的递增发票号，需完成三个步骤：遍历现有发票工作表提取最大发票号数字、将数字加1后重新拼接格式、写入新工作表的C10单元格。

修改后的完整代码 #

Private Sub CommandButton1_Click()
    ' 复制当前活动工作表到Master表前
    ActiveSheet.Copy Before:=Sheets("Master")
    Dim newWs As Worksheet
    Set newWs = ActiveSheet
    newWs.Name = "NewSheet" ' 可后续改为发票号命名，更易识别
    
    ' 插入当日日期
    newWs.Range("E10").Value = Now
    newWs.Unprotect Password:="password"
    
    ' --- 新增：自动生成递增发票号逻辑 ---
    Dim maxInvoiceNum As Long
    Dim currentWs As Worksheet
    Dim invoiceNumStr As String
    Dim invoiceNum As Long
    
    maxInvoiceNum = 0 ' 初始化最大发票号为0
    
    ' 遍历所有工作表，提取有效发票号
    For Each currentWs In ThisWorkbook.Worksheets
        ' 跳过Master表和刚创建的新表
        If currentWs.Name <> "Master" And currentWs.Name <> newWs.Name Then
            invoiceNumStr = currentWs.Range("C10").Value
            ' 校验是否为JJ开头的合法格式
            If Left(invoiceNumStr, 2) = "JJ" Then
                ' 提取数字部分并转为长整型
                invoiceNum = CLng(Mid(invoiceNumStr, 3))
                ' 更新最大发票号
                If invoiceNum > maxInvoiceNum Then
                    maxInvoiceNum = invoiceNum
                End If
            End If
        End If
    Next currentWs
    
    ' 生成新发票号并写入C10
    newWs.Range("C10").Value = "JJ" & (maxInvoiceNum + 1)
    ' --- 新增逻辑结束 ---
    
    ' 此处可补充同步数据至Master表的逻辑（若未实现）
    
    newWs.CommandButton1.BackColor = &H8080FF
End Sub

关键细节说明 #

• 工作表过滤：跳过Master表和新建表，避免重复计算无效数据
• 格式校验：仅处理JJ开头的发票号，防止非标准数据干扰结果
• 数字提取：通过Mid函数截取JJ后的数字部分，转为长整型支持大数场景
• 初始化兼容：若为第一张发票，自动生成JJ1

可选优化方向 #

• 将新工作表名称改为对应发票号，比如newWs.Name = "JJ" & (maxInvoiceNum + 1)，便于后续管理
• 把发票前缀JJ定义为常量，比如Const INVOICE_PREFIX As String = "JJ"，方便后续统一修改

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