エクセルのヘッダー番号を順番に &［ページ番号］にしておいて 最終ページだけ別なものにしたいのですが

エクセルのヘッダー番号を順番に
&［ページ番号］にしておいて
最終ページだけ別なものにしたいのですが
どうすればいいですか？
別なシートとかにしない場合で、できる方法ありませんか？

No.3 ベストアンサー 回答者： enunokokoro 回答日時： 2022/08/04 08:44

No.1の回答者です。

マクロの場合、こんな感じですかね。

Sub PrintLastPage()
Dim xPages As Long
xPages = ActiveSheet.PageSetup.Pages.Count
If xPages > 0 Then
' 最終ページ以外にページ番号
ActiveSheet.PageSetup.CenterHeader = "&P"
ActiveSheet.PrintOut from:=1, to:=xPages - 1, preview:=True
' 最終ページのみのみ別の文字列
ActiveSheet.PageSetup.CenterHeader = "最終ページ"
ActiveSheet.PrintOut from:=xPages, to:=xPages, preview:=True
End If
End Sub

上記マクロを実行するたびに、最終ページ以外にページ番号を入れ
印刷プレビューでの確認がありますので印刷をします。
実行後に印刷プレビューが最終ページに変わり、指定した文字列に
書き換えられていますので印刷を再度実行します。

参考サイト
https://kirinote.com/excelvba-headerfooter-addch …
https://excelwork.info/excel/headerfooter00/

この回答へのお礼

ありがとうございます。
確認して思うような実行ができました。
参考サイトについてもありがとうございました。。

お礼日時：2022/08/07 22:56

No.2 回答者： サクラノキ 回答日時： 2022/08/03 22:00

改ページで区切りを入れていくと、フッターに「前と同じ」と表示されていて、それを解除することができます。

それを最終ページですれば上手くいくと思います。
※「前と同じ」は自分もうまく扱えていないです。

もしくは、テキストボックスで上書きするかです(白塗り)。

この回答へのお礼

Wordではありますがエクセルではみつかりませんがありますか？
テキストボックスで変える方法も考えましたが、そもそも改ページプレビューで見るとページ番号のとこ消えるし、テキストボックスがヘッダー位置に届かないのです。

お礼日時：2022/08/05 21:36

No.1 回答者： enunokokoro 回答日時： 2022/08/03 19:41

Excelでは通常の手順では無理だと思う。

https://watapipi.com/excel_last_footer/
マクロで最終ページのみ印刷を別にして、ヘッダー内容を書き換える
とかなら一応可能だとは思うけど。
マクロを使わない場合だと、Excelで先頭ページのみ別指定を使って、
逆順印刷で対応するとか。（内容も逆にする必要あり）
https://oshiete.goo.ne.jp/qa/1891888.html

この回答へのお礼

やっぱりそうですよね…
Wordなら可能そうですが
マクロだとそのコードがわかりません
どんな感じになりますか？

逆順の設定なら可能かもしれませんね！

お礼日時：2022/08/03 19:49