VBA Findメソッド セルアドレスが返されません

Question

VBAを一か月前に勉強し始めた初心者です。
当り前すぎることをお聞きしてるかもしれませんが、もしよろしければ回答お願い致します。

findメソッドを使用しようと思い、コードを書いたのですが、返り値がセルアドレスではなく、セルに入力されている値が返ってきてしまいます。
私が勉強しているサイトをはじめ、どのサイトを見ても、findメソッドではレンジオブジェクトが返り値となり、セルアドレスが返ってくるものと記載されているので、
どうして私のコードだと、セルの値が返ってきてしまうのかが、分かりません。

私が書いたコードは以下になります。

Sub findPractice()

Dim foundCD As Range
Set foundCD = Sheet3.Cells.find(What:=1111, Lookat:=xlWhole)

MsgBox foundCD

End Sub

実際のシートには 1111 が B4 セルに入力されています。しかし上記のコードでは、B4 がメッセージボックスに出力されるのではなく、 1111 がメッセージボックスに出力されてしまいます。

また、findメソッドのように検索する方法として、 ワークシート関数の Match関数 を使う手段もあるということでそれも試しましたが、それもfindメソッドと同じように、セルアドレスではなく、セルの値が返り値となってしまいました。
そのMatch関数を使った際のコードが以下になります。

Sub matchPractice()

Dim matchColumn As Long
Dim foundCD As Range
matchColumn = WorksheetFunction.Match(1111, Range("B:B"), 0)
Set foundCD = Sheet3.Cells(matchColumn, 2)

MsgBox foundCD

End Sub

私のコードが何か間違ってるとは思うのですが、何が間違っているのか分からないのが現状です。
教えて頂けないでしょうか。
よろしくお願いいたします。

Answer 1

私が勉強しているサイトをはじめ、どのサイトを見ても、findメソッドではレンジオブジェクトが返り値となり、セルアドレスが返ってくるものと記載されているので、

どうして私のコードだと、セルの値が返ってきてしまうのかが、分かりません。

Rangeオブジェクトは、セルアドレスでもありませんし、セルの値でもありません。オブジェクトですので。
Rangeオブジェクトはアドレス、値、式、書式・・・などのプロパティの集合体です。（あとメソッドも持ってます。）
Rangeオブジェクトのアドレスを知りたければAddressプロパティ、値を知りたければValueプロパティ、式を知りたければFomulaプロパティ、、、で参照するということになります。

Dim foundCD As Range
Set foundCD = Sheet3.Cells.find(What:=1111, Lookat:=xlWhole)

MsgBox foundCD.Address 'アドレスが表示される
MsgBox foundCD.Value   '値が表示される

もし、プロパティを省略した場合は、既定のプロパティが表示されます。オブジェクトによって規定のプロパティは異なりますが、Rangeオブジェクトの場合はValueプロパティが規定のプロパティになります。ですので、MsgBox foundCDはMsgBox foundCD.Valueということになり、値が表示されます。

また、findメソッドのように検索する方法として、 ワークシート関数の Match関数 を使う手段もあるということでそれも試しましたが、それもfindメソッドと同じように、セルアドレスではなく、セルの値が返り値となってしまいました。

Match関数は検索範囲内での相対位置を数値で返します。下記のコードはその数値を引数にしてCellsプロパティでRangeオブジェクトを取得してます。それで値が表示されるのは上記で説明した通りです。

Dim matchColumn As Long
Dim foundCD As Range
matchColumn = WorksheetFunction.Match(1111, Range("B:B"), 0) 'B列内での相対位置の数値を変数に代入
Set foundCD = Sheet3.Cells(matchColumn, 2) 'Cellsプロパティを使ってRangeオブジェクトを取得

MsgBox foundCD

Comments

[tttkkk]

そういうことだったんですね！
私のオブジェクトの考え方をはじめ、メソッドへの理解が足りてませんでした。

また、rangeオブジェクトの場合、valueプロパティが既定のプロパティだとは知らず、何もプロパティを指定しなければ、勝手にアドレスが返ってくるものだと思っておりました。

ご丁寧に教えてくださりありがとうございます。