Excelで偶数ページにのみページ数を振りたい

同様の質問はあったのですが、今回やりたいこととマッチせず、質問をさせてもらうことにしました。
表題の通り偶数ページにだけページ数を振りたいのですが、（2ページめに「１」、４ページめに「２」）調べたところだとExcelの標準機能では存在せず、マクロ等で書くしかなさそうです。

今回行いたいのは、奇数ページの右上にタイトル「質問に関する回答１２月分」、偶数ページの中央下にページ数「１」「２」・・・を振りたいのですが、どのように書けばよいのでしょうか
お分かりになるかたがいらっしゃいましたらご教示いただけますと幸いです。

いまは偶数ページのページ設定にそれぞれ「１」「２」・・・と書いていますが、やらなければいけないファイルが大量にあり、くじけそうです。。
どうぞ宜しくお願いいたします。

No.1 ベストアンサー 回答者： keithin 回答日時： 2012/12/06 15:45

ページの構成について肝心の情報が何も書かれていませんが、

＞いまは偶数ページのページ設定にそれぞれ「１」「２」・・・と書いています

と書いているところから、１ページ分１シートで作成していると勝手に解釈します。
同様に１枚目のシートが１ページ目、２枚目のシートが２ページ目になっているとします。


sub macro1()
　dim i as long
　for i=1 to worksheets.count
　if i = application.even(i) then
　　worksheets(i).pagesetup.centerfooter= i / 2
　else
　　worksheets(i).pagesetup.rightheader = "質問に関する回答１２月分"
　end if
　next i
end sub

この回答へのお礼

早速にご回答いただきありがとうございます。
また説明が足りず申し訳ございません。
しかし、ご推察の通りでしたので、ご回答いただいた内容で完全に出来ました！
大変助かりました。有難うございました。

お礼日時：2012/12/06 16:37