エクセルで更新日時を表示したい。

解決済

質問者：tamisara
質問日時：2003/02/05 09:24
回答数：2件

アクセスのデータベースをエクセルでも管理しています。
アクセスは毎日更新されています。
エクセルでの更新は毎日、というわけではありません。
エクセルのファイルは、社内共通フォルダに置いてあって
時々、他の方が印刷をされたりします。

そこで、最終更新日（時間まで）を載せたいのですが
ＮＯＷ関数では開くたびに更新されてしまいます。

昨日、マクロで日付を表示させるボタンを作りましたが
今朝見てびっくりです。「今じゃん！」
って、当然ですよね(笑)

こんなおとぼけな私にご教授くださいませ(汗)
エクセル・アクセス共に９７で、ウィンドウズは９５です。
説明不足でしたらすいません。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： ja7awu
回答日時：2003/02/05 11:08

確認ですが、更新日は、Accessには関係なく、Excelだけの問題ですよね。

先に紹介された方法ですと、日付けが、書き込まれるシートが一定しません。
シートが複数あると閉じる時にアクティブになっていたシートに書き込まれて
しまいます。

例えば、Sheet1のセルA1に表示させたい場合は、次のようにすれば良いと
思います。（表示位置は、適宜変更してください。）

ThisWorkbookに下記コードをコピーして貼り付けます。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
　　Cancel As Boolean)
　　Sheets("Sheet1").Range("A1").Value = "最終更新日: " & _
　　Date & "　" & Time
End Sub

この回答への補足

＞確認ですが、更新日は、Accessには関係なく、
＞Excelだけの問題ですよね。
すいません。説明不足でした。その通りです。

あと。
＞Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
＞Cancel As Boolean)
の部分が構文エラーになってしまいます。
なぜでしょう。

また、ペーストしたマクロに名前を付けて、ボタンに登録したいのですが
貼りつけただけで止まっています。
（一発撮りでの登録しかしたことないんです）
ボタンに登録しようとしても反映されていません。
本文よりも離れた質問までしてしまいすいませんが
宜しければ回答お願いいたします。