Excelテンプレート設定

質問

Excelを開いて、ヘッダー・フッダーにファイル名等を設定し、
印刷する際に表示されるよう設定ができますが、
それをどのファイルを開いても、常にフッダーにファイル名を
表示させるようにするには、どのように設定したらよいのでしょうか？
ご存知の方がいらっしゃいましたら是非教えてください。

回答No.5

izmlz · ベストアンサー

個人用マクロブック（Personal.xls）のブックモジュール（ThisWorkbook）に↓でいかがでしょうか？

　これだけで、全てのワークシート（既存のブック、新規ブック、挿入したワークシート）の中央のフッタにファイル名を表示します。

Private WithEvents myApp As Application

Private Sub myApp_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As Boolean)
　Dim Sht As Worksheet
　For Each Sht In ActiveWindow.SelectedSheets
　　Sht.PageSetup.CenterFooter = "&F"
　Next
End Sub

Private Sub Workbook_Open()
　Set myApp = Application
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
　Set myApp = Nothing
End Sub

　個人用マクロブック（Personal.xls）や、ブックモジュール（ThisWorkbook）がよくわからないということでしたら、↓をご覧ください。

エクセル技道場－Excelの起動と同時に入力モードを[ひらがな]に
http://www2.odn.ne.jp/excel/waza/macro.html#SEC28

参考URL：

http://www2.odn.ne.jp/excel/waza/macro.html#SEC28

お礼

とてもご丁寧にありがとうございました。
早速試してみたいと思います☆

回答No.4

e0_0e_OK

まず質問を整理してみます。
》どのファイルを開いても、常にフッダーにファイル名を表示させるようにするには
・この意味はフッダーヘッダーの設定がなされていない既存(作成済み)のファイルを開いて常にフッダーにファイル名を表示させるということですか。
・これですと私にはせいぜいマクロを作成してファイル１つずつそのマクロを走らせるくらいしか思いつきません。

・上とは違って新規に作成するファイルについてフッダーにファイル名を表示させるようにするには(ANo.1さんに似ていますが)
・新規にExcel起動してヘッダー・フッダーを設定して「ファイル名を付けて保存」で、ファイルの種類をテンプレート（*.xlt）とし、ファイル名を「book.xlt」で保存します。一旦Excelを閉じます。
・次にExcelを起動すると立ち上がった新規ファイル(book)は全てヘッダー・フッダーが設定されています。

お礼

今回は新規で作成時に常に表示されるようにという質問でした。
両方ともアドバイスいただき、ありがとうございました！

回答No.3

noname#204879

１．すべてのシートのヘッダ/フッタに「ファイル名等を設定」
２．Book.xlt のファイル名で、XLStartフォルダに保存
３．Book.xlt で Sheet1 のみ残して他の全てのシートを削除
４．Sheet.xlt のファイル名で、XLStartフォルダに保存

これで、Excel を起動したときの全シート、さらに、挿入したシートのヘッダ/フッタが「ファイル名等を設定」したものになります。

お礼

勉強になります☆分かりやすくありがとうございました！

回答No.2

hana-hana3

全てのエクセルファイルのシートの印刷設定にそのように設定しておく必要があります。
簡単に一括設定する方法はありません。

お礼

そうなんですね、補足ありがとうございます！

回答No.1

jo-zen

ヘッダー・フッダーにファイル名等だけを設定したものを、ファイル→ファイル名を付けて保存で、ファイルの種類をテンプレート（*.xlt）にしてデスクトップなどに保存。
その保存したものを開いて、編集後、ファイル名を付けて保存で、普通の*.xlsで保存してあげればいいかと思います。上書き保存ではなく、ファイル名を付けて保存する必要があります。

お礼

なるほど！ありがとうございます。