EXCEL表格里怎么能让单号自动生成？

Question

我想在EXCEL表格里的单号上每次打印的时候自动更改单号,每次只需要增加1,比如现在我的单号是201004002,这样我现在打印一张就希望能生成为201004003而我打印好后表格上已经是201004003保存后下次打开就是201004003开始,在次打印就生成为201004004,以此类推! 希望有人能帮我一下、顺便把步骤好写清楚、谢谢！

Answer 1

　　excel里，可以利用时间函数today和row函数自动生成单号。

　　假如A列是单号，可以在A2输入公式：=IF(B2<>"",TEXT(TODAY(),"yyyymmdd")&ROW()-1,"")。公式解析：如果B2单元格为空，就显示为空，否则就返回日期函数和row函数生成的序列号。用today函数生成的序列号，带有日期的信息，可以在以后方便的查找。

Answer 2

用宏解决。在Excel中，同时按Alt和F11进入宏界面，在左上窗口找到本工作簿的名字，里面有个ThisWorkbook，双击它，在右边窗口粘贴如下代码：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("F1") = Range("F1") + 1 '请自己把F1改为你实际存放单号的单元格
End Sub
回到Excel。这可以实现，只要存盘，单元格F1就在原来的数字上加1。

如果你一天要存盘几次，而打印只有一次，建议将代码改为：
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("F1") = Range("F1") + 1
End Sub
这个可以实现：你一点打印，F1自动加1，然后打印。（因此，你原来的单号要小1号）。

按你所需了。如果你一天又打印几次又存盘几次，比较麻烦。

Answer 3

不可以这么省事.就是加入VB做成了,你假如打印纸卡坏了,你也不管么最省事你可以达到这样一个效果如单号这个单元格A2写上公式=TEXT(TODAY(),"YYYYMMDD")&TEXT(A1,"000")当A1写入1,A2就会生成20100402001当A1写入3,A2就会生成20100402003依次类推