Excel VBA質問箱 IV

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

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


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

9434 / 76732

←次へ　｜　前へ→


	【72860】Re:タイトル行にページ番号を入れたい。

とおりすがり２ - 12/9/25(火) 21:02 -


	引用なし

	パスワード

すでにご指摘いただきました。

蛇足で説明を加えると、、
lastRow - 4　でデータの数を示しますから、
50未満の端数データが一行あっただけでも、一ページにカウントするよう、
49を加えたうえで、50による商をとったものです。

maxPage = WorksheetFunction.Ceiling((lastRow - 4), 50) / 50
つまり、「５０データ区切りで切り上げ」てから 50で割る、
としたほうが、意図が伝わり易かったかもしれない。

ついでながら、
第三案を仮に書くとすれば、こんな感じになるのではないですか？一例です。

Sub 印刷3()
　　Dim lastRow　　　　 As Long
　　Dim maxPage　　　　 As Long
　　Dim lastHeaderRow　 As Long
　　Dim page　　　　　　As Long
　　Dim k　　　　　　　 As Long

　　lastRow = Range("A65536").End(xlUp).Row
　　maxPage = WorksheetFunction.Ceiling((lastRow - 4), 50) / 50
　　lastHeaderRow = (maxPage - 1) * 50 + 5

　　ActiveSheet.ResetAllPageBreaks　'改ページをいったんクリア

　　'最終ページから２ページまでを処理（挿入は下から上に）
　　page = maxPage
　　For k = lastHeaderRow To 55 Step -50
　　　　Rows("3:4").Copy
　　　　Rows(k).Resize(2).Insert Shift:=xlDown
　　　　Cells(k, 4).Value = page
　　　　page = page - 1
　　　　ActiveSheet.HPageBreaks.Add before:=Cells(k, 1)
　　Next
　　Application.CutCopyMode = False

　　Cells(3, 4).Value = 1　 ' １ページ目のページ

　　' 印刷範囲設定と印刷（プレビュー）
　　lastRow = Range("A65536").End(xlUp).Row
　　ActiveSheet.PageSetup.PrintArea _
　　　　 = Range(Cells(3, 1), Cells(lastRow, 8)).Address
　　ActiveSheet.PrintPreview
　　''' ActiveSheet.PrintOut
End Sub

16 hits

▼

【72832】タイトル行にページ番号を入れたい。 まこと 12/9/23(日) 16:13