如何在excel表格中插入年月日加序号的自动编号栏，

来源：百度知道 编辑：UC知道 时间：2024/07/05 14:26:04
1、需要创建一个打印票据表格模板，模板中有一个票据表格自动编码栏；
2、编码要求为年月日+3位自动序号，如20080910001，票据编码每打印一次会自动给出新的票据编码；
3、打印出的票据编码中的年月日为系统中设定的年月日，3位自动序号尾数为+1的自动更新序号.

excel无法实现编码自动化，你要编程实现！

a1=20080829000，然后ALT+F11，粘贴以下代码，ALT+F11。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
x = Right([a1], 3) * 1 + 1
If x < 10 Then
x = "00" & x
else
If x < 100 Then
x = "0" & x
endif
End If
[a1] = Year(Now) & Month(Now()) & Day(Now()) & x
End Sub