エクセルでファイルの最終更新日を自動入力したい

いつもお世話になっております。

複数の担当者で使用するエクセルファイルの最終更新日（最終データ入力日）の入力が担当者が変わると頻繁に抜けます。

そこで特定（A1）セルにファイルを保存した日付を自動（VBA)で更新し、ファイルを開けた時には前回保存時の日付が表示されるようにしたいのですが。

単純に＝today()を思いついたのですが、当然ダメですねよ。

質問者からの補足コメント

• 済みません！
  自己解しました。
  質問の取り消し方法が分からず補足に入れます。

    補足日時：2024/07/04 08:32

No.1 ベストアンサー 回答者： Hill-andon 回答日時： 2024/07/04 08:34

こんなネタ↓

https://ameblo.jp/yururi-lab/entry-12338321133.h …

https://www.miraclejob.com/recommend/detail?cd=2 …

この回答へのお礼

早々のご回答ありがとうございます。

最初にググった時にズバリがヒットせずに質問してしまったのですが、質問後再度文章でググってみたらご回答の上のURLがヒットしたので直ぐに「補足」させてもらった次第です。

他の方法もあるようなので参考にさせていただきます。

お礼日時：2024/07/04 10:05

No.4 回答者： googoo900 回答日時： 2024/07/05 21:35

自己解決したなら、締め切ってしまいましょう。

No.3 回答者： 河内のおやじ 回答日時： 2024/07/04 08:53

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

' 保存前に実行される
Sheets(1).Range("A1").Value = Now ' シート1のA1セルに現在の日付と時刻を入力
End Sub

Private Sub Workbook_Open()
' ファイルを開いたときに実行される
MsgBox "前回保存日: " & Sheets(1).Range("A1").Value ' メッセージボックスに前回保存日を表示
End Sub

この回答へのお礼

早々のご回答ありがとうございます。

最初にググった時にズバリがヒットせずに質問してしまったのですが、質問後再度文章でググってみたらズバリがヒットしたので「補足」させてもらった次第です。

この方法は当方には分かりやすく参考になりました。

お礼日時：2024/07/04 10:09

No.2 回答者： enunokokoro 回答日時： 2024/07/04 08:39

ユーザー関数ならこちら↓。

https://www.relief.jp/docs/000271.html
その他のプロパティ情報も取得できます。
https://vba-create.jp/vba-tips-last-author-last- …

この回答へのお礼

早々のご回答ありがとうございます。

最初にググった時にズバリがヒットせずに質問してしまったのですが、質問後再度文章でググってみたらズバリがヒットしたので「補足」させてもらった次第です。

他の項目に関する便利機能も紹介いただいたので参考にさせていただきます。

お礼日時：2024/07/04 10:08