VBAのfind関数のランタイムエラー91

Question

私の質問は、VBAのランタイムエラー91に関するものです。私は無駄な検索をしました。私のコードは以下の通りです。エラーの原因となったセクションに注目しました。なぜこれが起こっているのですか？それを修正して移動するにはどうしたらいいですか？

Sub RemoveFooterRows(theFile) 
    Dim found As Range 
    Dim aggregateRow 

    ''Error is from section below 
    found = isItRow = Workbooks(theFile).Worksheets(1).Columns(1).Find _ 
     ("Summary", Range("A1"), xlValues, xlPart, xlByRows, xlNext, False, , False) 
    ''Error is from section above 

    MsgBox ("val is " & found.Row) 

End Sub 

Answer 1

Sub RemoveFooterRows(theFile) 

    Dim found As Range 

    Set found = Workbooks(theFile).Worksheets(1).Columns(1).Find _ 
     ("Summary", Range("A1"), xlValues, xlPart, xlByRows, xlNext, False, , False) 
    MsgBox ("val is " & found.Row) 

End Sub 

あなたは値を割り当てるために、 "セット" キーワードを必要としています。

また、 "isItRow ="を実行するにはわかりませんが、そのようにスタックするのではなく、2つのステートメントで実行する必要があります。

また、aggregateRowは使用されず、型も割り当てられません。

Answer 2

SETを使用して、セルを見つけてオブジェクトに配置します。しかし、単に行を持っていれば、SETを出すことができます。これは私がこれまでにそのテストを書くでしょうかです：何も場合に値が見つかりませんでした `...そして、また

Dim Rw As Long 

On Error Resume Next 
Rw = Workbooks(theFile).Worksheets(1).Columns(1).Find _ 
    ("Summary", LookIn:=xlValues, LookAt:=xlPart).Row 

If Rw > 0 Then 
    MsgBox "The row is " & Rw 
Else 
    MsgBox "Not found" 
End If