IFステートメントで半角でも全角でもtrueとさせ

質問

IFステートメントで半角でも全角でもtrueとさせるには？

Sub test1()
Dim str As String
str = "ＡＢＣ"’←全角のA

If str Like "*A*" Then　’←半角のA
MsgBox "Ａがあります"
End If

End Sub

これで、半角Aもメッセージを表示させたいのですが、
マッチバイトみたいなのってありますか？

回答No.3

tsubuyuki · ベストアンサー

あるいは、半角に変換して比較するかどちらかでしょうね。

つまり

If StrConv(str, vbNarrow) Like "*A*" Then　' ←半角の「A」

としてやる感じです。
この辺りは好みですね。

ところで、今回は例として・・ですからあまり重要ではないかもしれませんが、
ＶＢＡには「Ｓｔｒ関数（数値を文字列に変える）」という関数が存在しますから、
変数名として「str」はあまり良くないかもしれませんね。
まぁ、エクセルのＶＢＡですし、そんなに気にすることもないのかもしれませんが・・

お礼

ありがとうございました。

回答No.2

tom04

こんにちは！

＞半角Aもメッセージを表示させたいのですが
とありますので、
strを全角に変換したもので判断してみてはどうでしょうか？

If StrConv(str, vbWide) Like "*Ａ*" Then

といった感じです。m（_ _）m

お礼

ありがとうございました。

回答No.1

keithin

モジュールの先頭（sub test1()の前）に
option compare text
を記載しておきます。

ただし大文字と小文字も区別しなくなります。

お礼

ありがとうございました。