半角文字・全角文字のエラーチェックをするには・・・？ (ID:83172)

名前

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

本文 頭から順番に取得した文字のコードが 129〜159または224〜252 であれば全角文字の１バイト目です。 （この場合必要なければ２バイト目を読み飛ばします） それ以外の場合は半角文字です。 またStrConvでシステムの既定のコード ページにアクセスする 場合はLen,Mid,AscじゃなくLenB,MidB,AscBを使用します。 以上の点を考慮してプログラムを修正してみてください。 こんな感じ Dim a As String Dim i As Integer a = "アイウあいう" a = StrConv(a, vbFromUnicode) For i = 1 To LenB(a) Debug.Print Hex$(AscB(MidB$(a, i, 1))) Next