Excel VBA質問箱 IV

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

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


40109 / 76732 ←次へ | 前へ→

【41724】Re:改ページ設定
回答  ハチ  - 06/8/21(月) 15:37 -

引用なし
パスワード
   ▼トホホ さん:
>またそれが不可能であれば、リストの左端列(A列)などに行番号を振っておくなどしてもよいのですが。

ここの意味は良くわかりませんが・・

HPageBreaksで縦の改ページは制御できます。
拡大・縮小とかをやっていると上手くいきませんので
ご注意を。
それも対応させるとなると・・・
わけがわからないことになります。
HPageBreaksで過去ログも探してみてください。

Option Explicit

Sub Test()

Const L As Long = 10 '区切る行数を指定 Testでは10行ずつ
Dim LastR As Long
Dim i As Long

  With ActiveSheet
    LastR = .Range("A65536").End(xlUp).Row
    .ResetAllPageBreaks
    i = L + 1
    Do While i <= LastR
      .HPageBreaks.Add .Cells(i, 1)
      i = i + L
    Loop
  End With

End Sub
1 hits

【41723】改ページ設定 トホホ 06/8/21(月) 15:10 質問
【41724】Re:改ページ設定 ハチ 06/8/21(月) 15:37 回答
【41725】Re:改ページ設定 トホホ 06/8/21(月) 15:48 お礼
【41736】Re:改ページ設定 ichinose 06/8/21(月) 18:42 発言
【41761】Re:改ページ設定 トホホ 06/8/22(火) 9:39 お礼
【41766】Re:改ページ設定 ichinose 06/8/22(火) 12:35 発言
【41773】Re:改ページ設定 トホホ 06/8/22(火) 13:53 質問
【41783】Re:改ページ設定 Kein 06/8/22(火) 16:56 回答
【41790】Re:改ページ設定 ichinose 06/8/22(火) 22:08 発言

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