Excelで個別にフッター

解決済

質問者：timespace
質問日時：2006/05/29 05:04
回答数：2件

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

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： ipsum11
回答日時：2006/05/29 10:10

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

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

- 0
- 件

通報する

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　右側のフッター
（８）ＡＬＴ＋Ｆ４