[[20151007185049]]　『シート上書き時、シートセルへ保存日時の表示』（ロンタ）　ページの最後に飛ぶ

『シート上書き時、シートセルへ保存日時の表示』（ロンタ）

シートを編集完了後、最終上書きの日時を
セルへ表示する方法等はありますか？
TODAY関数だと、常に開いた日付になってしまい
困っております。エクセルが素人でわかりません。
何か良い方法があれば、よろしくお願いします)^o^(

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 ユーザー定義関数でいけますが、揮発性関数になると思います。
（カリーニン） 2015/10/07(水) 20:04

 ユーザー定義関数の例です。

 '標準モジュール

 Function lastmd()
  lastmd = FileDateTime(ThisWorkbook.FullName)
 End Function

 'ワークシート/どこのセルでもOK
 =lastmd()
 書式は日付形式/必要に応じて日付+時刻形式

 ※揮発性関数になる、と書きましたが、ブックを開いただけでは
 ブックを閉じても保存するか聞いてこないですね。

 Ctrl+Sでブックを保存してF9キーを押しても最新の日付にならなく、
 F2でユーザー定義関数を入力したセルを編集状態にしてEnterで最新
 の日時に更新されるようです。
（カリーニン） 2015/10/07(水) 20:14

 ThisWorkbookモジュールに↓を記述したら、ブック上書き保存時にセルに現在日時を入力します。
 もちろん、マクロ無効状態ですと働きません。

 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  ThisWorkbook.Worksheets(1).Cells(1, 1).Value = Now
 End Sub
（カリーニン） 2015/10/07(水) 20:21

 ユーザー定義関数案は使わない方がいいかもしれませんね。
 ブックを編集して上書き保存して閉じても、次にブックを開いた
 時のユーザー定義関数の値は前回上書き保存日時に更新されませ
 んでした。

 ユーザー定義関数を入力したセルを編集状態にしないと更新され
 ないようです。
（カリーニン） 2015/10/07(水) 20:32

コメント返信：

[ 一覧(最新更新順) ]

[[20151007185049]] 『シート上書き時、シートセルへ保存日時の表示』（ロンタ） ページの最後に飛ぶ

[[20151007185049]]　『シート上書き時、シートセルへ保存日時の表示』（ロンタ）　ページの最後に飛ぶ