• ベストアンサー

エクセルVBA セルの値を使ってのセル選択

セルに入力した値でセル選択の範囲を指定したいです セルの値がxの時 セルB1~Cx と セルD100~Ex+100 を同時に選択したいのですが どうすれば良いのでしょう? セルA1に50と入力されているとします Range("B1:C50,D100:E150").Select となってほしい訳です Range や Cells とか調べたのですが分かりませんでした

質問者が選んだベストアンサー

  • ベストアンサー
  • mshr1962
  • ベストアンサー率39% (7417/18945)
回答No.1

If Range("A1") > 0 Then Range("B1:C" & Range("A1") & ",D100:E" & Range("A1") + 100).Select End If でいいのでは?

48946
質問者

お礼

わぁ~ 簡単だぁ~ 何を血迷っていたんだ

その他の回答 (1)

回答No.2

こんにちは 早速ですが、 http://p2p.wrox.com/excel-vba/30262-select-multiple-ranges.html ↑こちらのサイトの情報を元にしまして おそらく、以下のコードのようにすれば 同時に複数のセル範囲を、選択できるようになると思います。 +++++++++++ Option Explicit Sub test() 'http://p2p.wrox.com/excel-vba/30262-select-multiple-ranges.html '↑を参照 Union(Range(Cells(1, 2), Cells(50, 3)), Range(Cells(100, 4), Cells(150, 5))).Select 'Cells(1, 2)→1行目2列目のセル。つまり、B1 'Cells(3, 50)→50行目3列目のセル。つまり、C50 'Cells(4, 100)→100行目4列目のセル。つまり、D100 'Cells(5, 150)→150行目5列目のセル。つまり、E100 End Sub +++++++++++ 尚、 私は、EXCEL2003の環境しか持っていないため 他のバージョンでの動作は保障しかねますので ご了承ください。 以上 ありがとうございました。

参考URL:
http://p2p.wrox.com/excel-vba/30262-select-multiple-ranges.html

関連するQ&A