excel单号自动生成

Question

Excel表格的出货单号每次打印以后能否自动生成下一个单号？每次打印以后，下一次打印时又要手动设置单号，这样经常会出错，又很麻烦，请教各路高手，谢谢了.如：NO:09107，打印下一份自动变成NO：09108 09109如此 就是单号No。这个位置！如解决问题，可以追加...

Answer 1

要使用VBA程序，写入以下代码：
Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim x As Integer

x = Val(Right(Sheet1.Cells(1, 1), Len(Sheet1.Cells(1, 1)) - 3))

Sheet1.Cells(1, 1) = "NO:" & WorksheetFunction.Text(x + 1, "000000")

End Sub

其中000000个数根据需要设置。