1. Home » 
2. Excel講座の総目次 » 
3. Excel VBA入門：目次 » 
4. ヘッダー/フッターにセル値や日付を表示する

ヘッダー/フッターにセル値や日付を表示する:Excel VBA入門

• Excelの一般機能ではページ番号やシート名などをヘッダー/フッターに表示できますが、セルの値を表示することはできません。
  VBAを利用することで可能になります。

ヘッダーとフッターのプロパティ　　　Topへ

• LeftHeader、CenterHeader、RightHeader、LeftFooter、CenterFooter、RightFooterを利用します。
• コード例：各位置にA1〜A6セルの値を設定する例です。
  

  Sub ｍｙHeader1() 　　With ActiveSheet.PageSetup 　　　　.LeftHeader = Range("A1").Value 　　　　.CenterHeader = Range("A2").Value 　　　　.RightHeader = Range("A3").Value 　　　　.LeftFooter = Range("A4").Value 　　　　.CenterFooter = Range("A5").Value 　　　　.RightFooter = Range("A6").Value 　　End With 　　ActiveWindow.SelectedSheets.PrintPreview End Sub

• 実行後の状況
  ヘッダー部分の印刷プレビュー
  
  
  フッター部分の印刷プレビュー
  
• 【注】一度設定すると、ファイルにその情報が記録されるため異なる位置のヘッダーやフッターの設定はクリアしてから設定をする必要があります。

ヘッダー/フッターに日付を表示したい 　　　Topへ

• 上の例を試した後、左のヘッダーのみに日付を表示したいときは、他のヘッダー/フッターをクリアしてから設定します。
  コード例
  

  Sub ｍｙHeader2() 　　With ActiveSheet.PageSetup 　　　　.LeftHeader = "" 　　　　.CenterHeader = "" 　　　　.RightHeader = "" 　　　　.LeftFooter = "" 　　　　.CenterFooter = "" 　　　　.RightFooter = "" 　　　　.LeftHeader = "&D" 　　End With 　　ActiveWindow.SelectedSheets.PrintPreview End Sub

• 実行後：左のヘッダーに日付が西暦で表示されました。
  

ヘッダー/フッターに日付を和暦で表示したい 　　　Topへ

• コード例
  

  Sub ｍｙHeader3() 　　With ActiveSheet.PageSetup 　　　　.LeftHeader = "" 　　　　.CenterHeader = "" 　　　　.RightHeader = "" 　　　　.LeftFooter = "" 　　　　.CenterFooter = "" 　　　　.RightFooter = "" 　　　　.LeftHeader = Format(Date, "ggge年m月d日") 　　End With 　　ActiveWindow.SelectedSheets.PrintPreview End Sub

• 実行後：左のヘッダーに日付が和暦で表示されました。
  

ヘッダー/フッターで改行したい 　　　Topへ

• 改行コードを使ってヘッダーやフッターの内容を改行して表示することができます。
• 改行コードには以下の4種類があるのですが、実行すると微妙に改行の仕方が異なります。
  

  定数	値	内容
  vbCr	Chr(13)	キャリッジリターン
  vbLf	Chr(10)	ラインフィード
  vbCrLf	Chr(13) + Chr(10)	キャリッジリターンとラインフィードの組み合わせ
  vbNewLine	Chr(13) + Chr(10) または Chr(13) (Macintosh では Chr(13))	プラットフォームで指定した改行文字。 現在のプラットフォームで適切ないずれかを使用します。

• コード例：ファイル名と日付(和暦)を改行して表示する例
  

  Sub myHeader4() 　　With ActiveSheet.PageSetup 　　　　.LeftHeader = "" 　　　　.CenterHeader = "" 　　　　.RightHeader = "" 　　　　.LeftFooter = "" 　　　　.CenterFooter = "" 　　　　.RightFooter = "" 　　　　.LeftHeader = "&F" & vbCrLf & Format(Date, "ggge年m月d日") 　　　　.CenterHeader = "&F" & vbLf & Format(Date, "ggge年m月d日") 　　　　.RightHeader = "&F" & vbCr & Format(Date, "ggge年m月d日") 　　　　.LeftFooter = "&F" & vbNewLine & Format(Date, "ggge年m月d日") 　　End With 　　ActiveWindow.SelectedSheets.PrintPreview End Sub

• 実行後
  ｖｂCrLfとｖｂNewLineは改行に幅が大きく、ｖｂLfとｖｂCrは改行幅は狭い結果となりました。
  
  
  

印刷時にその時の日付や時刻をヘッダーに印刷したい 　　　Topへ

• ThisWorkbookにコードを書けば、印刷時の日時がヘッダーに印刷できます。
  

  Private Sub Workbook_BeforePrint(Cancel As Boolean) 　　With ActiveSheet.PageSetup 　　　　.CenterHeader = "" 　　　　.RightHeader = "" 　 　 　.CenterHeader = Format(Date, "ggge年m月d日") 　　　　.RightHeader = Format(Time, "h時m分s秒") 　　End With 　　ActiveWindow.SelectedSheets.PrintPreview End Sub

• 実行後：中央のヘッダーに日付が和暦で、右のヘッダーに時刻が表示されました。
  

ヘッダーとフッターに指定できる書式コード　　　Topへ

• 指定された書式コードを使うことで、ヘッダー/フッターに書式を設定できます。
• 書式コードの一覧
  (例) 左ヘッダーにファイル名と和暦の日付をつなげて表示する例：　.LeftHeader = "&E" & "&F" & Format(Date, "ggge年m月d日")
  
  

  書式コード	内　　　容
  &L	文字列を左詰めにします
  &C	文字列を中央揃えにします
  &R	文字列を右詰めにします
  &E	文字列に二重下線をつけます
  &X	上付き文字にします
  &Y	下付き文字にします
  &B	文字列を太字にします
  &I	文字列を斜体にします
  &U	文字列に下線を付けます
  &S	文字列に取り消し線を付けます
  &D	現在の日付を表示します
  &T	現在の時刻を表示します
  &F	ファイル名を表示します
  &A	シート名を表示します
  &P	ページ番号を表示します
  &P+<数値>	ページ番号に指定した[数値]を加えた値を表示します
  &P-<数値>	ページ番号から指定した[数値]を引いた値を表示します
  &&	「＆」(アンパサンド&) を表示します
  & "<フォント名>"	指定したフォントで文字列を表示します フォント名は、半角の二重引用符 (") で囲みます
  &nn	指定したフォント サイズ[nn]で文字を表示します。 nn は、2桁のポイント数で指定します
  &N	すべてのページ数を表示します

• (例) 左ヘッダーにアンダーライン付きでファイル名と和暦の日付をつなげて表示する　
  • .LeftHeader = "&E" & "&F" & Format(Date, "ggge年m月d日")
  • 実行後の例
    

スポンサードリンク

PageViewCounter
　
　Since2006/2/27