有个已做好的excel销售订单格式,需要在填写信息完成后保存自动生成一个...
发布网友
发布时间:2024-10-13 09:19
我来回答
共1个回答
热心网友
时间:2024-11-14 03:48
如果每次打开表格时此单据码自己改变,可以不用VBA,只用EXCEL公式就行了,比如在A1格中生成一个包括日期的编码,可以在A1中输入公式=YEAR(NOW()) & RIGHT("00"&MONTH(NOW()),2) & RIGHT("00"&DAY(NOW()),2) & "001"
如果想每次打开表格后,此单据码是不能改变的,就要用VBA了,在VBA窗口中左侧找到Thisworkbook项目,输入下面代码:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("sheet2").Range("a1") = Year(Now()) & Right("00" & Month(Now()), 2) & Right("00" & Day(Now()), 2) & "001"
End Sub