エクセルで、ヘッダーに他のシートのセルの内容を表示させたいのですが。

質問

エクセル２００３を使用しています。
一つのブックに複数のシートがあり、シート「ＡＡＡ」のセル「Ｂ３」にある内容を、シート「ＢＢＢ」のデータを印刷する際にヘッダー部分に自動で表示（印刷まで）させたいのですが、そのようなことは可能なのでしょうか？
可能であれば、どのようにすればよいでしょうか。

回答No.2

imogasi · ベストアンサー

マクロの記録をとれば判ります。
表示ーヘッダーフッターーヘッダーの編集ー何か指定してーOK
マクロの記録は
Sub Macro1()
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
・・・・
.PrintErrors = xlPrintErrorsDisplayed
End With
End Sub
と出ますが、その中に
.CenterFooter = ""など３つHeader関係があります。
その右辺に
.CenterFooter = WorkSheets("AAA").Range("B3")
と変えれば良い。
ーー
ページ設定の画面に直接指定はできないようです。
http://okwave.jp/qa2777507.html
と同じ質問でしょ。検索不完全だね。

お礼

回答ありがとうございました。
教えたいただいたとおり記述できちんと表示できました。

今回検索不十分でお手数をおかけしました。今後気をつけたいと思います。
今回はありがとうございました。

回答No.1

hirorin00

はじめまして

VBAを使えば可能のようです。

１、目的のファイルをExcelで開く
２、「ツール」→「マクロ」→「Visual Basic Editor」を開く
３、左上の窓で、目的のファイルの「Microsoft Excel Object」の「ThisWorkbook」をダブルクリック
４、開いた窓に以下をコピーして貼り付け

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftHeader = Worksheets("ＡＡＡ").Range("B3").Value 'ヘッダーを設定
End With
End Sub

５、閉じる

これで印刷する際に自動でヘッダーを表示できるはずです。

的外れでしたらごめんなさい。

お礼

丁寧な回答ありがとうございました。
いただいた回答の場合、目的のシート以外のヘッダーにも表示されてしまいました。
他にもシートがあり、他のシートには表示させたくありませんでした。
今回の質問にきちんと書かなかったからですね。
これから気をつけたいと思います。
今回はありがとうございました。