非IT企業に勤める中年サラリーマンのIT日記

非IT企業でしかもITとは全く関係ない部署にいる中年エンジニア。唯一の趣味がプログラミングという”自称”プログラマー。

Excel/VBAでヘッダー・フッターを編集する

   

Excel/VBA印刷時のヘッダー・フッターを編集する方法です。

'ヘッダーの右側の部分を設定(ページ数/総ページ数)
Worksheets("Sheet1").PageSetup.RightHeader = "&P/&N"
'ヘッダーの中央の部分を設定(ファイル名)
Worksheets("Sheet1").PageSetup.CenterHeader = "&F"
'ヘッダーの左側の部分を設定(日付 時刻)
Worksheets("Sheet1").PageSetup.LeftHeader = "&D &T"

'フッターの右側の部分を設定(ページ数/総ページ数)
Worksheets("Sheet1").PageSetup.RightFooter = "&P/&N"
'フッターの右側の部分を設定(ファイル名)
Worksheets("Sheet1").PageSetup.CenterFooter = "&F"
'フッターの右側の部分を設定(日付 時刻)
Worksheets("Sheet1").PageSetup.LeftFooter = "&D &T"
 

 

ヘッダー・フッターの設定で利用可能なコードは以下の通り。

コード 説明
&D 現在の日付
&T 現在の時刻
&F ファイル名
&Z ファイルパス
&A シート名
&P ページ番号
&N 総ページ数

 

スポンサーリンク

 - Excel, VBA