作者：乔山办公网日期：
返回目录：excel表格制作
excel里，可以利用时间函copy数today和row函数自动生成单号。
假如A列是单号，可以在A2输入公式：=IF(B2<>"",TEXT(TODAY(),"yyyymmdd")&ROW()-1,"")。公式解析百：如果B2单元格为空，就显示为空，否则就返回日期函数和row函数生成的序列号。用today函数生成的序列号，带有日期的信息，可以度在以后方便的查找。
按Alt+F11，左边选 ThisWorkbook ,在右边窗口粘抄上下面的代码，
把你的“单据编号：RY-20100000”单元格位百置放在代码：
Set a = Sheets("Sheet2").[A1]
在打印度前就会询问是否更新单据编号，回答"是"会更新编号，然后打开知打印对话框。回答"否"不会道更新编号，可还会打开打印对话框。回答"取消"会取消打印。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Set a = Sheets("Sheet2").[A1]
confirm = MsgBox("自动更新单据编号？", vbYesNoCancel)
If confirm = 2 Then Cancel = True: Exit Sub
If confirm = 6 Then
a.Value = "单据编号：RY-201" & WorksheetFunction.Text(Right(a.Value, 5) + 1, "00000")
End If
End Sub
可以加一个“已打印完”的按钮吗？
可以的,不知道你的单据要什么样式,你把单据样式设计好发过来我可以帮你弄.
413186190@QQ.COM