範囲内の名前を検索

Question

こんにちは私は、このサンプルの質問でいくつかの助けを得るだろうかと思っていました。

"文字列値を含むA1（1列幅）から始まるセルの範囲を調べるサブフォームを作成すると、サブフォームはまず範囲全体を見つけて範囲変数" theforest "に割り当てます検索を容易にするために役立ちます。次に、「エドワード」という単語が見つかるまで各セルを調べます。見つかった場合は、メッセージに結果が表示されます。

私は底部があることを意味します。出口の後にif文が続くことを意味します。どのように構造化しなければならないか分かりません。ありがとう！

Answer 1

Dim rng, cell As Range 
Dim found As Boolean: found = False 
Set rng = 'you have to specify what range you want to search 
For Each cell In rng 
    If cell.Value = "Edward" Then 
     found = True 
     Exit For 
    End If 
Next cell 

If found Then 
    MsgBox "Edward was found" 
Else 
    MsgBox "Edward was not found" 
End If