☰

Microsoft Excel - 用于复制发票数据的宏

tag-icon • tag-icon microsoft-excel worksheet-function microsoft-excel-2007 macros
Microsoft Excel - 用于复制发票数据的宏

好吧，长话短说，我们正在构建一个完全自定义的宏启用数据库和发票系统。目前，我们已经设法设置了宏，用于添加新客户、查找现有客户编号、创建发票，使用弹出框输入客户编号，自动将客户信息填充到发票中，以及添加产品 SKU 的按钮，自动填充描述和定价。

我们似乎遇到的主要问题是能够创建一个“保存发票”按钮，该按钮将某些单元格中的单元格数据复制到新的工作表中。

我们想要复制的内容基本上是：

单元格 E5 和 F5 是合并单元格，位于 A 列的第一个空白处。

单元格 E6 和 F6 是合并单元格，位于 D 列的第一个空白处。

单元格 E7 和 F7 是合并单元格，位于 C 列的第一个空白处。

单元格 B10 和 C10 是合并单元格，位于 B 列的第一个空白处。

将单元格 G49 放入 E 列的第一个空白处。

将单元格 G50 放入 F 列的第一个空白处。

将单元格 G51 放入 G 列第一个空白处。

需要复制到的新工作表名为“发票”，并通过点击“保存发票”按钮从“收据”选项卡进行传输。

答案1

这可能就是您所描述的。

Sub saveButton()
 Set ws = Sheets("Invoices")
 Set rs = Sheets("Receipts")
 LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1
  ws.Range("A" & LastRow) = rs.Range("E5")
  ws.Range("D" & LastRow) = rs.Range("E6")
  ws.Range("C" & LastRow) = rs.Range("E7")
  ws.Range("B" & LastRow) = rs.Range("B10")
  ws.Range("E" & LastRow) = rs.Range("G49")
  ws.Range("F" & LastRow) = rs.Range("G50")
  ws.Range("G" & LastRow) = rs.Range("G51")
End Sub

相关内容