Excel VBA質問箱 IV

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

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


2554 / 13645 ツリー ←次へ | 前へ→

【67289】Rangeで列の指定をしたい ichi 10/11/21(日) 9:15 質問[未読]
【67290】Re:Rangeで列の指定をしたい よろずや 10/11/21(日) 9:50 回答[未読]
【67291】Re:Rangeで列の指定をしたい ichi 10/11/21(日) 9:58 お礼[未読]

【67289】Rangeで列の指定をしたい
質問  ichi  - 10/11/21(日) 9:15 -

引用なし
パスワード
   Rangeで列の指定をするときアルファベットを次のようにしましたが
沢山の時 なにか方法があるのでしょうか
よろしくお願いいたします

Retu=3
For ij = 1 To 5
    Select Case Retu
       Case 3
          RngMj = "C"
       Case 4
          RngMj = "D"
       Case 5
          RngMj = "E"
       Case 6
          RngMj = "F"
       Case Else
   End Select
  Set Rng = Range(RngMj & "4", Range(RngMj & "65536").End (xlUp))
  Retu = Retu + 1
Next ij

【67290】Re:Rangeで列の指定をしたい
回答  よろずや  - 10/11/21(日) 9:50 -

引用なし
パスワード
   >  Set Rng = Range(RngMj & "4", Range(RngMj & "65536").End (xlUp))

Set Rng = Range(Cells(4, Retu), Cells(Rows.Count, Retu).End(xlUp))

って書きましょう。

【67291】Re:Rangeで列の指定をしたい
お礼  ichi  - 10/11/21(日) 9:58 -

引用なし
パスワード
   有難うございました
なるほどRange と Cellsの組み合わせでよいのですね
すごく参考になりました
次回から応用します
▼よろずや さん:
>>  Set Rng = Range(RngMj & "4", Range(RngMj & "65536").End (xlUp))
>
>Set Rng = Range(Cells(4, Retu), Cells(Rows.Count, Retu).End(xlUp))
>
>って書きましょう。

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