[[20040415184257]]　『作成日時、更新日時の取得』（若葉マーク）　ページの最後に飛ぶ

『作成日時、更新日時の取得』（若葉マーク）

エクセルのセルにそのエクセルの内容をを最初に保存した日と上書きで保存した日をそれぞれ
入力したいのですが･･･。
プロパティにのってる感じでだしたいなぁと思ってます。

Excel2000

Windows2000

よろしくお願いします

 「若葉マーク」を名乗ってらっしゃる方にはちょっと難度が高いかもしれませんが、
VBAプログラムによるユーザー関数です。
「これはかなワン」と思ったら、その気になるまでやめておきましょう。
以下は読みもせずに飛ばして、他のレスがつくまでお待ちください。
　
「ツール」「マクロ」「VisualBasicEditor」と進んでください。
VisualBasicEditorが起動します。
　
左側に「プロジェクト－VBAProject」と表示のあるウィンドウがあるので、
（若葉マーク）さんがファイルプロパティを表示したいブック名のVBAProjectを
マウスでクリックしてください。
　
続いて、「挿入」「標準モジュール」を選択すると、「Module1」というものが作成
されます。これをダブルクリックし、（General)と表示されている下の空白のウィン
ドウへ下記のコードを貼り付けてみてください。
　
 Function CreatedDate()
     Application.Volatile
     On Error Resume Next
     Dim fs, f
     Set fs = CreateObject("Scripting.FileSystemObject")
     Set f = fs.GetFile(ThisWorkbook.FullName)
     CreatedDate = "作成日: " & Format(f.DateCreated, "yyyy/mm/dd")
 End Function
　 
 Function ModifiedDate()
     Application.Volatile
     On Error Resume Next
     Dim fs, f
     Set fs = CreateObject("Scripting.FileSystemObject")
     Set f = fs.GetFile(ThisWorkbook.FullName)
     ModifiedDate = "最終更新日: " & Format(f.DateLastModified, "yyyy/mm/dd")
 End Function
　
貼り付けたらAlt＋Qでエクセルに戻ります。
ファイルプロパティを表示させたいセルを選択して、
　
=CreatedDate()
=ModifiedDate()
　
を入力してみてください。いかがでしょうか。
欠点もありますが・・・。
（登録したブックでしか有効でない、未保存のブックは０が返る）
　
ヘルプを参考につくりかけのものがあったので、手を加えてみました。
こういうことをやってみたい方もいるかもしれないのであえて掲載しました。
（若葉マーク）さんにはもしかしたらちょっと敷居が高いかもしれません。
私もつくっていながら１００％は理解していないので。
(KAMIYA)

ありがとうございます。でも、言い忘れてました･･･。諸事情で、マクロは使えないんです。
マクロを使わない方法はありますか。

 通常の機能としてはないと思うんです。
どのようなシチュエーションで使うのかわからないINFO関数なんてのは
用意されているのに。更新日時をリアルタイムで表示する関数って、需要
あると思うのですが。「変更履歴の作成」という機能もありますが、
ちょっと違う気がします。
(KAMIYA)

いろいろありがとうございました。ワードでは使えるのにエクセルでは
使えないんなんてちょっと納得がいかない部分もあったりするんですが、
あきらめます。どうもありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20040415184257]] 『作成日時、更新日時の取得』（若葉マーク） ページの最後に飛ぶ

[[20040415184257]]　『作成日時、更新日時の取得』（若葉マーク）　ページの最後に飛ぶ