文字列の中の全角チェック (ID:82015)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 lLen = Len(sText) lLenB = LenB(StrConv(sText, vbFromUnicode)) If lLenB = lLen Then Debug.Print "半角のみ" ElseIf lLenB = (lLen * 2) Then Debug.Print "全角のみ" Else Debug.Print "混在" End If こんな感じ？