Excel下按钮触发指定单元格跨表存入Database的发票VBA宏代码需求

需求背景 #

Excel工作簿包含两类核心工作表：

• Invoice表：采用自定义格式的单张发票录入界面，承载日常开票的字段填报功能
• Database表：所有历史发票业务的统一归档存储表

配套「New Invoice」按钮绑定的VBA宏需要实现完整的开票后归档流程：

1. 点击按钮后，将Invoice表内的发票编号、订单编号、销售编号、日期、客户名称、小计、订单类型字段，追加写入Database表的对应列完成数据归档
2. 清空Invoice表内所有已填报的录入单元格内容
3. 按规则自动递增生成下一张发票的编号
4. 弹出业务录入窗体UserForm1，支持下一张发票的填报

现有已实现的基础代码 #

目前已完成的NewInvoice过程已覆盖发票号递增、指定录入区清空、弹出录入窗体三个基础环节，代码如下：

Sub NewInvoice()
Range("H8").Value = Range("H8").Value + 0.00001
Range("D8:D10").ClearContents
Range("C13:C23").ClearContents
Range("H9:H10").ClearContents
Range("H25:H27").ClearContents
UserForm1.Show
End Sub

现存功能缺口：缺少将指定业务字段跨表复制、追加到Database表的归档逻辑，需要将该逻辑直接嵌入现有过程，保证运行稳定、完全适配现有工作表结构。

补全后可直接落地的完整代码 #

考虑到原代码的逻辑顺序问题（原代码先递增发票号再清空，如果直接写入归档逻辑会导致存储的发票号是新生成的空号），补全时会调整执行顺序，保证业务数据归档的准确性：

Sub NewInvoice()
    ' 定义工作表对象，避免跨表读写时因用户切换页面出现运行错误
    Dim wsInvoice As Worksheet, wsDB As Worksheet
    Dim nextArchiveRow As Long
    Set wsInvoice = ThisWorkbook.Worksheets("Invoice")
    Set wsDB = ThisWorkbook.Worksheets("Database")
    
    ' 定位Database表的下一个可写入空行（默认第1行为表头，从第2行开始存储数据）
    nextArchiveRow = wsDB.Cells(wsDB.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 逐字段完成归档，单元格对应关系可根据实际布局直接调整
    With wsInvoice
        wsDB.Cells(nextArchiveRow, 1).Value = .Range("H8").Value   ' 写入发票编号
        wsDB.Cells(nextArchiveRow, 2).Value = .Range("D8").Value   ' 写入订单编号
        wsDB.Cells(nextArchiveRow, 3).Value = .Range("D9").Value   ' 写入销售编号
        wsDB.Cells(nextArchiveRow, 4).Value = .Range("D10").Value  ' 写入开票日期
        wsDB.Cells(nextArchiveRow, 5).Value = .Range("C13").Value  ' 写入客户名称
        wsDB.Cells(nextArchiveRow, 6).Value = .Range("H25").Value  ' 写入订单小计
        wsDB.Cells(nextArchiveRow, 7).Value = .Range("H9").Value   ' 写入订单类型
    End With
    
    ' 执行原有已验证的功能逻辑
    wsInvoice.Range("H8").Value = wsInvoice.Range("H8").Value + 0.00001
    wsInvoice.Range("D8:D10").ClearContents
    wsInvoice.Range("C13:C23").ClearContents
    wsInvoice.Range("H9:H10").ClearContents
    wsInvoice.Range("H25:H27").ClearContents
    
    ' 弹出录入窗体
    UserForm1.Show
End Sub

适配调整说明 #

• 所有跨表引用全部加上明确的工作表绑定，取消无参照的Range默认引用，避免用户操作过程中切换工作表导致的读写错误
• 调整执行顺序为「先归档当前发票有效数据→再生成新的递增发票号→清空录入区→弹出窗体」，从根本上避免原逻辑可能出现的发票号归档错误
• 空行定位逻辑自动识别Database表最后一行有效数据的下一个位置，追加写入时不会覆盖已有历史归档内容
• 代码内的单元格对应关系预留了调整入口，用户可根据Invoice表的实际字段位置、Database表的列排列顺序直接修改匹配关系，无需调整整体逻辑框架

内容的提问来源于stack exchange，提问作者Md. Imran Hossain