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

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

No.1 ベストアンサー 回答者： zap35 回答日時： 2007/06/09 12:18

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メソッドを使えば
いいんですね。お手本にします。

お礼日時：2007/06/09 16:14