３つに分かれたヘッダー・フッターを結合することはできますか？

エクセル2010を使っておりますが、デフォルトでは左側、真ん中、右側と３つに分かれたヘッダー・フッターを１つに結合することは可能ですか？

よろしくお願いいたします。

No.2 ベストアンサー 回答者： koko88okok 回答日時： 2015/03/07 10:30

> 左側、真ん中、右側と３つに分かれたヘッダー・フッターを１つに結合することは可能ですか？

添付図のように、特に操作しなくても、自動的に入力部分が広がりますよ。

この回答へのお礼

ありがとうございます。
教えていただいたとおりに操作すると、結合することができました。

お礼日時：2015/04/03 08:40

No.1 回答者： WindFaller 回答日時： 2015/03/06 21:11

こんばんは。

それは、既にヘッダー・フッターが、左・真ん中・右に書かれたものを全部どちらかにまとめてしまうということですね。もし、そうでしたら、マクロ以外には、手動でやるしかないはずです。

例えば、このようなマクロで可能です。以下の場合は、結合しても、スペースを入れるようにしています。
例：　pl & " " & pc & " " & pr
以下の場合は、左のヘッダー・フッターにまとめられます。

'//
Sub CombiPrintHandF()
Dim pl As String
Dim pc As String
Dim pr As String
　With ActiveSheet.PageSetup
　 pl = .LeftHeader: .LeftHeader = ""
　 pc = .CenterHeader: .CenterHeader = ""
　 pr = .RightHeader: .RightHeader = ""
　 .LeftHeader = pl & " " & pc & " " & pr　　'左にまとめる
　End With
　pl = "": pc = "": pr = ""　　'不要だが、変数の中を空にしておく
　With ActiveSheet.PageSetup
　 pl = .LeftFooter: .LeftFooter = ""
　 pc = .CenterFooter: .CenterFooter = ""
　 pr = .RightFooter: .RightFooter = ""
　.LeftFooter = pl & " " & pc & " " & pr
　End With
　pl = "": pc = "": pr = ""
End Sub
'//

この回答へのお礼

遅くなって申し訳ありません。
マクロでそういう設定ができるとは勉強になりました。

お礼日時：2015/04/03 08:39