OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
締切り
済み

複数のブックの中のシートに、連番でページ番号をふりたい

  • 困ってます
  • 質問No.134660
  • 閲覧数1432
  • ありがとう数2
  • 気になる数0
  • 回答数2
  • コメント数0

お礼率 15% (2/13)

Excelで、1つのブックに7枚のシートがあります。
そんなファイルが、35個あります。
シートだけ数えると、245枚になります。
それぞれのシートに、順番に「1、2、3、4、5、6、7」と
ページ番号をつけ、それを全部のファイルで行いたいです。

つまり、2個目のファイルからは、「8、9、10、11・・」と
なるようにしたいのです。
自分で、シートにページ番号をふるマクロを作ったんですが、
1~7のページ番号がついたものが35個できてしまい、
連番にはなりません。

いちいちフッターを開いてページ設定していたのでは、
とても大変なので、なんとかならないかなー、
と思っています。
通報する
  • 回答数2
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全2件)

  • 回答No.1
レベル10

ベストアンサー率 15% (25/160)

とりあえずひとつのブックにまとめて だから1ファイルにシートが245枚(ですか?)にして シートのタブ右クリックでシートの全指定して それからフッターの設定でもして 一気に印刷なんて方法くらいしか思い浮かばないです(^^; 多分僕が同じことをやろうとおもったらそうやるんだろーなと(笑 でも35枚分を移すのも大変ですね(^^; 全シート指定してだから34回移動かコピーを やらないといけないん ...続きを読む
とりあえずひとつのブックにまとめて
だから1ファイルにシートが245枚(ですか?)にして
シートのタブ右クリックでシートの全指定して
それからフッターの設定でもして
一気に印刷なんて方法くらいしか思い浮かばないです(^^;
多分僕が同じことをやろうとおもったらそうやるんだろーなと(笑
でも35枚分を移すのも大変ですね(^^;
全シート指定してだから34回移動かコピーを
やらないといけないんですもんね(^^;
お礼コメント
8888

お礼率 15% (2/13)

ありがとうございます、すごく簡単なのに、その方法は、
全然思い付かなかったです。数個のファイルの時は、
それで解決できそうです。少ない時は、それでやってみます。
投稿日時 - 2001-09-13 11:06:49

  • 回答No.2
レベル13

ベストアンサー率 68% (791/1163)

下記の『startPg』に開始番号を割り当てれば開始番号からのページ数をフッタに設定します。全体がはっきりしないので、これは指定したページからのフッタを設定する例です。 Book名に規則性があったりすると別の書き方もできますね。 また、印刷用のBookを作っておき、印刷順にBook名をシートに記載しておき、順次Openして印刷したり、ページ数をカウント(記憶)しておくようにもできますね。 Thi ...続きを読む
下記の『startPg』に開始番号を割り当てれば開始番号からのページ数をフッタに設定します。全体がはっきりしないので、これは指定したページからのフッタを設定する例です。
Book名に規則性があったりすると別の書き方もできますね。
また、印刷用のBookを作っておき、印刷順にBook名をシートに記載しておき、順次Openして印刷したり、ページ数をカウント(記憶)しておくようにもできますね。

ThisWorkbookのWorkbook_BeforePrintイベントに下記を貼り付ければ(Dim~Next)、印刷時に設定してくれるはずです。色々方法があります。今は『- 8 -』のフッタになります。

標準モジュールに貼り付けます。
Public Sub setPageFooter()
  Dim pg As Integer '頁
  Dim startPg As Integer '最初の頁番号

  startPg = 8 ’1枚目を8ページ目にする例
  'startPgの決定方法には
  ' (1)Book単位に値をセット(上記の『8』)
  ' (2)セルを参照する方法・・・startPg = Worksheets("Sheet1").Range("A1")
  ' (3)Book名に規則的な番号を振っておきそれから計算する。
  ' (4)印刷指示Bookを作ってページ数をカウントする。 など色々方法は考えられる。

  For pg = 1 To 7
    Worksheets(pg).PageSetup.CenterFooter = "- " & startPg + pg - 1 & " -"
  Next
End Sub
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ