Excel VBA質問箱 IV

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

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


55502 / 76732 ←次へ | 前へ→

【26003】Re:印刷範囲の複数指定について
回答  りん E-MAIL  - 05/6/21(火) 14:05 -

引用なし
パスワード
   にっさん さん、こんにちわ。

>表の中のコードを読み込み、同じコードごとに印刷範囲を指定したいのです。
>例えば、
> 1行目 A
> 2行目 A
> 3行目 B
> 4行目 C
> 5行目 C
> 6行目 C
> 7行目 D
>なら、1,2行目、3行目、4,5,6行目、7行目で分けたいという感じです。
 ===中略===
>なにかほかにいい方法はないでしょうか?
ページを変えたいだけならば、手動改ページを入れる方法もあります。

Sub test()
  Dim RR As Long, Rmax As Long, ws As Worksheet
  Set ws = ActiveWorkbook.ActiveSheet
  '最下行判定
  With ws.UsedRange
   Rmax = .Cells(.Count).Row
  End With
  '改ページ挿入位置検索(コードがB列の例)
  With ws
   '改ページ位置を何度も計算することになるので止めておくと処理が速くなる
   .DisplayPageBreaks = False
   For RR = 2 To Rmax
     If .Cells(RR, 2).Value <> .Cells(RR - 1, 2).Value Then
      .HPageBreaks.Add .Cells(RR, 2)
     End If
   Next
   .DisplayPageBreaks = True
  End With
End Sub

こんな感じです。

0 hits

【25999】印刷範囲の複数指定について にっさん 05/6/21(火) 12:17 質問
【26001】Re:印刷範囲の複数指定について IROC 05/6/21(火) 12:30 回答
【26003】Re:印刷範囲の複数指定について りん 05/6/21(火) 14:05 回答
【26004】Re:印刷範囲の複数指定について だるま 05/6/21(火) 14:33 回答
【26025】Re:印刷範囲の複数指定について にっさん 05/6/22(水) 10:08 発言
【26043】Re:印刷範囲の複数指定について にっさん 05/6/22(水) 14:48 お礼
【26044】Re:印刷範囲の複数指定について りん 05/6/22(水) 14:55 発言

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