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

2024-11-19 16:24:39
推荐回答(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