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

来源：百度知道 编辑：UC知道 时间：2024/06/08 19:32:24
在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：再次打开文件时要启用宏。

now()函数吧，你不会快到1秒钟打两份吧

得用宏来实现

=TEXT(TODAY(),"YYYY年M月D日")&TEXT(ROW(1:1),"0000")