【Excel VBA】Rangeオブジェクトの左上のセルを取得する方法は？

Dim myRange as Range
myRange = Range("A1:C3")

Dim currentCell as Range
currentCell = Range.firstCell ' そんなメソッドは無い

myRangeオブジェクトからセルA1のRangeオブジェクトを取得するにはどうすれば良いのでしょうか？

回答の条件

1人2回まで

登録：2009/12/02 21:54:10
終了：2009/12/02 22:05:40

No.1

Mook12663582009/12/02 22:01:54

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

という感じでどうでしょうか。

ありがとうございます！速い!!(^^)

> Range の設定は Set が必要ですが

ご親切ありがとうございます!!

2009/12/02 22:05:11

nannde 2009/12/02 21:55:59

すみません。誤植です。Range.first... -->> myRange.first...
currentCell = myRange.firstCell ' そんなメソッドは無い
HALSPECIAL 2009/12/03 08:28:01

完全に出遅れましたが、

方法１
currentCell = Range("A1:C3").Range("A1").Value '選択範囲中でＡ１の位置ということ
方法２
currentCell = Range("A1:C3").Item(0).Value 'コレクション中の先頭ということ

でもいけるかと。

方法１の補足
currentCell = Range("B1:C3").Range("A1").Value
だったら、Ｂ１が基点(A1)になり、Ｂ１を返します。
たぶん。
Mook 2009/12/03 09:23:36

回答の方法は単純な矩形領域だとよいのですが、
Set MyRange = Union(Range("A1:C3"), Range("B2:D5") )
のような複数の領域を合わせた場合だと、Resize でオブジェクトエラーとなってしまいました。

その際にもHALSPECIAL さんの提示された方法だと機能しますね。
Range("B1:C3").Range("A1")
という記述は座標体系が二重になるので直感的にはわかりずらそうけれど、
覚えておくと便利な方法のようです。
nannde 2009/12/03 11:06:34

Mookさま
バグ発見＆フォローありがとうございます！

HALSPECIALさまの方法がベストのようですね
方法1はコメントが無いと難しそう。
方法2がどんぴしゃ！という感じです！

お二方さまとも、終了後なのにご親切に教えていただきまして、
本当にありがとうございます!!