Excel VBA質問箱 IV

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

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


33314 / 76738 ←次へ | 前へ→

【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 にするとフッター中央になります。
フッター文字列に使用している書式コード(太字の部分)の詳細はヘルプで見てね。

0 hits

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

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