方法1
第一天编制时按Ctrl+;输入即可。
方法2
第一天编制时输入公式=TODAY(),关闭文件前选择有此公式的单元格复制粘贴值。关闭文件时的这些操作可以用下面VBA代码自动完成。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim s$, rs%, cs%, i%, c As Range
s = ***.Name
rs = ActiveCell.Row
cs = ActiveCell.Column
For i = 1 To Sheets.Count
Sheets(i).Select
For Each c In Range("A1", [A1].SpecialCells(xlLastCell))
If c.FormulaR1C1 = "=TODAY()" Then
***.Sele***t
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
End If
Next c
Range("A1").Select
Next i
Application.CutCopyMode = False
Sheets(s).Select
Cells(rs, cs).Select
***.Save
End Sub
追答 : VBA代码图: