Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3876 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   ▼つちくら さん：

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

５〜６ページ分ぐらいずつ分けてみてはいかがでしょう
【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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3876 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free