文字列に半角文字が存在するかどうか調べるには

質問

文字列に全角文字が存在するかどうか調のはわかるのですが、半角文字が存在するかどうか調べるにはどうすればよいのでしょうか？

回答No.2

josyo_m · ベストアンサー

お疲れ様です。
こんなのはどうでしょうか？

If (Len("文字列") * 2) <> LenB(StrConv("文字列", vbFromUnicode)) Then
　　'// 半角文字有り
Else
　　'// 全部全角
End If

間違っていたらごめんなさい。

お礼

そっかー　なるほど・・・　
ありがとうございました！！

回答No.1

noname#25358

１文字ずつとりだして、MidB ２文字目がゼロかどうか見るのは駄目でしょうか(^_^;

お礼

試してみます(^ 。^）
ありがとうございました！！