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

名前

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

本文 まァこんな感じであってるかなー？ Dim sBuff$, sData As String Dim lCnt As Long sData = "頭から1文字ずつチェックしていaって30バイト目がどうなってるか" lCnt = 1 Do While (lCnt < 30) sBuff = Left$(sData, 1) sData = Mid$(sData, 2) lCnt = lCnt + LenB(StrConv(sBuff, vbFromUnicode)) Loop If lCnt = 30 Then sBuff = Left$(sData, 1) If LenB(StrConv(sBuff, vbFromUnicode)) = 2 Then Debug.Print "全角" Else Debug.Print "半角" End If Else Debug.Print "全角文字の２Byte目" End If もっと良いやり方が分かる方、フォローお願いします。