Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2555 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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))
>
>って書きましょう。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2555 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free