セカンダリページでの別のフッターの使用(Microsoft Excel)
最終的に印刷されるワークシートを作成するときは、ドキュメントの最初のページで、後続のページとは異なるフッターを使用することをお勧めします。これをExcelで直接行う方法はありません。
ただし、使用できる回避策がいくつかあります。
まず、Excel用のレポートマネージャーアドインを使用してみてください。このアドインを使用すると、さまざまなビューを定義し、それらのビューを印刷する順序を選択できます。各ビューには固有のヘッダーとフッターを設定することもできます。つまり、必要なフッターを使用して最初のページのビューを設定し、独自のヘッダーとフッターを使用して後続のページのビューを設定できます。次に、レポートマネージャーを使用してレポートを印刷し、目的の出力を作成します。
レポートマネージャーアドインはExcel2002で最後に配布されたことに注意してください。Excel2003を使用している場合でも、レポートマネージャーを使用できます。このナレッジベースの記事では、その使用方法について説明しています。
http://support.microsoft.com/kb/873209
別の回避策は、マクロを使用して印刷を行うことです。次のマクロは、印刷内容に応じてワークシートのフッターを設定します。実際には、最初のページのフッターを設定してから、そのページを印刷します。次に、他のページのフッターを設定し、それらを印刷します。
Sub PrintSheet() Dim sP1Left As String Dim sP1Center As String Dim sP1Right As String Dim sP2Left As String Dim sP2Center As String Dim sP2Right As String ' Define first-page footers sP1Left = "First page left" sP1Center = "First page center" sP1Right = "First page right" ' Define second-page footers sP2Left = "Second page left" sP2Center = "Second page center" sP2Right = "Second page right" ' Set up and print first page With ActiveSheet.PageSetup .LeftFooter = sP1Left .CenterFooter = sP1Center .RightFooter = sP1Right End With ActiveSheet.PrintOut 1, 1 ' Set up and print other pages With ActiveSheet.PageSetup .LeftFooter = sP2Left .CenterFooter = sP2Center .RightFooter = sP2Right End With ActiveSheet.PrintOut 2 End Sub
マクロを使用するには、フッターの定義を変更するだけです。
必要な出力だけを取得するには、[最初のページのフッターを定義する]領域と[2番目のページのフッターを定義する]領域の変数値を変更します。
注:
このページ(または_ExcelTips_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。
link:/ excelribbon-ExcelTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]
。
_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。
このヒント(2187)は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel(Excel 2007以降)のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。
link:/ excelribbon-Using_a_Different_Footer_on_Secondary_Pages [セカンダリページで別のフッターを使用する]
。