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

質問

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

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

回答No.1

Wendy02 · ベストアンサー

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

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

お礼

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

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