Findメソッドでの91エラーの解消方法

Question

度々お世話になります。
Findメソッドのデバック中よくわからないエラーがあったので質問します。
コードについては標準モジュール内でシート名を定義しそれをCall mainで呼び出します。それぞれWs1とWs2です。
Ws1に一列目の文字列(10桁の数字)の中でWs2のA1の数字(カスタム書式"0000000000")と一致するものを探したいです。
その結果findメソッドで
『オブジェクト変数または With ブロック変数が設定されていません。(エラー番号：91)』
とでてしまいます。

やったことは
1 xlpartと書き加えた同様にerror91
2 Ws1とWs2という定数が動くか値参照を用いてMsgBoxで試
験した結果成功
3 keyの書式が問題なのではと思い直接検索する番号をコード
に記載してみた結果同様にerror91

なにかオブジェクト変数のところで予期せぬerrorが起きていることは想像がつくのですがオブジェクト変数の割り当ては正しく出来ているとは思います。
その他なにかあればご教授ください。

Sub test()
Call main

Dim key as Range
 Set key = Ws2.Cells(1,1).Value
Dim Srng as Range
 Set Srng = Ws1.Range("A:A")

Dim Rng as Long
 Rng= Srng.Find(key.Value).Row

If Rng Is Nothing Then
 MsgBox "なし"
Else
 MsgBox Rng

End Sub

Answer 1

Sub test()
'Call main

    Dim key As String: Let key = Worksheets("Sheet2").Range("A1").Text
    Dim rngSearch As Range: Set rngSearch = Worksheets("Sheet1").Range("A:A").Cells
    Dim rngFound As Range
    Dim sProm As String: Let sProm = "なし"
    Set rngFound = Srng.Find(key)

    If Not rngFound Is Nothing Then sProm = rngFound.Address(False, False, xlR1C1, ture)
    MsgBox sProm
End Sub

つまり
Srng.Find(key.Value).Row
↑ここ。
Findメソッドは検索して見つかったセル自体(Rangeオブジェクト）を返します。
検索して見つからなければNothingを返します。
見つかったときはRowプロパティでそのオブジェクトの行番号を取得できますが、
Nothingに行番号はないのでエラーになります。
変数の中身がNothingでないことを確認してから、プ
ロパティの中身をみるようにしてください。
とりあえずこれでエラーは出ないはず。
（検索がうまくいくかは別の話）

あと、
せっかくセル自体が見つかっても、
そのセルを形作るすべての情報をそぎ落として、
行番号だけ変数に保持しておくなんてもったいないと思います。

それから、Findの引数は省略しないほうがいいです。
結果が期待通りにならない可能性があります。

Comments

[Apoll047]

プロパティ―と戻り値の把握が甘かったですありがとうございます。

Answer 2

Sub test()
    Dim key
    key = Ws2.Cells(1, 1).Value
    Dim Srng As Range
    Set Srng = Ws1.Range("A:A")
    Dim Rng As Long
    If Not Srng.Find(key) Is Nothing Then
        Rng = Srng.Find(key).Row
        MsgBox Rng
    Else
        MsgBox "なし"
    End If
End Sub

Ws2のA1の値を取得するなら、Range変数ではなく、Valiantでいいと思います。
Setステートメントは、オブジェクトとしての変数に対して、インスタンスを作るときに使います。
日付、数値、文字は、Setステートメントは使いません。

また、オブジェクトのプロパティに対して、どの型を返すのかデバックなどで事前に調べると良いです。
Rowプロパティは、Longの方の値を返すので、普通に = で値を代入できます。

Findメゾットは、値が見つからない場合は、Nothingを返しますが、処理する前に判断する必要があるので、冗長的な書き方になります。

Comments

[Apoll047]

ものすごく単純なとこ間違えてました。
おっしゃる通りだと思います。
ありがとうございます。
明日またためしてみます。

Answer 3

外してたらゴメンナサイ。
Rng= Srng.Find(key.Value).Row

ではなく、

Set Rng = Srng.Find(key.Value).Row

とか。

Comments

[Apoll047]

.Row指定なのでLong型で整数を返すようにしてました。
それなのでRange型でないのでSetは不要かと思ってました。
明日変更してみます。ありがとうございます。

[kenshirou]

そうでした。Long型にはSetは不要ですね。
RngがRengeで、Set Rng = Srng.Find(key.Value)と勘違いしていました。
何てアホな回答を...失礼しました。
ついでに言えば、Srng.Find(key.Value)が見つからない場合は、Srng.Find(key.Value)はNothingを返すので、Srng.Find(key.Value).Rowはエラーになります。
この場合を考慮し、通常は、以下のようにFindの結果を変数に格納します。

Dim r As Range
Set r= Srng.Find(key.Value)
If r Is Nothing Then
MsgBox "なし"
Else
Rng = r.Row
MsgBox Rng
End If

[Apoll047]

こう格納すればよかったのですね。勉強になりました。ありがとうございます。
コードがきれいに見えるようになりました。