エクセルシートにファイル改定日を自動的に入れたい

質問

Excel2000を使用しています。

セルやヘッダーに現在の時刻、日付を入れる方法は分かるのですが、ファイルを改訂した日、および時刻を自動的に入れる方法が分かりません。プロパティを見れば済むこどですが、作成したいドキュメントの都合上、シートに自動的に入力される方が好ましいです。

どなたかご存知ないでしょうか？

回答No.3

suzusan7 · ベストアンサー

VBAとなりますが、以下ではどうでしょう？

Function LastSave()
Application.Volatile
LastSave = FileDateTime(ActiveWorkbook.FullName)
End Function

関数形式で使用できますので、普通にセルに
＝lastsave()
と入力すると更新日時を表示できます。
ただし、セルの表示形式を日付にしておく必要がありますが。
再計算するようになっておりますので、
保存時には再計算がされませんの更新しませんが、
他のセルに入力したり、F9キーで再計算させると
自動的に更新します。

お礼

お返事ありがとうございます。
やはりVBを使用しないと無理なのですね・・・。
全く使ったことがないので、少し研究します。

回答No.2

imogasi

関数では更新日取得はないのでは。VBAで良ければ、
Sub test01()
fdtime = FileDateTime("c:\My Documents\aaa.xls") 'ファイルの更新日を取得
MsgBox fdtime
MsgBox Format(fdtime, "yyyy/mm/dd")
MsgBox Format(fdtime, "hh/mm/ss")
Cells(1, 1)="更新日"
Cells(1, 2) = Format(fdtime, "yyyy/mm/dd")
Cells(1, 3) = Format(fdtime, "hh/mm/ss")
End Sub
でファイル更新日がわかるので、シートのセルにセットする事ができます。MsgBox行は確認用、用済後削除してください。

お礼

お返事ありがとうございます。
やはりVBを使用しないと無理なのですね・・・。
全く使ったことがないので、少し研究します。

回答No.1

noname#9485

表示させたいシートのセルにnow関数を入れておくのではだめですか?
たとえばA1のセルに
=now（）という風に。。。。

意味が違ってたらごめんなさい。

お礼

お返事ありがとうございます。
関数だと現在の日時等は入りますが、更新日は・・・。
すいません、質問の仕方が悪かったかもしれません。