- 締切済み
EXCELにて、保存した日時を自動的に表示させるには?
- みんなの回答 (2)
- 専門家の回答
みんなの回答
- table_1969
- ベストアンサー率21% (66/302)
ファイル名を保存日時にしてしまうっていうのはどうでしょうか? Sub Macro1() Dim フォルダー As String, 年 As Integer, 月 As String, 日 As String Dim 時 As String, 分 As String, ファイル名 As String フォルダー = Application.DefaultFilePath 年 = Mid(Year(Now()), 1, 4) 月 = Month(Now()) 日 = Day(Now()) 時 = Hour(Now()) 分 = Minute(Now()) ファイル名 = 年 & "年" & 月 & "月" & 日 & "日" & 時 & "_" & 分 ActiveWorkbook.SaveAs FileName:=フォルダー & "\" & ファイル名 MsgBox "ファイル名を最終更新日 " & ファイル名 & " で保存しました。" End Sub
- nishi6
- ベストアンサー率67% (869/1280)
>EXCELにて、保存した日時を自動的に表示させるには? の意味は、あるExcel Bookを開いていて、そのBookを保存した日時を、そのシート上に表示するという意味ですよね? 最初は、 = FileDateTime(ThisWorkbook.Path & "\" & ThisWorkbook.Name) で簡単に出ると思ったのですが、Book自身のFileDateTimeを見に行くとそれを呼び出した時刻が帰ってくるようです。 他のファイルなら保存した時刻なんですが・・・・・??? そこで、次のようにしてみました。 Auto_Openにしているのは、Application.Volatileが効かないみたいで再計算してくれないからです。 ユーザー定義関数ではThisWorkbookの組込プロパティーを使っています。『Last save time』の番号が分からない(決まってる?)ので回りくどいですが、照合しています。 例としてセルA1に表示します。開いている時に保存したら、ファンクションキーF9で再計算させます。 他の回答を見たいですね・・・・・・ 標準モジュールに貼り付けます。 Sub Auto_Open() Range("A1").Formula = "= GetHozonYMD()" End Sub Public Function GetHozonYMD() Dim idx Dim ThisWkBookYMD As String Application.Volatile With ThisWorkbook.BuiltinDocumentProperties For idx = 1 To .Count With .Item(idx) If .Name = "Last save time" Then ThisWkBookYMD = .Value End If End With Next End With GetHozonYMD = Format(ThisWkBookYMD, "yyyy/mm/dd h:mm:ss") End Function
関連するQ&A
- 【Windows me】エクセルの自動保存について
Windows meでパソコンに保存されている古いデータを整理(ファイル名の変更のみ)しようとエクセルを開くと、何も操作せずに閉じても自動保存機能が働き、更新日時が勝手に更新されてしまいます。 古いデータといっても作成日付を元に文書を探したり、その時期にどの現場の工事(建設)を行なっていたかなどを調べるためにとても重要なので、更新日時が変わってしまうととても困ります。 【ツール】→【オプション】を開いても「自動保存」タブはありません。 エクセルはパソコン購入時にインストールされていたものを使用しています。 現在はXPとネットワークで繋ぎ、2台でインターネットが使える環境にしました。 XPのエクセルのアドインのメニューには「自動保存」は入っていませんし、「自動保存」のアドインをCD-ROMからセットアップしたり、ダウンロードしたこともありません。 エクセルのヘルプ機能で「自動保存」について調べ、【ツール】→【アドイン】を見ましたが「自動保存」にチェックは入っていません(OFFになっています)。 ただヘルプにあったように【コントロールパネル】→【アプリケーションの追加と削除】→【Microsoft Office 2000 SR-1 Personal】→【追加と削除】→【機能の追加/削除】→【Microsoft Office】→【Microsoft Excel for Windows】→【アドイン】と進み、【自動保存】を「インストールしない」に設定変更しました。 なぜアドインの自動保存がOFFになっているのに自動保存されるのか、コントロールパネルから設定変更しただけで自動保存されなくなるのかなどWindows meの自動保存について教えてください。 宜しくお願い致します。
- 締切済み
- Windows Me
- 自動的に日時を表示させる方法
エクセルでA列の1番目のセルに文字を入力すると、文字を入力した日時(システム日時)が自動的にB列の1番目に表示させることは可能でしょうか? もし可能でしたらご教授ください。
- ベストアンサー
- オフィス系ソフト
- エクセル2002の自動保存の仕方
エクセル2002を使用しています。ツールオプションの中にある自動保存はパソコンがフリーズしてしまった時の回復用のようですが、何分かおきに作業中のデータを自動保存させる機能はないのでしょうか? エクセル2000は、表示がいちいち出てうっとうしかったものの、作業中のデータを自動的に保存させる機能がありましたが、エクセル2002では設定の仕方がわかりません。 教えていただければ幸いです。
- ベストアンサー
- オフィス系ソフト
- エクセルの保存した日を自動でセル内に表示は出来ますか?
エクセルの保存した日を自動でセル内に表示は出来ますか? NOWを使うと今の日付は表示できますが 保存した日を自動で表示させたいです。 宜しくお願い致します。
- ベストアンサー
- Windows XP
- エクセル 保存 更新日時
エクセルファイルを開き、閉じると「変更内容を保存しますか」というメッセージが出ます。 そのときに「いいえ」ボタンを押してファイルを閉じているのですが、ファイルの更新日時がアップデートされてしまいます。 「いいえ」を選択した場合、更新日時がアップデートされない方法、もしくは、ファイル内容に変更を加えていない場合に「変更内容を保存しますか」というメッセージが表示されない方法等はないでしょうか。 ファイルの内容を最後に変更したのがいつかを把握できるようにしたいのです。
- 締切済み
- その他MS Office製品
- エクセル2003で自動保存ができません。
エクセル2003で自動保存ができません。 ツール>オプション>自動保存>設定で10分ごとに、>ブックオプションで自動保存を設定しないに チェックしていませんが、保存場所にはバックアップファイルらしきものがありません。 作業中に保存している様子もありません。 いつも、消してしまったときに困っています。 私のソフトだけ問題でしょうか?インストール時の問題? 詳しい方、教えて下さい。
- ベストアンサー
- その他MS Office製品