エクセルのページ番号の付け方

マクロになりますが Sub Macro1() With ActiveSheet.PageSetup .CenterFooter = ActiveSheet.Index & "/" & _ Worksheets.Count .FirstPageNumber = ActiveSheet.Index & "/" & _ Worksheets.Count End With End Sub を実行した後に印刷したところ「３／５」をフーターに印字しました。 （１）私の場合Sheet1－Sheet5の５シートあったので ５が出ています。（Worksheets.Count） （２）３はSheet3をアクティブにして 印刷したので、３番目（に出来た）のシートと言うことで ３になりました。（ActiveSheet.Index）シート名を例えば漢字名に変更している時は、当初のSheetXのｘの番号に当たります。 印刷するシートを通常アクティブにすると思います。 （３）２ページ以上に渡って印刷しましたが、 どのページも「３／５」になってしまいます。 （４）以上手探りでやりましたので、充分判っていないところがありますが、やって見てこれで良ければと思います。

フッターには、ページ番号／全体ページ数 のような設定をいれて 印刷するとき、シート４つを選択します。 それで、印刷する時、印刷するページに ２から２までと入れれば ２ページ目のみ 印刷されます。 印刷は、ファイルのほうをクリックして 印刷としてください。