[[20060802140313]]　『ヘッダの設定を複数のファイルの各シートにいっぺ』（ケイ）　ページの最後に飛ぶ

『ヘッダの設定を複数のファイルの各シートにいっぺんに設定する方法』（ケイ）

 複数のエクセルファイル（ブック）があって、中にあるシートを全て印刷したいのですが、
 ヘッダに　ファイル名、シート名、ページ　を設定するのに、ひとつひとつのファイルをひらいて、
 シートごとに設定して印刷していますが、それをいっぺんに設定する方法がありましたら教えてください。

 Excel2003　WindowsXP　を使用しています

 よろしくお願いします

 設定したいシートを Shiftを押しながら 複数選択し、
 その複数選択されている
 状態で、ヘッダを編集すると いっぺんに設定されると思います。（大根役者）

 大根役者さま　ありがとうございます。
 ひとつのファイルの中のシートをいっぺんに設定する方法がわかりました。

 ファイルがたくさんあるのですが、やはりファイルはひとつひとつ開いて設定する以外にはないのでしょうか。

 （ケイ）

 ごめんなさい。
 >複数のエクセルファイル（ブック）
 を見落としていました、、
 他の人の回答をまってください。お力になれずごめんなさい。（大根役者）

 わたしの拙いマクロでしたら ご提示します。。。。
 シートを設定したいファイルを全部開いた状態で、以下のマクロを実行してください。
 開いているエクセルファイル全てにヘッダが設定されます（大根役者）

 Sub setHeader()

    For Each wb In Workbooks

        For Each ws In wb.Worksheets

            With ws.PageSetup
                .LeftHeader = "&F"
                .CenterHeader = "&A"
                .RightHeader = "&P"
            End With
        Next

    Next

 End Sub

 大根役者さま　ありがとうございます。
 マクロを使わせていただいたら希望していた状態にできました。
 マクロでするんですね。。まだ勉強不足であり、自分でマクロを組むことができないので
 お力を貸していただけて本当に助かりました。ありがとうございました。
 （ケイ）

コメント返信：

[ 一覧(最新更新順) ]

[[20060802140313]] 『ヘッダの設定を複数のファイルの各シートにいっぺ』（ケイ） ページの最後に飛ぶ

[[20060802140313]]　『ヘッダの設定を複数のファイルの各シートにいっぺ』（ケイ）　ページの最後に飛ぶ