Excel表格的单号每次打印以后能否自动生成下一个单号?
Excel表格的出货单号每次打印以后能否自动生成下一个单号?每次打印以后,下一次打印时又要手动设置单号,这样经常会出错,又很麻烦,请教各路高手,谢谢了.如:NO:0910...
Excel表格的出货单号每次打印以后能否自动生成下一个单号?每次打印以后,下一次打印时又要手动设置单号,这样经常会出错,又很麻烦,请教各路高手,谢谢了.如:NO:09107,打印下一份自动变成NO:09108 09109如此 就是单号No。这个位置!如解决问题,可以追加分!现是201004141012,打印后自动跳为201004141013,201004141014 如此
展开
2个回答
推荐于2016-04-04
展开全部
不好意思,一直没上网,刚看到你的求助。
同时按Alt和F11进入宏界面,在左上窗口找到本工作簿里的ThisWorkbook,双击它,在右边粘贴如下代码:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.Range("G3") = ActiveSheet.Range("G3") + 1
End Sub
粗体的G3为你单号所在单元格,请自己按实际修改。回到Excel,可以实现,一旦打印,单号自动加1(即加1后打印)
同时按Alt和F11进入宏界面,在左上窗口找到本工作簿里的ThisWorkbook,双击它,在右边粘贴如下代码:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.Range("G3") = ActiveSheet.Range("G3") + 1
End Sub
粗体的G3为你单号所在单元格,请自己按实际修改。回到Excel,可以实现,一旦打印,单号自动加1(即加1后打印)
2013-06-19
展开全部
只有用宏,才可以的,在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
把下面的东西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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询