－ちょっと使えるネタを紹介－
Excel VBAで、ヘッダーとフッターを取得したり設定する方法について、ご紹介します。ヘッダーの設定には、『LeftHeader』、『CenterHeader』、『RightHeader』を使います。フッターの設定には、『LeftFooter』、『CenterFooter』、『RightFooter』です。
この記事では、ヘッダーやフッターの設定と取得について、ご紹介します。
ヘッダーの設定には、『LeftHeader』、『CenterHeader』、『RightHeader』を使います。
フッターの設定には、『LeftFooter』、『CenterFooter』、『RightFooter』となります。
ヘッダーにシート名を設定したり、フッターにページ数を設定したりする方法についても、解説していきます。
この記事で紹介すること
目次から見たい項目へ移動すると便利ですよ。
目次
初めに、ヘッダーとフッターについて、ポイントとなるVBAコードを、記載しておきます。
VBAコードだけ確認したいという場合に、ご活用ください。
'ヘッダー With ActiveSheet.PageSetup .LeftHeader = "左のヘッダー" .CenterHeader = "中央のヘッダー" .RightHeader = "右のヘッダー" End With 'フッター With ActiveSheet.PageSetup .LeftFooter = "左のフッター" .CenterFooter = "中央のフッター" .RightFooter = "右のフッター" End With
では、解説していきます。
VBAでヘッダーの設定と取得について、解説していきます。
ヘッダーの設定と取得するVBAコードは、次の3つです。
では、それぞれ、VBAコードを作成して実行してみます。
まずは、左のヘッダーに値を設定してみます。
左のヘッダーに値を設定するには、『LeftHeader』に値を入力することでできます。
左のヘッダーに『"左のヘッダー"』と入力してみます。
Sub TEST1()
'左のヘッダーを設定
ActiveSheet.PageSetup.LeftHeader = "左のヘッダーを設定"
End Sub
では、VBAコードを実行します。
左のヘッダーに値を設定することができました。
中央のヘッダーの値を取得するには、設定と同じで、『CenterHeader』を使えばできます。
中央のヘッダーに入力されている値を取得してみます。
Sub TEST2()
'中央のヘッダーを取得
a = ActiveSheet.PageSetup.CenterHeader
MsgBox a
End Sub
予め、中央のヘッダーには、次のように値を入力しておきました。
この『"中央のヘッダー"』を取得してみます。
VBAコードを実行します。
結果は、『"中央のヘッダー"』を取得できました。
中央のヘッダーを取得できています。
こんな感じで、ヘッダーの取得は、ヘッダーの設定と同じようにVBAコードを使えばできます。
右のヘッダーにシート名を設定するには、『RightHeader』に『"&A"』を入力します。
では、右のヘッダーにシート名を入力してみます。
Sub TEST3()
'右のヘッダーを設定
ActiveSheet.PageSetup.RightHeader = "&A" 'シート名
End Sub
では、実行してみます。
結果は、右のヘッダーにシート名『Sheet1』を入力できました。
ヘッダーに改行した値を入力するには、改行コードとして、『vbLf』を入力するとできます。
左のヘッダーに改行した値を入力するVBAコードです。
Sub TEST4()
'左のヘッダーを設定
ActiveSheet.PageSetup.LeftHeader = "A" & vbLf & "B" '改行する
End Sub
実行してみます。
結果は、左のヘッダーに改行した値、『A』と『B』を入力できました。
こんな感じで、『LeftHeader』、『CenterHeader』、『RightHeader』を使えばヘッダーに値を設定したり、ヘッダーの値を取得することができます。
VBAでフッターの設定と取得について、解説していきます。
フッターの設定と取得するVBAコードは、次の3つです。
では、それぞれ、VBAコードを作成して実行してみます。
まずは、左のフッターに値を設定してみます。
左のフッターに値を設定するには、『LeftFooter』に値を入力することでできます。
左のフッターに『"左のフッター"』を入力してみます。
Sub TEST5()
'左のフッターを設定
ActiveSheet.PageSetup.LeftFooter = "左のフッター"
End Sub
では、VBAコードを実行します。
左のフッターに値を設定することができました。
右のフッターの値を取得するには、設定と同じで、『RightFooter』を使えばできます。
右のフッターに入力されている値を取得してみます。
Sub TEST6()
'右のフッターを取得
a = ActiveSheet.PageSetup.RightFooter
MsgBox a
End Sub
予め、右のフッターには、次のように値を入力しておきました。
この『"右のフッター"』を取得してみます。
VBAコードを実行します。
結果は、『"右のフッター"』を取得できました。
右のフッターを取得できています。
こんな感じで、フッターの取得は、設定と同じように『RightFooter』、『CenterFooter』、『RightFooter』を使えばできます。
フッターの真ん中に、ページ番号と総ページを付けてみます。
ページ番号と総ページを、フッターの中央に追加するVBAコードは、こちらになります。
Sub TEST7()
'中央のフッターに、ページ数と総ページ数を設定
ActiveSheet.PageSetup.CenterFooter = "&P/&N"
End Sub
ページ番号は、『"&P"』と入力します。
総ページ番号は、『"&N"』と入力します。
では、VBAコードを実行してみます。
フッターの中央に、ページ番号と総ページ数を追加できました。
ページ番号の追加は、結構使いますので、参考になるかと思います。
この記事では、ヘッダーとフッターの、設定と取得について、ご紹介しました。
ヘッダーの設定や取得には、『LeftHeader』、『CenterHeader』、『RightHeader』を使います。
順番に、左、中央、右のヘッダーに対して、設定と取得ができます。
フッターの設定や取得には、『LeftFooter』、『CenterHeader』、『RightHeader』を使います。
順番に、左、中央、右のフッターに対して、設定と取得ができます。
シート数が多くなってくると、ヘッダーやフッターの設定に時間がかかったりします。
そんなときは、VBAを使って、ヘッダーとフッター作業を効率化しましょう。
参考になればと思います。最後までご覧くださいまして、ありがとうございました。
関連する記事から探す
カテゴリから見たい項目を探すと便利ですよ。
↓キーワードを入力する