Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


5829 / 13646 ツリー ←次へ | 前へ→

【48645】フッダーに開始ページ番号指定 nom 07/4/28(土) 3:19 質問[未読]
【48646】Re:フッダーに開始ページ番号指定 りん 07/4/28(土) 5:49 回答[未読]
【48651】Re:フッダーに開始ページ番号指定 nom 07/4/28(土) 15:02 お礼[未読]

【48645】フッダーに開始ページ番号指定
質問  nom  - 07/4/28(土) 3:19 -

引用なし
パスワード
   過去記録いろいろ調べたのですが
見つからないので質問させて下さい。
ヘッダーの&[ページ番号]ですが普通に印刷すると
1ページからですが最初のページをInoutBoxで指定したいのですが
できますか。
たとえば4を指定した場合P-4、P-5、P-6と印刷ページを挿入
したいのですが
位置については右側でフォントサイズ9で指定したい。

また、bookによっては下[フッター中央]にする場合があるので
ヘッダー、フッターそれぞれの場合について教えていただきたいのですが
よろしくお願いします。
追加
※P-4から始まってP-?ですからページを指定しないといけないと
思いますのでそのもInputBoxで指定できるでしょうか?
重ねてお願いします。

【48646】Re:フッダーに開始ページ番号指定
回答  りん E-MAIL  - 07/4/28(土) 5:49 -

引用なし
パスワード
   nom さん、おはようございます。

>たとえば4を指定した場合P-4、P-5、P-6と印刷ページを挿入
>したいのですが
>位置については右側でフォントサイズ9で指定したい。
この動作を記録すると、
Sub Macro1()
  With ActiveSheet.PageSetup
    .RightFooter = "&9P-&P" '右フッタ文字列指定
    .FirstPageNumber = 4  'ページ番号初期値
  End With
End Sub
※不要な部分は省いてあります

なので、これとInputBoxを組み合わせると、

Sub test()
  Dim ws As Worksheet, II As Variant
  Set ws = Application.ActiveSheet '処理するシートを指定
  '
  II = Application.InputBox("ページ番号初期値を入力", Default:=1, Type:=1)
  '
  If TypeName(II) = "Boolean" Then
   MsgBox "Cancel", vbExclamation
  Else
   With ws.PageSetup
     .RightFooter = "&9P-&P"
     .FirstPageNumber = II
   End With
   '結果表示
   ws.PrintPreview
  End If
End Sub

こんな感じです。

>bookによっては下[フッター中央]
分岐の判断基準がわかりませんが、
RightFooter を指定している部分を CenterFooter にするとフッター中央になります。
フッター文字列に使用している書式コード(太字の部分)の詳細はヘルプで見てね。

【48651】Re:フッダーに開始ページ番号指定
お礼  nom  - 07/4/28(土) 15:02 -

引用なし
パスワード
   ▼りん さん:
ありがとうございました。
マクロ記録から説明していただき
わかりやすく理解できました。
思った通りのものが出来ました。
感謝です!

5829 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free