[Excel]ヘッダーの複数シート間でのコピーについて

質問

Excel2003を使用しております。

過去Q&Aから、部分的には理解できたところもあるのですが、
的確にヒットしなかったので、お教え願います。

ヘッダーを、複数のシートに同じものをコピーする方法で、
なにか簡単な方法はないでしょうか？

自分が作っているものは、最初から５シートあります。
仮にＡ～Ｅとさせていただきます。

シートＡのＡ１に、特定情報を入力するとします。
それをシートＢ～Ｅのヘッダーに同じものを入力するには、
どうすればいいのでしょうか？

最初は、ひとつのシートにヘッダーを入力すれば、
関数か何かでコピーしてくれるかとは思ったのですが、
それは無理なんでしょうね。

お手数おかけしますが、宜しくお願いします。

回答No.2

yTerada · ベストアンサー

こんにちは。

　特定のセルの値をヘッダーに設定するにはVBAしかなくて、次のようなコードで標準モジュールに入力してください。

----------------------------
Sub Sheet1_A1()

'シート見出しが一番左のワークシートのセルA1の内容を、アクティブブックの右ヘッダに設定する

Dim objWS As Worksheet

For Each objWS In ActiveWorkbook.Worksheets

With ActiveWorkbook
objWS.PageSetup.RightHeader = .Worksheets(1).Range("A1").Value
End With

Next objWS

End Sub
----------------------------

↑一番左のワークシートのセルA1にデータを入力した後に、このコードを実行するとアクティブブックに設定されます。

　なお、このコードはセルA1とヘッダーをリンクしないので、セルA1の変更をヘッダーに反映させたい場合には再度コードを実行することが必要です。

　もし、セルA1の変更をヘッダーに自動的に反映したい場合は、次のようなコードをワークシートのイベントに入力します。
-------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then
Call Sheet1_A1
End If

End Sub
-------------------------------

ご参考になれば幸いです。

参考URL：

http://terrapy.sakura.ne.jp/

回答No.1

mshr1962

CTRLキーを押しながら見出しのシートAからEを選択してください。
※全部のシートなら見出しを右クリックして「すべてのシートを選択」でも可
「ファイル」「ページ設定」でヘッダー等の共通の設定をしてから
見出しを右クリックして「作業グループの解除」で終了です。

これ以外だとVBAになりますね。

補足

ありがとうございます。
こんな簡単な方法があったんですね。

あと、もうひとつお願いしたいのですが、
シートＡのＡ１に、例えば日付を入力したとして、
それだけでシートＢ～Ｅのヘッダーに
自動的にコピーするとしたら、
やはりＶＢＡしかないのでしょうか？

もしそれだけなら、どう記述すればよろしいですか？

すいません、ややこしいこと言いまして。

宜しくお願いします。