エクセルのシート名とページ番号について

質問

エクセルで100ページの文書を作り、シート名は順に「1」から「100」、ページ番号としてシート名が印刷されるように設定してあります。
ところが、18ページの後に2ページ追加する必要が生じました。そこで、
(1)元の19ページから100ページまでのシート名を一括して変更する方法（変更後は21ページから102ページとなります）
(2)それができなければ、シート名ではなくシートの並び順にページ番号が印刷されるように設定する方法を
御教示願います。
よろしく、お願いします。

回答No.2

YNi2B2C · ベストアンサー

シート名を番号にするのが良いか悪いかは別として、
とりあえずあなたの希望を叶えるマクロをつくって
みました。ＵＮＤＯは効かないので、必ず保存して
から行って下さい。

Sub Macro1()

Dim i As String

i = 100

Do

Sheets(i).Select

ActiveSheet.Name = i + 2

i = i - 1

If i = 18 Then
Exit Do
End If

Loop

End Sub

お礼

まことに申し訳ありませんが、当方は、マクロについてあまり理解できておりません。
お作りいただいたマクロは、理解が進んだ時点で、類似の事例について使用させていただきます。
大変お手数をおかけしました。
ご回答ありがとうございました。

回答No.1

Kurouto

まず、シート名をページ番号にするのをやめましょう。

シート名は内容がわかる名前にしておけばOKですよ。

それで、１０２ページすべての文書を書き終えたら。

シートを選択するタブの上で右クリックします。
そこで、「すべてのシートを選択」を押します。
その後、

ツールバーの「ファイル」

↓

「ページ設定」を選択

↓

「ヘッダー/フッター」のタブを選択

↓

ヘッダーかフッターのプルダウンメニューで

「１ページ」を選択

↓

印刷プレビューを押して確認

↓

印刷

↓

終了

です。
ヘッダーかフッターかは表示したい場所が質問になかったので知りません。
また、「１ページ」を選択と書きましたが、これも表示を「１ページ」としたいのか「１/１０２ページ」としたいのか質問に表記していないためわかりません。

あとはご自由にいろいろさわって見てください！

お礼

やはり、シート名をページ番号にするのはよくないようですね。
ページ番号の付け方については、大変参考になりました。
ご回答ありがとうございました。