Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

33310 / 76734

←次へ　｜　前へ→


	【48646】Re:フッダーに開始ページ番号指定

りん

- 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