Excel VBAでヘッダーの挿入ExcelのVBAでヘッダーの挿

Writer: admin Type: 詳細分かる方教 Date: 2018-12-11 00:00
Excel VBAでヘッダーの挿入ExcelのVBAでヘッダーの挿入をして印刷したいと思っています。仕様は以下です。①フォントサイズは14②ヘッダーの左側に日付を設定 日付は2018年11月というような西暦表示上記仕様を元に実験用に以下のマクロを作成しました。------------------------------------------------------------------------------------------Private Sub CommandButton1_Click() Sheets("sheet1").Select ActiveSheet.PageSetup.LeftHeader = "&14" & Format(Date - 5, yyyy年mm月)End Sub------------------------------------------------------------------------------------------上記マクロ内で”Date-5"としているのは先月を表示したいためです。(ファイルを入力し印刷するのは毎月1日であり、先月の請求書として印刷するためです。)マクロ実行後、印刷プレビューを行うと・フォントサイズが「14」ではなく物凄く大きな値・西暦(2018)の表示がされないとなってしまいます。色々ネット等で調べたのですが、どこが悪いのか分かりません。EXCELのマクロに詳しい方御教授願います。共感した0###指定するフォントサイズの値と出力する数字文字列の間をスペースで区切ればよいようです。また、第2引数の書式指定はダブルクォーテーションで囲む必要があります。'修正例Private Sub CommandButton1_Click() Sheets("sheet1").SelectActiveSheet.PageSetup.LeftHeader = "&14" & " " & Format(Date - 5, "yyyy年mm月")End Subナイス0
###回答ありがとうございました。ご指摘の方法にて希望どおりになりました。なぜスペースをいれなければいけないのかが不明ですが解決できてよかったです。ありがとうございました。

 

TAG