エクセルのヘッダーでページ番号に枝番を付けるには

質問

ヘッダーの横方向にページ番号、縦方向に-1、-2、-3と枝番を付けたいです。

現在はドキュワークスのページ番号機能を使用していますが、
ページを分離させ番号を振り、再度結合させるという手間がかかるので、
エクセルだけで完結できないかなと思い質問しました。

さらに条件として
・枝番は2または3をブックによって使い分けたい（同一ブック内は同じ枝番数です）

・横方向のページ番号は複数シートに渡って通し番号にしたい。
　（できれば合計-1、合計-2、合計-3と文字の後ろにも枝番がつけられるといいですが、
　　難しければ合計だけはドキュワークスでやります）

・表示場所はヘッダー右上

・できればフォントサイズも指定したいです

画像はセル＝印刷範囲のイメージです。

分かる方がいらっしゃいましたら、ご教授願います。

回答No.2

imogasi

＃１です。その後、関連事項を思い出したので追加しておきます。
ワードには、「セクション」ごとにヘッダーの設定を変えることはできます（仕組みが用意されています）。(ワードでは、知られた事項です）
しかしエクセルでは、セクションという考えがなく、シートごとに、（印刷関係である）ヘッダーなどの設定を、変えることができないと思います。
参考　http://okwave.jp/qa/q3808545.html
もし出来れば、質問の件の解決は、やや都合がよいと思うのですが。

回答No.1

imogasi

「出来ない」と回答で言うのは、後で回答が出て、恥をかく危険を伴うが、１日経っても回答がないので,いろいろ考えたことを下記に記してみます。
ーー
まず念頭にあるのは、ページ設定のヘッダーですが、
１．普通のエクセルの操作による設定では、ページ番号や日付などを単独か、その組み合わせは設定出来ても、情報・項目（ページ番号）の中身までは、思い通りにさせてくれず、不可能と思う。
各ページの印刷方向（順序）はＺ型の方向で、本質問の画像のページ番号と一致している、と思う。
２．「まったく不可能」と「操作では不可能」の間にＶＢＡを使うとできるいう、問題のケースも、少ないケースだがある。しかしＶＢＡでも本件はこれも不可能のようです。
ブックレベルのＢｅｆｏｒｅＰｒｉｎｔというイベントがあるが、
（１）１ページ印刷の都度介入できるので「なく！」、
（２）印刷操作単位１回毎になら印刷前に介入（ＶＢＡを実行してくれる）できるしくみである。
　それで「１（各）ページ！」を印刷する前に、本件の番号をプログラムを使ってもでも設定できない。
３．ほかに、質問の趣旨から離れる方法と思うが、
（１）本件の質問の番号だけを、あらかじめ白紙の用紙に印刷しておいて、その用紙にシートのデータを印刷する手もあると思うが、印刷紙とセル範囲の印刷とを合わせるのが煩わしいので、採用不可かと思う。
（２）データを壊さないセル（空白セル）を設けて（たとえば各ページ先頭に１行を挿入して、）望みの番号を、（シートの１セルに）、設定して、シート全体を１度に印刷する手もあるかと思う。しかし賛同は得られないだろうな。
（３）各ページの印刷部分の右上端に、テキストボックスを（データを隠さないように）配置し、その中のテキストを、思い通りの番号を入れて、オブジェクト（この場合テキストボックスのこと）とともに印刷する。オブジェクトを印刷する、エクセルの設定が必要かも。
しかしこれも賛同は得られるだろうかな。
ーー
4.他に、苦肉の策だが
縦に１シートあたり、３ページづつ分けて印刷する（３列分ずつ、上から回を分けて印刷する。）質問例では、１－１、２－１、３－１は１回、１－２，２－２、３－２は２回目。
その時、一回目に印刷する部分をシート上で範囲指定して、ヘッダーには、１回目（一番上の部分）では
&[ページ番号]＆”－１”
として１単位（質問では横方向３ページ）の印刷を行う。ＶＢＡで言えばＰｒｉｎｔＯｕｔを行う。質問例では１－１、２－１、３－１と３ページ出てくるはず。ページの印刷方向を、行方向（Ｚ字型方向）に設定しておくこと。
行方向には、ページ番号印刷の自動＋１増加機能を使っている。その後の「－１」の部分はこの各回操作内では固定されるが、回を分けて手動かＶＢＡで、ー２、ー３をセットして３ページ印刷する。
続けて
2回目（一番上の部分）では、一回目に印刷する部分を範囲指定して、ヘッダーでは、
&[ページ番号]&"-2"
のように設定して、印刷操作を行う。
ただし質問例の「２シート目」では、スタートページ番号は４にする必要がある。
以下、同様に続ける
これら、質問例では６回（ＶＢＡではＰｒｉｎｔＯｕｔの操作に当たる）は、ＶＢＡで繰り返し処理で、自動処理が可能と思う。
質問者がＶＢＡができなければ、手作業で繰り返すしかないが。
＝＝＝＝＝
参考　私のＶＢＡメモ
・ページ区切り線を表示
Sub test03()
ActiveSheet.DisplayAutomaticPageBreaks = True
End Sub
・印刷ページブロックを捉える
・ページ区切り線をすべて抹消
Sub test08()
With ActiveSheet
.ResetAllPageBreaks
End With
End Sub
・ページ区切り線を指定複数セルに設定（指定セルの上辺と左端辺にひかれる）
Sub test09()
With ActiveSheet
.ResetAllPageBreaks
End With
Set Rng = Union(Range("c5"), Range("f5"), Range("c10"), Range("f10"))
For Each cl In Rng
cl.Activate
ActiveSheet.HPageBreaks.Add Before:=ActiveCell
ActiveSheet.VPageBreaks.Add Before:=ActiveCell
Next
End Sub
・複数の指定セルにテキストボックスを配置
Sub test06()
ActiveSheet.DrawingObjects.Delete
Dim cl()
cl = Array(0, 4, 6, 9)
For i = 1 To 3
l = Cells(1, cl(i)).Left
ActiveSheet.Shapes.AddTextbox msoTextOrientationHorizontal, l, 3, 60, 10
ActiveSheet.TextBoxes(i).Text = CStr(i)
ActiveSheet.TextBoxes(i).Font.Size = 8
Next i
End Sub