特定の列に指定された値が存在するか調べるには?

Question 87.4 Excel VBA Borad (掲示板)より Previous Next
"Sheet2のA列" に 1から100までの数値が、「スペースを含め」 入力されています。
"Sheet1のA1" に 例えば "50" と入力すると、"Sheet2のA列" を検索し "50" が有れば  msgbox "既存データが有ります。" といった マクロを 組みたいのですが、検索マクロが解かりません。
どなたか 教えてください。
Answer   2001.9.11 うな
Sub test()
    Dim rngTarget   As Range
    Dim rngFind     As Range

    ' 検索する範囲
    Set rngTarget = Sheets("Sheet2").Columns("A:A")
    ' 検索
    Set rngFind = rngTarget.Find("検索する値")

    If rngFind Is Nothing Then
        MsgBox "既存データは存在しません。"
    Else
        MsgBox "既存データが存在します。"
    End If
End Sub
こんな感じかな? あくまでサンプルなので、Find関数をヘルプで調べ て、引数を適切に指定して下さい。
ありがとうございました
うなさん 有難うございました。
現在 FINDとサーチの猛勉強中です。 まだ 完成してませんが、希望が見えてきました。  行き詰まったら また投稿します。その時は宜しくお願いいたします。

 

Excel VBA Macro