エクセルVBAで、条件に一致するセルへ移動

　エクセルVBAでシート内を検索し、条件に一致するセルを選択させたいのですが、どのようにしたら良いでしょうか？
　同一データはシート内に一つしか無い前提です。
勉強不足ですみませんが、どなたかご教授お願いします。

No.2 ベストアンサー 回答者： maruru01 回答日時： 2005/04/15 17:40

こんにちは。

maruru01です。

Findメソッドがいいでしょう。
こんな感じ


Dim rg As Range

Set rg = ActiveSheet.Cells.Find(What:="検索文字列")
If rg Is Nothing Then
　　MsgBox "シート内には見つかりませんでした。"
Else
　　rg.Select
End If


Findメソッドの詳細は、VBAのヘルプを参照して下さい。

この回答へのお礼

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

お礼日時：2005/04/21 16:23

No.3 回答者： taocat 回答日時： 2005/04/15 18:28

こんばんは。

Findがいいでしょうが、検索範囲が決まってるなら
単純にFor文でまわしてもいいかも。

検索範囲：Ａ１～Ｃ１００
検索値：　セルＦ１の値
------------------------------------------------

Sub Test()

　Dim Rng As Range

　For Each Rng In Range("A1:C100")
　　　If Rng.Value = "検索値" Then
　　　　　Rng.Activate
　　　　　Exit Sub
　　　End If
　Next

　　MsgBox "該当なし"

End Sub
---------------------------------------------

以上です。

この回答へのお礼

度々回答頂きありがとうございます。
勉強になります。

お礼日時：2005/04/21 16:26

No.1 回答者： Wendy02 回答日時： 2005/04/15 17:36

記録マクロで、メニューから検索を使ってみればよいと思います。

Find メソッドが出てくるはずですから、後は、ヘルプで調べてみてください。

この回答へのお礼

回答頂きありがとうございます。

お礼日時：2005/04/21 16:29