締切済み

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

2001/09/13 09:48

Excelで、１つのブックに７枚のシートがあります。そんなファイルが、３５個あります。シートだけ数えると、２４５枚になります。それぞれのシートに、順番に「１、２、３、４、５、６、７」とページ番号をつけ、それを全部のファイルで行いたいです。つまり、２個目のファイルからは、「８、９、１０、１１・・」となるようにしたいのです。自分で、シートにページ番号をふるマクロを作ったんですが、１～７のページ番号がついたものが３５個できてしまい、連番にはなりません。いちいちフッターを開いてページ設定していたのでは、とても大変なので、なんとかならないかなー、と思っています。

8888
お礼率15% (2/13)

オフィス系ソフト
回答数2
ありがとう数2

みんなの回答 （2）
専門家の回答

みんなの回答

nishi6
ベストアンサー率67% (869/1280)

2001/09/13 11:49 回答No.2

下記の『startPg』に開始番号を割り当てれば開始番号からのページ数をフッタに設定します。全体がはっきりしないので、これは指定したページからのフッタを設定する例です。 Book名に規則性があったりすると別の書き方もできますね。また、印刷用のBookを作っておき、印刷順にBook名をシートに記載しておき、順次Openして印刷したり、ページ数をカウント（記憶）しておくようにもできますね。ＴhisWorkbookのWorkbook_BeforePrintイベントに下記を貼り付ければ(Dim～Next)、印刷時に設定してくれるはずです。色々方法があります。今は『- 8 -』のフッタになります。標準モジュールに貼り付けます。 Public Sub setPageFooter() 　　Dim pg As Integer '頁　　Dim startPg As Integer '最初の頁番号　　startPg = 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

ログインすると、全ての回答が全文表示されます。

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

2001/09/13 09:56 回答No.1

とりあえずひとつのブックにまとめてだから１ファイルにシートが２４５枚（ですか？）にしてシートのタブ右クリックでシートの全指定してそれからフッターの設定でもして一気に印刷なんて方法くらいしか思い浮かばないです（＾＾；多分僕が同じことをやろうとおもったらそうやるんだろーなと（笑でも３５枚分を移すのも大変ですね（＾＾；全シート指定してだから３４回移動かコピーをやらないといけないんですもんね（＾＾；

質問者