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

Excel表格的出货单号每次打印以后能否自动生成下一个单号?每次打印以后,下一次打印时又要手动设置单号,这样经常会出错,又很麻烦,请教各路高手,谢谢了.如:NO:0910... Excel表格的出货单号每次打印以后能否自动生成下一个单号?每次打印以后,下一次打印时又要手动设置单号,这样经常会出错,又很麻烦,请教各路高手,谢谢了.如:NO:09107,打印下一份自动变成NO:09108 09109如此 就是单号No。这个位置!如解决问题,可以追加分!现是201004141012,打印后自动跳为201004141013,201004141014 如此 展开
 我来答
匿名用户
推荐于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后打印)
匿名用户
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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式