アクティブセルに「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 回答日時： 2008/06/05 22:30

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

では？

この回答へのお礼

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

お礼日時：2008/06/06 23:18

No.2 回答者： izmlz 回答日時： 2008/06/05 22:32

Sub test()

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

でどうでしょう？

この回答へのお礼

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

お礼日時：2008/06/09 23:08