Excel VBA实现60工作表工作簿连续发票号生成需求

嘿，我帮你把代码调整完善好了，刚好能实现你在60个工作表里生成连续4位发票编号的需求。先讲下核心逻辑：先读取封面工作表D3的初始值"0000"，然后依次遍历所有其他工作表，每次在前一个编号的基础上加1，再格式化为带前导零的4位字符串填入对应工作表的D3单元格。

完整的VBA代码如下：

Sub InvoiceCounter()
    Dim sh As Worksheet
    Dim currentNum As Integer
    Dim wsCover As Worksheet
    
    ' 这里指定封面工作表，如果你封面表的名字不是"封面"，记得修改引号里的内容
    Set wsCover = ThisWorkbook.Worksheets("封面")
    
    ' 把封面D3的初始编号转换成整数，方便后续递增
    currentNum = CInt(wsCover.Range("D3").Value)
    
    ' 遍历工作簿里的每一个工作表
    For Each sh In ThisWorkbook.Worksheets
        ' 跳过封面表，因为它是初始值的来源
        If sh.Name <> wsCover.Name Then
            currentNum = currentNum + 1
            ' 格式化为4位带前导零的字符串，填入当前工作表的D3
            sh.Range("D3").Value = Format(currentNum, "0000")
        End If
    Next sh
    
    ' 可选操作：如果需要把封面的编号更新为最后生成的那个编号，取消下面这行的注释即可
    ' wsCover.Range("D3").Value = Format(currentNum, "0000")
    
    ' 弹窗提示操作完成，方便你确认
    MsgBox "发票编号已全部生成完毕！", vbInformation
End Sub

几个关键点要注意： #

• 工作表名称匹配：代码默认封面表叫"封面"，如果你的封面表名字不一样（比如"首页"），一定要修改Set wsCover = ThisWorkbook.Worksheets("封面")里的工作表名称，不然代码会报错。
• 编号格式控制：用Format(currentNum, "0000")可以确保不管数字多大，都显示为4位，比如数字1会变成"0001"，数字123会变成"0123"，完全符合你要的格式要求。
• 遍历逻辑：代码会自动跳过封面表，从其他工作表开始依次递增编号。如果你的工作簿刚好是60个工作表（包含封面），那最后一个工作表的编号会是"0059"，刚好对应连续的序列。

如果你的需求是封面之外的60个工作表从"0001"开始生成到"0060"，那可以稍微调整遍历逻辑，有需要的话随时说，我再帮你修改~

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