Home » エクセルマクロ・Excel VBAの使い方 » ページ設定・PageSetup » VBAでシート名をヘッダーに

対象:Excel2007, Excel2010, Excel2013, Windows版Excel2016

VBAでシート名をヘッダーに

「シート名をヘッダー情報にするマクロ」
という検索キーワードに気づきました。

[スポンサードリンク]

アクティブシートのヘッダーにシート名を設定するサンプルマクロ

以下のSubプロシージャを実行すると、アクティブなシートの中央のヘッダーに、シートの名前が設定されます。

Sub シート名をヘッダーに_直値()
 With ActiveSheet
  .PageSetup.CenterHeader = .Name
 End With
End Sub

WorksheetオブジェクトやChartオブジェクトの、PageSetupプロパティで、PageSetupオブジェクトを取得して、

VBAでシート名をヘッダーに

PageSetupオブジェクトのCenterHeaderプロパティに、

VBAでシート名をヘッダーに

シート名を設定しています。

アクティブシートのヘッダーに自動的に変更されるシート名を設定するサンプルマクロ

上記のプロシージャでは、実行した時点のシート名が設定され、あとからシート名を変更した場合には変更が反映されません。

自動的に変更されるようにしたい場合、以下のようなSubプロシージャです。

Sub シート名をヘッダーに_自動変更()
 ActiveSheet.PageSetup.CenterHeader = "&A"
End Sub

ヘッダー・フッターには「&●」という形で指定する書式コードが決められていて「&A」で、シート名を印刷できるようになります。

[スポンサードリンク]

Home » エクセルマクロ・Excel VBAの使い方 » ページ設定・PageSetup » VBAでシート名をヘッダーに

「ページ設定・PageSetup」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.