エクセル自動でフッターを

質問

オフィスでプリンターが遠いところにあるので、印刷する度にフッターに自動的に自分の名前が表示されるように設定できますか？
毎回新規書類を作成するたびにフッターの設定をするのは手間なので、いい方法があれば教えてください！

回答No.2

Turbo415 · ベストアンサー

ご自分でテンプレートを作成することをおすすめします。
と言っても簡単で、新規作成でフッタだけ設定したファイルを作りそれを「新規作成用.XLS」とでもしておき（名前は自由です）一度保存。新規作成するときはこのファイルを開いてまず、「名前を付けて保存」で必要な名前に変えてから作成すると言う手順です。
作成し終わったら、上書き保存をすればいいです。
私の場合、全くの新規で開いて作ることはほとんど無いです。

お礼

ありがとうございます！
簡単にできそうですね。

回答No.3

Wendy02

こんにちは。

既存のものは、一般の記録マクロでも可能です。
例:
Sub FooterSetup()
　ActiveSheet.PageSetUp.LeftFooter = "My Name"
End Sub

しかし、以下のマクロは、新規ブックや新規シートを挿入するたびに、印刷フッターに名前が入ります。（例:My Name）原理は、Application にクラスを設けて、そして、新規ブックや新規シートを挿入するたびに、インスタンスを作ります。

これは、Personal.xls （個人用のマクロブック）に登録するものです。

'-----------------------------------------
'<標準モジュール>
Public NewBook As Class1
Sub NewbookPgHeader()
Set NewBook = New Class1
　Set NewBook.myNewApp = Application
End Sub
Sub Auto_Open()
　Call NewbookPgHeader
End Sub

'-----------------------------------------
'<Class 1 モジュール>
Private WithEvents NewApp As Application

Public Property Set myNewApp(ByVal myApp As Application)
　Set NewApp = myApp
End Property

'新規ブック
Private Sub NewApp_NewWorkbook(ByVal Wb As Workbook)
　For i = 1 To Wb.Sheets.Count
　　Wb.Sheets(i).PageSetup.LeftFooter = "My Name"
　Next i
End Sub

'新規シート
Private Sub NewApp_WorkbookNewSheet(ByVal Wb As Workbook, ByVal Sh As Object)
　Sh.PageSetup.LeftFooter = "My Name"
End Sub

お礼

詳しくご説明いただきありがとうございます！

回答No.1

shin_5696

エクセルの上部ツールバーで
[ツール]→[マクロ]→[新しいマクロの記録]
で[個人用マクロブックを選択]

その状態でフッタ・ヘッダを編集して
[ツール]→[マクロ]→[記録終了]

次回からは
[ツール]→[マクロ]→[マクロ]
を選択して
保存した名前のマクロを実行すれば
毎回同じマクロを設定してくれます。

お礼

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