VBA ヘッダー フッター
ヘッダーとフッターのプロパティ
ヘッター・フッターへ入力
エクセルのセル内の水平、垂直方向の位置を設定します。
With ActiveSheet.PageSetup
.LeftHeader = "左上"
.CenterHeader = "中上"
.RightHeader = "右上"
.LeftFooter = "左下"
.CenterFooter = "中下"
.RightFooter = "右下"
End With
ActiveWindow.SelectedSheets.PrintPreview
実行結果
ヘッター・フッターに日時・ページ番号などを設定
With ActiveSheet.PageSetup
.LeftHeader = Format(Date, "ggge年m月d日")
.CenterHeader = Format(Time, "h時m分s秒")
.RightHeader = "&P ページ目 - &N ページ中"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
ActiveWindow.SelectedSheets.PrintPreview
実行結果
| 書式コード | 内 容 |
|---|---|
| &L | 左詰め |
| &C | 中央揃え |
| &R | 右詰め |
| &E | 二重下線 |
| &X | 上付き文字 |
| &Y | 下付き文字 |
| &B | 太文字 |
| &I | 斜体 |
| &U | 下線 |
| &S | 取り消し線す |
| &D | 現在の日付 |
| &T | 現在の時刻 |
| &F | ファイル名 |
| &A | シート名 |
| &P | ページ番号 |
| && | 「＆」(アンパサンド&) を表示 |
| & "<フォント名>" | フォントを指定 フォント名は、半角の二重引用符 (") で囲みます |
| &nn | 指定したフォント サイズ[nn]で表示します。 nn は、2桁のポイント数で指定します |
| &N | すべてのページ数 |