エクセルで特定のセルを選択したい（マクロ）

質問

以下のようなマクロを組もうとしていますが、出来ません。

sheet1において
１）マクロを実行すると、メッセージボックスが出る。
２）メッセージボックスに入力した文字と同じ文字が入力されているセルを選択する。
３）２）のセルの１行下のセルを選択する。

２）で必ずエラーが出てしまいます。どのような方法が良いのか教えていただけるとありがたいです。よろしくお願いします。

回答No.3

imogasi

>メッセージボックスが出る
InputBoxだろう。
＞セルを選択する。
複数有る可能性は無いのか。ここが肝心なのだ。
＞）で必ずエラーが出てしまいます
コードも挙げないでエラーが出るといっても始まらない。
ーー
重複出現がないなら、こんな簡単なものじゃないか。
Range("A1:G20")を検索対象範囲に考えた場合
Sub test03()
s = InputBox("検索語=")
Range("A1:G20").Find(s).Select
Selection.Offset(1, 0).Select
End Sub
見つからない場合もあれば
Sub test03()
s = InputBox("検索語=")
Set x = Range("A1:G20").Find(s)
If x Is Nothing Then
MsgBox "Not Found"
Else
x.Offset(1, 0).Select
End If
End Sub

回答No.2

KURUMITO

次のようにされてはどうでしょう。
Match関数を使う場合には検索値がなければエラーになりますので注意が必要ですね。
Sub 行検索()

Moji = InputBox("検索の文字列を入力してください。")
For n = 1 To 100
If WorksheetFunction.CountIf(Columns(n), Moji) > 0 Then
m = WorksheetFunction.Match(Moji, Columns(n), 0)
Cells(m + 1, n).Activate
MsgBox "検索されたセルは" & n & "列の" & m + 1 & "行です。"
End If
Next

End Sub

回答No.1

mitarashi

うまく行かないコードと、エラー内容を呈示された方が話が早いと存じます。
下記はご質問の趣旨とすこし違いますが、ご参考になると思います。
http://okwave.jp/qa4189059.html