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

2024-11-03 22:00:43

推荐回答（5个）

回答1：

按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：再次打开文件时要启用宏。

回答2：

这个可以使用vba代码实现，但是有一个问题。如果中间有一页打印（由于打印机的原因）错误了。需要重新打印。这个号还是会加1的。

回答3：

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

回答4：

不改变原始表格数据，打印时自动添加打印日期。

回答5：

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