資料室 > 印刷 > セルの値をヘッダー/フッターに

セルの値をヘッダー/フッターに

セルの値をヘッダーやフッターに設定することは出来ないので、マクロでの対応になる。

アクティブシートのセルA1の値を右ヘッダーとする

  1. 目的のブックを開く。
  2. Alt+F11 でVBE(Visual Basic Editor)を起動 (メニュー[ツール(T)]>[マクロ(M)]>[VBE(V)])
  3. VBAPojectでブック名を確認し目的のブックのThisWorkbookモジュールをダブルクリック
  4. 表示されたコードウィンドウへ下記のコードをコピー、貼付、Alt+QでExcelにもどる。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 ActiveSheet.PageSetup.RightHeader = Range("A1").Value
End Sub

アクティブシートに対する設定のみなので、複数シートを同時に選択して印刷する場合にはアクティブでないシートには適用されない。また逆に、印刷時にアクティブなシートでA1の値がヘッダー/フッターに反映されてしまうため、印刷時にこのマクロが適用されると不便な場合も想定される。

【参考】
LeftHeader  左ヘッダー
CenterHeader 中ヘッダー
RightHeader  右ヘッダー
LeftHeader  左フッター
CenterHeader 中フッター
RightFooter 右フッター


前(ヘッダー(フッター)に罫線) 目次 次(ヘッダー/フッターで任意の日付形式表示)


SEO [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送