エクセル研究室−Excelの基本的な使い方、応用技を紹介

ページ設定編-エクセルのVBA集


ページ設定編

ヘッダーの右側に日付を表示するには?

'アクティブシートのヘッダーの右側に日付を表示します。
Sub 右ヘッダーに日付を表示()
ActiveSheet.PageSetup.RightHeader = "&D"
End Sub



ヘッダーの右側に日付を和歴で表示するには?

'アクティブシートのヘッダーの右側に日付を和歴で表示します。

'日付は自動では更新されませんので、自動更新が必要であれば、「Workbook_BeforePrint」イベントを用いて自動で印刷前のタイミングで、更新する必要があります。
Sub 右ヘッダーに和歴で日付を表示()
ActiveSheet.PageSetup.RightHeader = Format(Date, "ggge年mm月dd日")
End Sub



印刷範囲を設定するには?

'アクティブシートの印刷範囲をA1:E15に設定します。
Sub 印刷範囲を設定する()
ActiveSheet.PageSetup.PrintArea = "A1:E15"
End Sub



A列の最終行までを印刷範囲に設定するには?

'アクティブシートの印刷範囲をA列〜E列で、A列の最終行までに設定します。
Sub A列の最終行までを印刷範囲に設定する()
ActiveSheet.PageSetup.PrintArea = Range("A1:E1").Resize(Range("A" & Rows.Count).End(xlUp).Row).Address
End Sub





ページトップ