全角と半角の判断について (ID:80559)

名前

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

本文 １バイト単位で無いとだめですか？ １文字単位なら、 If LenB(StrConv(Mid$(Text1.Text, 30, 1), vbFromUnicode)) > 1 Then MsgBox "全角です" End If LenBで1より大きければ全角！ １バイト単位なら、一度16進数に変換して判断するしか… 1バイトで1文字が表現されるのは、以下の範囲です。 &H00〜&H20、&H80：制御文字（空白やタブや改行などがここに含まれます） &H21〜&H7Eの範囲：いわゆる英数字 （JIS X 0201 ローマ字） &HA1〜&HDFの範囲：いわゆる半角カナ（JIS X0201 片仮名） ここなんかが参考になると思います。 「キャラクターコード」 http://www.infonet.co.jp/ueyama/ip/binary/charcode.html