Excel VBA質問箱 IV

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

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


10390 / 13646 ツリー ←次へ | 前へ→

【22128】改ページの挿入 kawata 05/2/9(水) 13:30 質問[未読]
【22130】Re:改ページの挿入 IROC 05/2/9(水) 14:28 回答[未読]
【22132】Re:改ページの挿入 kawata 05/2/9(水) 14:38 お礼[未読]

【22128】改ページの挿入
質問  kawata  - 05/2/9(水) 13:30 -

引用なし
パスワード
   kawataです、よろしくお願いします。
(Windows2000/Excel2000)

   A  B  C  D  E  F
1  a01 *** *** *** ***
2  a01 *** *** *** ***
3  a01 *** *** *** ***
4  a01 *** *** *** ***
5  a01 *** *** *** ***
6  a01 *** *** *** ***
7  b01 *** *** *** ***
8  b01 *** *** *** ***
9  b01 *** *** *** ***
10 b01 *** *** *** ***
11 b01 *** *** *** ***
12 c01 *** *** *** ***
13 c01 *** *** *** ***
14 d01 *** *** *** *** ■
15 d01 *** *** *** ***
16 d01 *** *** *** ***
17
(平均200行前後)

上記のようなデータがあります。
1.A列で昇順並び替えされている。
2.A列の同じデータは、最小1個から最大6個。

で、A列のデータが次ページにまたがないというのを前提にして改ページを入れて
いきたいのですが、判定の仕方がわかりません。
上の例ですとF14に改ページを入れたいのです。
(改ページなしだと15行目まで印刷されてしまいます。都合で実際の行高さは
かなりあります)

ご指導よろしくお願いします。

【22130】Re:改ページの挿入
回答  IROC  - 05/2/9(水) 14:28 -

引用なし
パスワード
   1ページあたりの行数が決まっているのであれば、
その行数の範囲内ごと
かつ
A列の文字が1行下のセルと異なるとき
という条件でFor〜Nextで比較していけばできませんか?

【22132】Re:改ページの挿入
お礼  kawata  - 05/2/9(水) 14:38 -

引用なし
パスワード
   IROCさん、お世話になってます、ありがとうございます。

>A列の文字が1行下のセルと異なるとき
>という条件でFor〜Nextで比較していけばできませんか?

なるほど、どうも難しく考えていたようですね。

ページの最終行と次の行のA列を比較して、同じならば1つ上へ遡って
違うデータのところで改ページを入れて、かつ次の行から、また1ページ
分チェックする、というわけですね、なんとなく出来そうなきがして
きました、やってみます、ありがとうございました。

※ユーザーフォームの表示位置の件、バッチリです、ありがとうございました。
クリックした位置をyのセンターで振り分けて、表示が上と下にわかれるよう
にしました。・・・・嬉しい(^^;、感謝です。

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