Ｅｘｃｅｌマクロ（複数ファイルのヘッダ、フッタ設定）

質問

いつもお世話になっております。

開いているファイルのすべてのヘッダ、フッタを変更したいと考えています。（変更しなければならないファイルが200程度あるため）
条件としては、シートが3枚目以降のヘッダとフッタに対して適応をしたいのですが、可能でしょうか？

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

回答No.1

fujillin · ベストアンサー

＞可能でしょうか？
可能です。

最初に、ヘッダ、フッタを変更をマクロの自動記録で記録してみて下さい。
アクティブシートに対する設定変更が記録されますので、そのシート部分をh変数化し、それぞれのブックの3枚目以降のシートに対して適用できるようにループを作成すれば良いと思われます。（二重ループになるでしょう）

ループの部分は、以下のような構文でいけるかと。
（ Sub Teisei(sh)　はシートを引数として、ヘッダー、フッターの変更をするサブルーチンと仮定しています）
Dim wb As Workbook, sh As Worksheet
For Each wb In Workbooks
　For n = 3 To wb.Worksheets.Count
　　Call Teisei(wb.Sheets(n))
　Next n
Next wb