Excel VBA：打印x份副本，每个副本在单元格中数量递增

Question

是否可以：

• 每次打印一页时增加单元格中的数字：例如，打印 20 页，单元格中的数字为 1-20

  或者如果不可能：

• 运行一个 For 循环，每次增加数字，每次增加数字时间提示打印机打印。

我知道这是一个非常基本的问题，但请耐心等待 - 这是我第一次尝试 Excel 宏的运气。

干杯

Answer 1

可以将此代码放入“ThisWorkbook”对象中，以便在每次打印工作簿中的内容时递增单元格值。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 ThisWorkbook.Sheets("Sheet1").Range("A1").Value = _
  ThisWorkbook.Sheets("Sheet1").Range("A1").Value + 1
End Sub

Answer 2

可以使用 VBA 宏来填充和打印工作表。对于 Excel 2010，使用开发人员功能区来录制宏。它将在 Visual Basic 宏中记录您想要的步骤，然后您可以对其进行编辑。您可以更改宏以使用 For 循环，从而在每次打印之前更改工作表。