在Excel中，单据编号怎样自动更新？

Question

我在做一张出库单，例如编号是1，打印完之后，第二张编号是2，依次递增，有没有什么公式可以解决，或是别的方法

Answer 1

execl序号如何自动更新？

Answer 2

Private Sub Workbook_BeforePrint(Cancel As Boolean)
[a1] = [a1] + 1
End Sub
此VBA的作用是每次打印前，a1的值加1 。缺点是所见非所得。

可自编一个打印程序，打印后a1加1：
Private Sub my_print()
Print
[a1] = [a1] + 1
End Sub追问

不好意思，我是个菜鸟，你这个打印程序我不是太懂，能说的再详细点吗

本回答被网友采纳

Answer 3

复制出库单到若干个工作表，并依次命名为1，2，3，。。。
出库单编号的地方填
=MID(CELL("Filename"),FIND("]",CELL("Filename"))+1,LEN(CELL("Filename"))-FIND("]",CELL("Filename")))
打印所以工作表就可以了

Answer 4

Answer 5

65