No.2ベストアンサー
- 回答日時:
#1 のmisatoannaさんの内容にかぶってしまいますが、
>行の幅が微妙にまちまちなので46~53行の間で微妙にずれてしまいます。
50行以上に「自動改ページ」がつけられる場合はよいのですが、それ以下の場合は、「手動改ページ」を入れると、2行なり3行だけのページが出来てしまいますが、それでも良いのですか?2つのマクロがあります。
1つは、手動改ページを入れるマクロで、もう1つは、それが正しく入っているか調べるマクロです。
'--------------------------------------
Sub PageBreak_enter()
'手動改ページを入れるマクロ
Dim Rng As Range, i As Long
With ActiveSheet
'マクロを実行する前に、なるべく、印刷範囲はユーザーで設定してください。
If .PageSetup.PrintArea = "" Then
.PageSetup.PrintArea = .UsedRange.Address
End If
.ResetAllPageBreaks
Set Rng = Range(.PageSetup.PrintArea)
For i = 50 To Rng.Rows.Count Step 50
.Cells(i + 1, "A").PageBreak = xlPageBreakManual
Next i
End With
Set Rng = Nothing
End Sub
'--------------------------------------
Sub CheckMPageBreak()
'正しく、50行目に改ページが入っているか調べるマクロ
Dim TotalPage As Integer
Dim p As Long
Dim i As Integer
TotalPage = Application.ExecuteExcel4Macro("COLUMNS(GET.DOCUMENT(64))")
For i = 1 To TotalPage - 1
p = Application.ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64),1, " & i & ")")
If p Mod 50 <> 1 Then
MsgBox p & " ページ目が、違います。", 64
End If
Next i
End Sub
'--------------------------------------
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- ホームページ作成・プログラミング 秀丸に関して教えて下さい。 1 2022/06/30 10:00
- Word(ワード) Word2013 縦書き上下二段の表、改行を続けると次ページに情報が表示されるようにしたい 3 2022/06/16 09:24
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
- Word(ワード) Google ドキュメントで改ページを挿入する方法 1 2022/05/25 19:22
- SEO 意図しないページが検索ヒットする問題 2 2022/05/19 14:35
- Excel(エクセル) セル内で自分の好きなところで改行したいのですが、数式が入って無理なんです。 「折り返して全体表示」し 4 2022/05/15 18:50
- Visual Basic(VBA) 改ページ 2 2023/03/10 21:29
- その他(プログラミング・Web制作) 入力フォームへ、データを自動的に入力するプログラム。どうやって作る? 4 2023/01/16 10:24
- SEO 検索エンジン反映遅い 1 2022/06/04 07:35
- 物理学 量子力学 球面調和関数 導出 方位角成分 微分方程式の解 2 2022/07/02 13:40
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excelで全ての行単位で改ページ
Word(ワード)
-
Excelで12行ずつ印刷するには
Excel(エクセル)
-
エクセルで複数行に一度に改ページを挿入する方法
Excel(エクセル)
-
-
4
Excelで・・・1ページあたりの行数を指定できますか?
Excel(エクセル)
-
5
Excelで50行毎に改ページを入れたい
その他(Microsoft Office)
-
6
EXCEL 改ページ自動挿入方法を教えてください。
Excel(エクセル)
-
7
EXCELで1行の内容を1枚の紙に印刷したい(緊急)
Excel(エクセル)
-
8
エクセルで一行毎、一枚づつ自動でプリントアウトしたいです。
Excel(エクセル)
-
9
Excelで特定の文字・記号のところで自動的に改ページしたい
Excel(エクセル)
-
10
Excelの改ページ 同シート内で複数の改ページの設定
Excel(エクセル)
-
11
Excelで特定の文字のところで自動的に改ページしたい
Excel(エクセル)
-
12
Excelについて。特定の範囲内で自動的に改ページされることを禁止する
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のPCだけ動作しないVBAマク...
-
VBA初心者 Ctrl+での操作、ボタ...
-
Excel・Word リサーチ機能を無...
-
メッセージボックスのOKボタ...
-
Excel マクロ VBA プロシー...
-
エクセルで特定の列が0表示の場...
-
ExcelのVBA。public変数の値が...
-
一つのTeratermのマクロで複数...
-
EXCELのVBAでRange("A1:C4")を...
-
エクセルで別のセルにあるふり...
-
エクセルに張り付けた写真のフ...
-
ピボットテーブルでの毎回可変...
-
ソース内の行末に\\
-
Excel VBAからAccessマクロを実...
-
ExcelVBAでPDFを閉じるソース
-
エクセルのマクロについて教え...
-
マクロ実行時、ユーザーフォー...
-
TeraTermマクロの文字列結合
-
wordを起動した際に特定のペー...
-
EXCELマクロでのThisisWor...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
他人が作ったマクロの理解
-
ExcelVBAでPDFを閉じるソース
-
TERA TERMを隠す方法
-
エクセルで別のセルにあるふり...
-
マクロ実行時、ユーザーフォー...
-
Excel VBAからAccessマクロを実...
-
EXCELのVBAでRange("A1:C4")を...
-
TeraTermマクロの文字列結合
-
PDF出力マクロについて。マクロ...
-
#defineの定数を文字列として読...
-
エクセルのマクロをセルの値に...
-
wordを起動した際に特定のペー...
おすすめ情報