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

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

No.2 ベストアンサー 回答者： josyo_m 回答日時： 2002/03/06 15:49

お疲れ様です。

こんなのはどうでしょうか？

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

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

この回答へのお礼

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

お礼日時：2002/03/06 15:57

No.1 回答者： noname#25358 回答日時： 2002/03/06 15:38

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

この回答へのお礼

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

お礼日時：2002/03/06 15:58