2010 Microsoft ExcelでVBAを使用してヘッダーとフッターを挿入
ファイル名/ファイルパスや現在の日付やページ番号など、ワークシートのヘッダー/フッターに特定の情報を挿入する場合は、以下のコードを使用して挿入できます。ワークシートが1つだけの場合は手動で実行できますが、この情報を入力する必要があるワークブック内の複数のシートまたはすべてのシートの場合は、単純なvbaマクロ/コードを使用してこれを実行できます。
このサンプルマクロは、アクティブなブックのすべてのワークシートにヘッダー/フッターを挿入します。また、ブックへの完全なパスも挿入されます。
Option Explicit Sub InsertHeaderFooter() Dim wsAs Worksheet Application.ScreenUpdating = False Each wsInThisWorkbook.Worksheets With ws.PageSetup .LeftHeader = “Company Name:” .CenterHeader = “Page &P of &N” .RightHeader = “Printed &D &T” .LeftFooter = “Path : “ &ActiveWorkbook.Path .CenterFooter = “Workbook Name: & F” .RightFooter = “Sheet: &A” End With Next ws Set ws = Nothing Application.ScreenUpdating = True End Sub
このコードをワークブックにコピーするには、キーボードのAlt + F11を押します。
次に、左側にMicrosoftExcelオブジェクトが表示されます。右クリックして[挿入]を選択します。次に、[モジュール]をクリックして、このコードを右側のコードウィンドウにコピーします。
コードの各部分を分割してみましょう–変数を宣言する通常のDimステートメントから始めます。
この場合、変数は1つだけです–ワークシートのwsです。次に、画面の更新を無効にします。
ここで、FORループで、マクロを含むブック内の各ワークシートをループします。そして、ページ設定で各パラメータを設定します。 &P、&N、&D、&T、&F、および&Aは、ヘッダーとフッターに適用できる特定のフォーマットコードです。 &Pはページ番号を出力します。 &Nは、ドキュメントの合計ページ数を出力します。 &Dは現在の日付を出力します。 &Tは現在の時刻を出力します。 &Fはドキュメントの名前を出力し、&Aはワークブックタブの名前を出力します。
最後に、ワークシートを何も設定せずにオブジェクトを解放し、画面の更新を有効にします。
こちらが2枚の写真です。 1 ^ st ^はヘッダーを表示し、2 ^ nd ^はマクロの実行後のフッターを表示します。
ヘッダーには会社名というラベルが付いています。名前はセルにリンクされていないか、会社名のテキストで入力されていないため、まだ入力されていません。コードまたはExcelシートに何かを入力して参照すると、名前が取得され、ここに入力されます。
ページ番号0は、このコードを空のファイルで実行したため、現在ファイルに0ページがあることを示しています。データを含むファイルでこのコードを実行すると、ページ番号が表示されます。
Printed <Date> <Time>は、「Printed」というテキストとともにマクロが実行された日付と時刻を示します。
フッターでは、パスラベルに現在のファイルのパスが表示されます。
ファイル名はBook1.xlsxで、現在は保存されていないファイルです。したがって、Pathラベルに表示されるパスはありません。
シート番号はフッターの右側に表示されます。
私たちのブログが気に入ったら、Facebookで友達と共有してください。また、TwitterやFacebookでフォローすることもできます。
_私たちはあなたからの連絡をお待ちしております。私たちの仕事を改善、補完、または革新し、あなたのためにそれをより良くする方法を教えてください。 [email protected]_までご連絡ください