エクセルで特定の文字を見つけて、メッセージで知らせるようにしたいのですが・・・

質問

よろしくお願いします。
VBAの話になるのですが、
たとえば、A列から“NG”という単語がひとつでもあれば、メッセージで、「NGがあります」と表するにはどのようにコードを書いたらいいでしょうか。A列の最終行端はいつも同じではありません。よろしくお願いします。

回答No.1

zap35 · ベストアンサー

VBAですね。部分一致にしたいときは　lookat:=xlPart　に変えてください

Sub Macro1()
Dim rng As Range
　Set rng = ActiveSheet.Columns(1).Find("NG", LookIn:=xlValues, lookat:=xlWhole)
　If Not rng Is Nothing Then
　　　MsgBox "NGがあります"
　End If
End Sub

お礼

zap35さんありがとうございました。findメソッドを使えば
いいんですね。お手本にします。