エクセルVBAで検索したいのですが、

シート内で、ある文字列または数値（例えば「野菜」とか「52」など）を含むセルがあるかどうかを判断したいのです。
今、現在は、存在するか否かを問題にしています。
どのようにマクロを記述すればいいですか？

急いでいて、過去の質問をいくつかは検索してのですが、全ては閲覧できていません。
よろしくお願いします。

No.1 ベストアンサー 回答者： Wendy02 回答日時： 2006/09/09 12:08

こんにちは。

判定だけだったら、単にこういうことでは？
でも、これだったら、ワークシートの検索と同じレベルだと思います。
もしかして、セキュリティ関連でしょうか？

Sub TestCheck()
　Dim strFind As Variant
　Dim msg As String
　strFind = "52" '検索語
　If Not ActiveSheet.UsedRange.Find(strFind, , xlValues, xlPart) Is Nothing Then
　　'xlPart 部分, xlWhole 全部
　　msg = "ある"
　Else
　　msg = "ない"
　End If
　MsgBox msg
End Sub

この回答へのお礼

早速ありがとうございます。
参考になります。

＞もしかして、セキュリティ関連でしょうか？
いえ、そういうことではないのですが。

お礼日時：2006/09/09 12:49