ヘッダーとフッター

エクセルでヘッダーやフッターに標準で用意されたもの以外のものを挿入したい場合があります、例えばコピーライト表示などで「Since」-「現在」としたい場合「現在」に「今年」だけを表示する場合です。

標準の　&[日付]　と入力すると「年/月/日」が入ってしまうのです。
そこであれこれ策を弄していたら「Format関数」で何とかできそうだと思ってやってみたら出来ました。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
　　ActiveSheet.PageSetup.LeftFooter = "Copyright (C) 2006-" & Format(Date, "yyyy") & " aBe,ShInzou. All Rights Reserved."
End Sub

左、中、右フッタにそれぞれ「年」「月日」「曜日」を挿入するには

Private Sub Workbook_BeforePrint(Cancel As Boolean)
　　With ActiveSheet.PageSetup
　　　　.LeftFooter = Format(Date, "yyyy年")
　　　　.CenterFooter = Format(Date, "m月d日")
　　　　.RightFooter = Format(Date, "aaaa")
　　End With
End Sub

こんな感じで・・。