アクティブセルに「a」が含まれているならばという表現をするにはどうすればいいのでしょうか？

質問

アクティブセルに「abc」と入力されていた場合、

If ActiveCell.Find(What:="a", LookAt:=xlPart) Is Nothing Then
Else
MsgBox "aがあります"
End If

と考えたのですが
aが無くても反応してしまいます。

また
If Not ActiveCell.Find(What:="a", LookAt:=xlPart) Is Nothing Then
MsgBox "aがあります"
End If
も上記のコードと同じ結果になってしまいます。
どうすればいいのでしょうか？
よろしくお願いします。

回答No.1

merlionXX · ベストアンサー

If InStr(ActiveCell.Value, "a") > 0 Then MsgBox "aがあります"

では？

お礼

できました！ご回答ありがとうございます。

回答No.2

izmlz

Sub test()
If ActiveCell.Value Like "*a*" Then
MsgBox "aがあります"
End If
End Sub

でどうでしょう？

お礼

試してみたらできました。ご回答ありがとうございます。