方法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代碼圖: