选中最后两个格(有连续号的),光标移到格的右下角,变为“+”,按左键,向下拖鼠标,就能自动填写连续号了。
假如 订单号 在A1 , 工作薄 名称 为 收发票据
1、在A1输入Invoice No.A000000
2、下列代码输入到 ThisWorkbooks中(即 快捷键 Alt + F11--------出现VBA窗口------左侧 下面窗口 名称ThisWorkbooks,双击此名称,把以下代码输入到 右侧空白窗口)
Private Sub Workbook_BeforePrint(Cancel As Boolean)
N = Right(Range("A1"), 6) + 1
Range("A1") = "Invoice No.A" & Format(N, "000000")
End Sub
3、关闭以上窗口
4、点击打印-----保存-----自动生成编号
5、重新开始编号的话----------在 第4步操作时 删除里面的(收发票据 编号)所有数据 即可