ヘッダーまたはフッターのフルパス名(Microsoft Excel)
Excelでは、スプレッドシートのヘッダーまたはフッターにさまざまなアイテムを挿入できます(他の_ExcelTips_で確認できます)。
残念ながら、簡単に追加できない項目の1つは、スプレッドシートファイルのフルパス名です。ただし、次のようなマクロを使用して、ヘッダーまたはフッターにパス名を追加できます。
Sub DoPath() ' Inserts the file name and path in the footer ' of each worksheet in the active workbook For Each sheet In ActiveWorkbook.Sheets sheet.PageSetup.CenterFooter = ActiveWorkbook.FullName Next sheet End Sub
これを使用するには、実行するだけで、スプレッドシートファイルのフルパスとファイル名がフッターの中央セクションに追加されます。これは、ブック内のすべてのワークシートに対して行われます。フッターまたはヘッダーの別の場所に情報を追加する場合は、マクロのCenterFooter部分を次のいずれかに置き換えるだけです。
LeftFooter、RightFooter、LeftHeader、CenterHeader、またはRightHeader。
前述のように、上記のマクロは、ブック内の各ワークシートのヘッダーまたはフッターを変更します。現在のワークシートのみを変更する場合は、次の短縮バージョンのマクロを使用できます。
Sub DoOnePath() ' Inserts the file name and path in the footer ' of the active worksheet ActiveSheet.PageSetup.CenterFooter = ActiveWorkbook.FullName End Sub
ヘッダーまたはフッターに貼り付ける他のアイテムとは異なり、これらのマクロによって挿入されるパスとファイル名は「動的」ではないことに注意してください。したがって、スプレッドシートファイルを別のディレクトリに移動したり、別の名前で保存したりする場合は、マクロを再度実行する必要があります。
上記のソリューションはすべてのバージョンのExcelで問題なく機能しますが、Excel 2002を使用している場合は、ヘッダーまたはフッターにパス名を追加するさらに簡単な方法があることを知っておく必要があります。 Microsoftはついにユーザーの要求を聞き、ブックのパスとファイル名の両方を挿入できるボタンを[ヘッダー]ダイアログボックスと[フッター]ダイアログボックスに追加しました。次の手順に従ってください:
。ヘッダーまたはフッターを変更するワークシートを選択します。
。 [ファイル]メニューから[ページ設定]を選択します。 Excelに[ページ設定]ダイアログボックスが表示されます。
。 [ヘッダー/フッター]タブが選択されていることを確認します。 (図1を参照)
。必要に応じて、[カスタムヘッダー]または[カスタムフッター]ボタンをクリックします。 Wordは、[ヘッダー]または[フッター]ダイアログボックスを表示します。 (図2を参照)
。必要に応じて、挿入ポイントを[左セクション]、[中央セクション]、または[右セクション]ボックスに配置します。
。 [ファイル]ボタンをクリックします。 (一枚の紙が突き出たファイルフォルダのように見えます。)Excelは挿入ポイントに次のコードを挿入します:
&[Path]&[File]
。ワークシートを印刷すると、Excelはコードをワークブックのパス名とファイル名にそれぞれ置き換えます。
。 [OK]を2回クリックして、両方のダイアログボックスを閉じます。
このヒントで前述したマクロソリューションとは異なり、Excel2002で提供される新しいヘッダーコードとフッターコードは動的です。ブックファイルの名前を変更したり再配置したりすると、次に印刷するときにヘッダーまたはフッターの情報が変更されます。
注:
このページ(または_ExcelTips_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。
link:/ excelribbon-ExcelTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]
。
_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。
このヒント(2639)は、Microsoft Excel 97、2000、2002、および2003に適用されます。