EXCELにおいて保存日をセルに出力したい

Question

Excel2010においてcontrol + Sや上書き保存マークを使用して上書き保存した日付をセルに出力するにはどのように行えばよろしいですか？

内容が更新されたか？ではなく上書き保存されたか？で判定します。
なので、内容を更新しても上書き保存しなければ日付は変わらない。
そして、内容を変更していなくても上書き保存したら日付が変わるようにしたいです。

Comments

[takito]

「内容を更新しても上書き保存しなければ日付は変わらない」というのは、別名保存した場合ということでしょうか？

Answer 1

マクロでよければこんな感じではないでしょうか。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Worksheets("Sheet1").Range("A1").Value = Date
End Sub

Workbook_BeforeSaveは保存前のイベントなので
上書き保存の時だけ、内容の更新有無に関わらず日付が入るのではないかと思います。

Answer 2

WorkbookのBeforeSaveイベントで処理してはいかがでしょうか。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Worksheets(1).Cells(1, 1) = Now
End Sub