指定された範囲内の指定されたセルの値を見つけて選択するには

Question

"情報"シートの範囲内でアクティブなシートに指定された値を見つけるマクロを作成できません。

Sub testrot() 
    Dim i As String 
    Dim srchrng As Range 

    Sheets(ActiveSheet.Name).Select 
    i = Cells(2, 5) 
    Sheets("Information").Select 
    Set srchrng = Range("j8:j17").Find(what = i) 
    If Not srchrng Is Nothing Then 
     MsgBox "Not Found" 
    End If 
End Sub 

をセル（2,5）私の中で：セルの値が私たちの範囲内に見つからない場合、それは私に「値が見つかりません」私は、次のを持っているが、それは動作していないというメッセージボックスを与えるだろうアクティブなシートは、例えば＃16であり、範囲（j8：j17）では異なる文字列＃16、＃17などのリストである。

私は何かアドバイスをいただきありがとうございます。

ありがとうございました。

Answer 1

あなたも.Select/.Activate

Sub testRot2() 
Dim str As String 
Dim srchRng As Range 
With Worksheets(ActiveSheet.Name) 
    str = .Cells(2, 5).Value 
    Set srchRng = .Range("J8:J17").Find(what:=str) 
    If srchRng Is Nothing Then 
     MsgBox "Not found" 
    End If 
End With 
End Sub 

を避けたいが、私はstrにiを変更することに注意してください。これは個人的な選択です。通常、ループの場合はiがLong/Integerと表示されています。あなたはそれを維持することができますi、ちょうどそれを言及すると思った。また、Find(what:=str)に必要なコロンに注意してください。