質問

エクセルで作成・更新した資料を管理する目的で、ヘッダーあるいはフッターに更新日を入れたいのですがどのようにすればよいでしょうか。
「ページ設定」-「ヘッダー/フッター」にある[日付]やTODAY関数では、ファイルを開いた日の日付が入ってしまい、過去に作成した資料も現在の日付で印刷されてしまいますので使えません。
イメージとしては、マクロ(?)を作成して、更新したシートをアクティブな状態にしてマクロを実行するとシートごとに更新日がフッターに挿入されるようなものをです。
さらに、わがままを言えば同一ブック内のシート間に参照がある場合、変更がされる参照先のシートのフッターも変更されると、なおありがたいです。

通報する

回答 (2件)

VBAでやってみました。
VisualBasicEditorの、標準モジュールやシートのモジュールではなく、ThisWorkbookに貼り付けてください。
更新したシートをアクティブな状態にしてマクロを実行すると、更新日がそのシートの右ヘッダーに挿入されます。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PageSetup.RightHeader = Format(Date, "yyyy/m/d 更新")
End Sub

この回答への補足

ご回答有難うございました。
ついでといっては何ですが、標準フォントは11ptの時にこのヘッダー内の更新日だけ8ptにするためにはどうすればよいのでしょうか?
VBAの基本がわかっていないので&8をどの部分に挿入すればよいのかわかりません。
よろしくお願いします。

(・∀・)ドモ

そのようなものが見当たらないため、サポート外と思われます。

よって、
自分で入れるしかないです!


なお
プログラムを使用すれば、出来ないことは無いと思いますが。

プログラム未経験者は厳しいですが。

では、頑張ってください!

このQ&Aは役に立ちましたか?2 件

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

新しく質問する

注目の記事

フリーアナウンサー長谷川豊氏の新コーナー「このニュースどう思います?」がスタート!

元フジテレビのフリーアナウンサー長谷川豊氏から気になるニュースについておしトピの皆さんに質問します! 皆さんの意見をもとに長谷川豊氏がコラムを執筆します! アプリリリース記念として最大1万分のアマゾンギフト券プレゼントキャンペーンも実施中!

このQ&Aを見た人が検索しているワード


新しく質問する

このカテゴリの人気Q&Aランキング

毎日見よう!教えて!gooトゥディ