ＶＢＡ 文字に半角が含まれているか確認する方法

ＶＢＡで文字に半角が含まれているか調べる方法を教えて頂けないでしょうか？全角が含まれているかのチェックはできたのですが。。。
下記は全角が含まれているかのチェックです。

If Asc(Mid(文字列, i, 1)) < 0 Or Asc(Mid(文字列, i, 1)) > 256 Then
　　処理
End If

No.2 ベストアンサー 回答者： fuji2002 回答日時： 2003/01/27 13:03

半角が含まれているかどうか調べる関数は、確かなかったと思います。

ただ、全角文字は２バイトであることを利用すれば、以下のようなルーチンで半角文字の有無を検出できます。

Sub test()

Dim str As String
Dim len1 As Long
Dim len2 As Long

str = Range("A1").Value
len1 = Len(str)

str = StrConv(str, vbFromUnicode)
len2 = LenB(str)

If len1 = len2 Then
Range("b1") = "すべて半角文字の場合の処理"
Else
If len1 * 2 = len2 Then
Range("b1") = "すべて全角文字の場合の処理"
Else
Range("b1") = "全角半角混在の場合の処理"
End If
End If

End Sub

No.3 回答者： maruru01 回答日時： 2003/01/27 13:04

こんにちは。

maruru01です。

全角のチェックをそのまま反対にしたらどうですか。


If Asc(Mid(文字列, i, 1)) >= 0 And Asc(Mid(文字列, i ,1)) <= 256 Then
　　MsgBox "半角"
End If

No.1 回答者： i-touch 回答日時： 2003/01/27 12:21

こんにちは

VBAというかOfficeのバージョンにもよりますが・・。
Strconv関数を使うと判定できますよ。
UnicodeコードからANSIにして、LenとLenBを比べる方法の他に、文字列をvbWideで全角にしてみて、前の文字列と比較して、違っていれば半角が含まれていたと判定するとかですね。
では！