Excel 让表格根据日期自动生成打印序号

 

在Excel中做一份表格,要求A1单元格的数值随打印次数自动叠加,如2009年11月13日打印要求打印显示为200911130**(*代表打印次数),日期改变则打印次数归零。请问怎么实现。

按ALT+F11
双击thisworkbook

粘贴下面的代码后即可实现你的目的:

——————————————————————————

Private Sub Workbook_BeforePrint(Cancel As Boolean)
On Error GoTo E
x = Format(Date, “yyyymmdd”)
y = [a1].Value
If Left(y, 8) = x Then
[a1] = y + 1
Else
[a1] = x & “001”
End If
E: End Sub

——————————————————————————

PS:再次打开文件时要启用宏。

此条目发表在新闻分类目录。将固定链接加入收藏夹。