マクロで検索

質問

マクロ初心者で申し訳けありませんが、
検索のマクロを作成したいのですが、マクロで検索してもし該当する項目がなければmsgboxに『検索に該当するものがありません』というメッセージをだしたいと思います。初歩的な質問で申し訳けありませんが、宜しくお願いします。

回答No.1

hallo-2007 · ベストアンサー

参考にしてください。
Sub Test()
Dim Rs As Range
Set Rs = Columns("A:A").Find(What:=Range("B1").Value, LookIn:=xlValues, _
LookAt:=xlPart)
If Rs Is Nothing Then
MsgBox "該当なし"
Else
MsgBox Rs.Address
End If
End Sub
B1セルに　検索値
A列を検索しています。

お礼

ありがとうございました。大変参考になりました。
これからも宜しくお願いします。