こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

Excelでページ数の表示について

Excelで印刷をする時に、フッターにページ番号を入れたいのですが、
1ページ目と2ページ目には、ページ番号「1」を
3ページ目と4ページ目には、ページ番号「2」を
5ページ目と6ページ目には、ページ番号「3」を
(中略)
999ページ目と1000ページ目には、ページ番号「500」を
入れるにはどうすれば良いですか?
ページ数が多いので手入力にはしたくありません。

投稿日時 - 2017-12-09 17:24:44

QNo.9406038

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

作業でやるなら、2in1でPDFかXLFで出力した後、印刷時にページをつければよいかと。

投稿日時 - 2017-12-10 02:18:31

補足

すみません、質問文が悪かったです。
Excelで「印刷をする時に」のカッコ内の語が余計でした。

印刷をするのではなく、ただ単に、フッターにページ番号
1ページ目と2ページ目には、ページ番号「1」を
3ページ目と4ページ目には、ページ番号「2」を
5ページ目と6ページ目には、ページ番号「3」を
(中略)
999ページ目と1000ページ目には、ページ番号「500」を
入れたいのです。

投稿日時 - 2017-12-11 09:22:56

お礼

回答ありがとうございました。
とりあえず、別の方法で無理矢理解決させました。

投稿日時 - 2017-12-12 11:17:05

ANo.1

Excelのフッター機能を利用するなら、VBAを使って1ページ印刷するごとにフッタ内容を更新とか。
例えば、10ページまでの例だと、

Dim iPage

For iPage = 1 To 10
  ActiveSheet.PageSetup.CenterFooter = Int(iPage / 2 + 0.5)
  ActiveWindow.SelectedSheets.PrintOut From:=iPage, To:=iPage
Next iPage

とかで、ページ番号が1,1,2,2,3,3って出ました。

投稿日時 - 2017-12-09 18:01:47

補足

すみません、質問文が悪かったです。
Excelで「印刷をする時に」のカッコ内の語が余計でした。

印刷をするのではなく、ただ単に、フッターにページ番号
1ページ目と2ページ目には、ページ番号「1」を
3ページ目と4ページ目には、ページ番号「2」を
5ページ目と6ページ目には、ページ番号「3」を
(中略)
999ページ目と1000ページ目には、ページ番号「500」を
入れたいのです。

投稿日時 - 2017-12-11 09:23:06

お礼

回答ありがとうございました。
とりあえず、別の方法で無理矢理解決させました。

投稿日時 - 2017-12-12 11:17:13

あなたにオススメの質問