セル内文章の検索について EXCEL VBA

質問

マクロ初心者のものです。よろしくお願いいたします。
「if」の使い方を覚え始めたのですが、条件式の作り方で困っています。
文章の記入されたセルの中から、XXXというような指定した文字があった場合にtrue判定になるような条件式を作りたいのですが、どういった式をつかえばいいの皆目わかりません。
なにとぞご助力お願いします。

回答No.2

imogasi · ベストアンサー

例データ　A列
A列　　　B列（実行結果）
axxx xxxあり
sdfxxx xxxあり
sdfg
xxxcvb xxxあり
wert
sdxxxdf xxxあり
scvb
xxvghxx
sdfxxxvbn xxxあり
ーー
標準モジュールに
Sub test01()
d = Range("A65536").End(xlUp).Row
For i = 1 To d
p = InStr(Cells(i, "A"), "xxx")
If p <> 0 Then
Cells(i, "B") = "xxxあり"
Else
End If
Next i
End Sub
こんなのが参考になるでしょう。
関数Find,Searchなども使えるが、まづ上記で。

回答No.1

ASIMOV

If InStr(Cells(y, x), "XXX") <> 0 Then
　　　　処理
　　End If

で、どうでしょうか