Excelで個別にフッター

Excelで印刷するときに各ページごとにフッターを設定したいのです

例えば
２枚目 -A-
３枚目 -B-
４枚目 -C-
５枚目 -1-
６枚目 -2-
…
と
こんな感じにしたいのですが
ご存知の方方法を教えていただければ幸いです。

No.1 ベストアンサー 回答者： ipsum11 回答日時： 2006/05/29 10:10

各ページって言うのは、同じシートの中でってことですか？それはちょっとできなそうですね。

もしやるのなら、ページの最後の行になる所に該当の文字を入力しておく（この場合、行を追加したら常に修正する必要があります）ぐらいしか思いつきません。
もしくは、１ページ１シートにしてやればシートのフッターの設定でお望みの事ができます。

No.2 回答者： mu2011 回答日時： 2006/05/29 10:12

次の方法は如何でしょうか。

■ページ単位にシートを替える。
又は、
■ＶＢＡでセルの値をフッターに設定する。
（１）次のコードをコピー
Private Sub Workbook_BeforePrint(Cancel As Boolean)
　ActiveSheet.PageSetup.フッタ位置 = Range("セル").Value
End Sub
（２）対象のエクセルシートを開く
（３）ＡＬＴ＋Ｆ１１でＶＢＥを起動
（４）ThisWorkbookをダブルクリック
（５）コードウィンドウ上で貼り付け
（６）セル部分はフッタに入れたい任意セルに変更（フォント色を白にすると隠せます）
（７）フッタ位置部分は次から選択
　　LeftFooter　　左側のフッター
　　CenterFooter　中央のフッター
　　RightFooter　 右側のフッター
（８）ＡＬＴ＋Ｆ４