文字列が「半角のみ」or「全角が含まれる」か判断する【ExcelVBA】

文字列が「半角」か「全角」か判断したい
文字列が「半角」か「全角」か判断を行うコードサンプル
注意点
関連記事

文字列が「半角」か「全角」か判断したい

文字列が数値かどうか判断するisNumeric関数では、
全角文字もTrueとなるため、半角かどうか判断したい場合があります。

文字列が「半角」か「全角」か判断を行うコードサンプル

’■文字列が半角のみなのか全角が含まれるのか判断する
Public Function Call_FULLorHALF(ByVal str As String) As Boolean
    If Len(str) <> LenB(StrConv(str, vbFromUnicode)) Then
        Call_FULLorHALF = True      '全角
    Else
        Call_FULLorHALF = False     '半角
    End If
End Function

実際の使い方は以下です。

Public Sub sample()

    Debug.Print Call_FULLorHALF("12345")        'False 半角のみ
    Debug.Print Call_FULLorHALF("１２３４５")   'True　全角のみ
    Debug.Print Call_FULLorHALF("１２３45")     'True　全角が含まれる
    Debug.Print Call_FULLorHALF("あいｳｴｵ")      'True　全角が含まれる

End Sub