- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：ExcelVBAで改行方法2）
ExcelVBAで改行方法2
このQ&Aのポイント
- ExcelVBAを使用して、点線のないExcelシート（行数が少ない）で改行処理を行う方法を教えてください。
- 以前質問した方法では、プレビューページで点線が存在しないと改行処理ができませんでした。
- ActiveWindow.View = xlPageBreakPreview、ActiveWindow.SmallScroll Down:=9、Set ActiveSheet.HPageBreaks(1).Location = Range("A34")、ActiveWindow.View = xlNormalView の方法を使用して改行処理を行っているのですが、点線がない場合は動作しません。
- takataka111
- お礼率52% (72/136)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
取り急ぎ下記でどうですか。 （１）テストデータの作成 Ａ１に１、Ａ２に２を入力し、Ａ１：Ａ２を範囲指定して、右下の（＋）フィルハンドルでＡ６０あたりまで数字を入れる。 （２）Ｍｏｄｕｌｅ１を挿入し、ＶＢＥ画面に下記を入れる。 Sub test02() Worksheets("sheet1").Activate ActiveSheet.Rows(15).PageBreak = xlManual ActiveSheet.PrintOut End Sub そして実行する。仕様により「行を指定する」と「指定行の上」で改行されるので、１～１４まで印刷して、紙を排出し、１５以下は次のページ以下に印刷される。（テスト済み） （お願い）「改行方法」「改行を行う方法」は「改ページ」のミスタイプではないですか。読むほうは一言一句センシチブに読むので、よろしく。
お礼
お世話になります。 そうです、改ページ方法です。 ご指摘感謝しますm(_ _)m 以下の方法で実現してみたのですがどうでしょうか？ まず改ページの境目の行が115行目なので 115行目以下の帳票なら以下のマクロを起動して 無理やり115行目までプリント範囲を下にずらします。 それで2ページ目ができるので(点線が現れる)ので 改ページを指定行まで上げる。 Sub Macro1() ActiveWindow.View = xlPageBreakPreview ActiveSheet.PageSetup.PrintArea = "$A$15:$AG$115" ActiveSheet.ResetAllPageBreaks Set ActiveSheet.HPageBreaks(1).Location = Range("A51") End Sub