文字検索マクロで質問です。

質問

文字検索マクロで質問です。

下記のマクロを作成したのですが、A1に検索する文字を入力してA列(A5:11700)のみを検索して該当が有ったらそのセルを色を付けし、又,該当が無ければMSG BOXで”該当なし”と表示するマクロを御教授頂けますか。

Cells.Find(What:=Range("A1").Value, After:=ActiveCell, LookIn:=xlFormulas,
　　LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Activate
End Sub
以上、宜しくお願い致します。

回答No.1

luka3

自分で作ろうとしましたが、こちらのページを見た方がわかりやすいですね。

・Excel(エクセル)VBA入門：Findメソッド,Like演算子を使った検索
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_find.html

これで myKey に A1 を入れて検索範囲を変えればいいですよね。
該当なしは End If の前に
Else
　MsgBox "該当なし"
と入れれば希望通りになるかと。

お礼

早々の御教授有難う御座います。
希望通りになりました。
有難う御座います。