EXCEL打印单据,单号自动递增.用函数或VBA

Question

因工作需要用EXCEL打印出库单据,单号能否自动按年月日+序号在每次打印后递增,例如:12月7日,打印20111207001后,单元格内数值变成20111207002...12月8日,单元格变成20111208001....
高手们有没有办法可以实现，最好用函数去处理。

Answer 1

必须用VBA

Private Sub Workbook_BeforePrint(Cancel As Boolean)
[a1] = [a1] + 1
End Sub

Private Sub Workbook_Open()
[a1].FormulaR1C1 = "=TEXT(TODAY(),""yyyymmdd"")&TEXT(0,""000"")"
End Sub

Answer 2

wo skjgfhu我是打酱油的