Excel VBA質問箱 IV

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

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


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

【59647】複数範囲の選択 つちくら 08/12/28(日) 12:47 質問[未読]
【59651】Re:複数範囲の選択 素人考え 08/12/28(日) 19:30 発言[未読]
【59652】Re:複数範囲の選択 Jaka 08/12/29(月) 10:11 発言[未読]
【59653】Re:複数範囲の選択 つちくら 08/12/29(月) 20:43 お礼[未読]
【59734】Re:複数範囲の選択 Jaka 09/1/5(月) 12:50 発言[未読]

【59647】複数範囲の選択
質問  つちくら E-MAIL  - 08/12/28(日) 12:47 -

引用なし
パスワード
   印刷範囲を複数選択しようとして、
unionを使っていますが、選択する範囲の
数が多くなると選択されなくなるようです。
(これまで動いていましたが、12月は、印刷する
 ページ数が多くなり、最後の方の範囲が、選択
 されませんでした)

255文字の制限があるとの記述も見かけましたが、
とびとびのセルを印刷範囲として
多量に指定するには、どうすればよいでしょうか。

【59651】Re:複数範囲の選択
発言  素人考え  - 08/12/28(日) 19:30 -

引用なし
パスワード
   ▼つちくら さん:

その多量が全て1ページ以内に収まるわけではないですよね?

5〜6ページ分ぐらいずつ分けてみてはいかがでしょう

【59652】Re:複数範囲の選択
発言  Jaka  - 08/12/29(月) 10:11 -

引用なし
パスワード
   小分けしてセットすれば良いです。

Dim Rg As Range
Set Rg = Range("A1:A3,C5:C7")
Set Rg = Application.Union(Rg, Range("A10:H10,C15:E20"))
Rg.Select
Set Rg = Nothing

【59653】Re:複数範囲の選択
お礼  つちくら E-MAIL  - 08/12/29(月) 20:43 -

引用なし
パスワード
   皆さんありがとうございました。

これ(Application.Union(Rg, Range())をDo〜Loopで繰り返したら、
ある回数からUnionで範囲が追加されなくなります。
Unionのカンマでつなぐ文字列を増やしていく分には
範囲がいくら多くなっても大丈夫なんですね。
ありがとうございます。

>Dim Rg As Range
>Set Rg = Range("A1:A3,C5:C7")
>Set Rg = Application.Union(Rg, Range("A10:H10,C15:E20"))
>Rg.Select
>Set Rg = Nothing

【59734】Re:複数範囲の選択
発言  Jaka  - 09/1/5(月) 12:50 -

引用なし
パスワード
   ▼つちくら さん:
>Unionのカンマでつなぐ文字列を増やしていく分には
>範囲がいくら多くなっても大丈夫なんですね。
いや、数にもよるけど、多過ぎる時は使わない方が.....。

【54】トロイぞUnion
ht tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=54;id=FAQ

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