Excelでのページ番号付与について（WindowsXP）
Excelでのページ番号付与について（WindowsXP）
何枚かのシートがあるファイルに一括でヘッダー・フッターを付けたいと思っています。
Sub SetHeader()
Dim mySheet As Worksheet
Application.ScreenUpdating = False
For Each mySheet In ActiveWindow.SelectedSheets
With mySheet.PageSetup
.LeftHeader = "左ヘッダー"
.CenterHeader = "中央ヘッダー"
.RightHeader = "右ヘッダー"
.LeftFooter = "左フッター"
.CenterFooter = "中央フッター"
.RightFooter = "右フッター"
End With
Next
Application.ScreenUpdating = True
End Sub
上記のようにマクロを作成したのですが、選択したシートの連番という単純な物ではなく
ちょっと面倒なページ表示をしなければいけなくなりました。
一つのファイルの中で
1シート目→1ページ
2シート目→3ページ
3シート目→2ページ
などとなっている場合
1枚目→1
2枚目→2-1/3
2-2/3
2-3/3
3枚目→3-1/2
3-2/2
というようなページ表示にしたいのですが、どのようにマクロを組めばいいかわからなくて困っています。
よろしくお願いいたします。
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/images/related_qa/c205_1_thumbnail_img_sm.png)
お礼
ありがとうございました！