【Excel VBA】Rangeオブジェクトの左上のセルを取得する方法は？
Dim myRange as Range
myRange = Range("A1:C3")
Dim currentCell as Range
currentCell = Range.firstCell ' そんなメソッドは無い
myRangeオブジェクトからセルA1のRangeオブジェクトを取得するにはどうすれば良いのでしょうか？
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する
ベストアンサー
-
Mook
満足100pt
Range の設定は Set が必要ですが、
Sub SelectLeftTopCell() Dim myRange As Range Set myRange = Range("A1:C3") Dim currentCell As Range Set currentCell = myRange.Resize(1, 1) currentCell.Select End Sub
という感じでどうでしょうか。
-
nannde
-
nanndeその他の回答
この質問へのコメント
質問の情報
- 登録日時
- 2009-12-02 21:54:10
- 終了日時
- 2009-12-02 22:05:40
- 回答条件
- 1人2回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…
匿名質問者
1
1
-
不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者11
-
日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者
-
共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者1
-
内定してほしいポケモンはいますか？匿名質問者
currentCell = myRange.firstCell ' そんなメソッドは無い
方法１
currentCell = Range("A1:C3").Range("A1").Value '選択範囲中でＡ１の位置ということ
方法２
currentCell = Range("A1:C3").Item(0).Value 'コレクション中の先頭ということ
でもいけるかと。
方法１の補足
currentCell = Range("B1:C3").Range("A1").Value
だったら、Ｂ１が基点(A1)になり、Ｂ１を返します。
たぶん。
Set MyRange = Union(Range("A1:C3"), Range("B2:D5") )
のような複数の領域を合わせた場合だと、Resize でオブジェクトエラーとなってしまいました。
その際にもHALSPECIAL さんの提示された方法だと機能しますね。
Range("B1:C3").Range("A1")
という記述は座標体系が二重になるので直感的にはわかりずらそうけれど、
覚えておくと便利な方法のようです。
バグ発見＆フォローありがとうございます！
HALSPECIALさまの方法がベストのようですね
方法1はコメントが無いと難しそう。
方法2がどんぴしゃ！という感じです！
お二方さまとも、終了後なのにご親切に教えていただきまして、
本当にありがとうございます!!