Excel表格的单号每次打印以后能否自动生成下一个单号？

2024年11月19日 16:24

有2个网友回答

网友（1）：

不好意思，一直没上网，刚看到你的求助。

同时按Alt和F11进入宏界面，在左上窗口找到本工作簿里的ThisWorkbook，双击它，在右边粘贴如下代码：
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.Range("G3") = ActiveSheet.Range("G3") + 1
End Sub

粗体的G3为你单号所在单元格，请自己按实际修改。回到Excel，可以实现，一旦打印，单号自动加1（即加1后打印）

网友（2）：

只有用宏，才可以的，在SHEET上右击，查看代码
把下面的东西COPY到新的代码窗口，保存，然后打印。
下面的东西，有个地方需要注意：我是假设你单号的单元格为G3，如果不是，你把G3改为你实际的单元格。.
Private Sub Workbook_BeforePrint(Cancel As Boolean) P = Application.Dialogs(xlDialogPrint).Show If P = True Then Sheets(1).Range("G3").Value = Sheets(1).Range("G3").Value + 1 Cancel = True End IfEnd Sub