今だけ人気マンガ100円レンタル特集♪

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

このQ&Aに関連する最新のQ&A

A 回答 (3件)

ご自分でテンプレートを作成することをおすすめします。


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

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

お礼日時:2005/07/07 13:18

こんにちは。



既存のものは、一般の記録マクロでも可能です。
例:
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
    • good
    • 0
この回答へのお礼

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

お礼日時:2005/07/07 13:19

エクセルの上部ツールバーで


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

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

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

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

お礼日時:2005/07/07 13:19

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


人気Q&Aランキング