更新日表示

質問

エクセルで更新日が表示されるようにするにはどうしたらよいでしょうか。

回答No.1

chubuchubu · ベストアンサー

ファイルの右クリックでプロパティを選択すると更新日時が表示されますが、そういうことですか?
それともマクロを使ってあるセル内に表示させるという意味でしょうか?
もしそうならマクロエディタでThis Workbook内に以下のマクロを入れてみてください。
閉じるときにメッセージボックスが表示され、Yesなら作成日が更新され表示されます。Noなら保存しないで閉じるというものです。
尚、表示させるセルは予めセルの書式設定で表示形式を変更しておいた方が良いでしょう。
例えば、「○○○○年○○月○○日」とか「"更新日:"yyyy"年"d"月"m"日"」とかです。
私は実際に使っています。誰かが保存すれば更新日が分かるので便利です。

Private Sub workbook_beforeclose(cancel As Boolean)
Dim wbk As Workbook
Dim res As Integer
Set wbk = ActiveWorkbook
With ThisWorkbook
res = MsgBox("変更を有効にして保存しますか？" & vbLf & "「はい」を選択した場合、更新日が変更されます。", vbYesNoCancel + vbQuestion)
Select Case res
Case vbYes
With .Worksheets(1).Range("表示させたいセル")
.Value = Date
End With
wbk.Save
Case vbNo
wbk.Saved = True
Case vbCancel
cancel = True
End Select
End With
End Sub

お礼

望んでいたのはセル内に表示させることです。
出来ました（＾＾）
ありがとうございました！