対象:Excel2007, Excel2010, Excel2013, Windows版Excel2016
「シート名をヘッダー情報にするマクロ」
という検索キーワードに気づきました。
[スポンサードリンク]
アクティブシートのヘッダーにシート名を設定するサンプルマクロ
以下のSubプロシージャを実行すると、アクティブなシートの中央のヘッダーに、シートの名前が設定されます。
Sub シート名をヘッダーに_直値()
With ActiveSheet
.PageSetup.CenterHeader = .Name
End With
End Sub
With ActiveSheet
.PageSetup.CenterHeader = .Name
End With
End Sub
WorksheetオブジェクトやChartオブジェクトの、PageSetupプロパティで、PageSetupオブジェクトを取得して、
PageSetupオブジェクトのCenterHeaderプロパティに、
シート名を設定しています。
アクティブシートのヘッダーに自動的に変更されるシート名を設定するサンプルマクロ
上記のプロシージャでは、実行した時点のシート名が設定され、あとからシート名を変更した場合には変更が反映されません。
自動的に変更されるようにしたい場合、以下のようなSubプロシージャです。
Sub シート名をヘッダーに_自動変更()
ActiveSheet.PageSetup.CenterHeader = "&A"
End Sub
ActiveSheet.PageSetup.CenterHeader = "&A"
End Sub
ヘッダー・フッターには「&●」という形で指定する書式コードが決められていて「&A」で、シート名を印刷できるようになります。
[スポンサードリンク]
- Newer:Endプロパティを使ってセル範囲を取得する
- Older:複数シートを配列変数で選択する
Home » エクセルマクロ・Excel VBAの使い方 » ページ設定・PageSetup » VBAでシート名をヘッダーに