文字列中の漢字を判別 (ID:89866)

名前

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

本文 > しかし、全角の記号がある場合にそれも漢字と認識してしまいます。 う〜ん、なかなか奥が深い では、 http://crocro.com/pc/write/hide/chimarl09_02.html を参考にさせていただきました １バイト目のチェックのみで良さそうですが？ Sub test() Dim strtmp As String Dim byttemp() As Byte Dim i As Long strtmp = "も字れつモジレツｍｏｊｉｒｅｔｕ漢字□●" strtmp = StrConv(strtmp, vbKatakana) strtmp = StrConv(strtmp, vbNarrow) Debug.Print strtmp For i = 1 To Len(strtmp) If StrConv(Mid$(strtmp, i, 1), vbWide) = Mid$(strtmp, i, 1) Then byttemp = StrConv(Mid$(strtmp, i, 1), vbFromUnicode) If Hex(byttemp(0)) & Hex(byttemp(1)) >= "8040" And Hex(byttemp(0)) & Hex(byttemp(1)) <= "879F" Then Debug.Print i & "文字目は記号", Chr(34) & Mid$(strtmp, i, 1) & Chr(34) Else Debug.Print i & "文字目は漢字", Chr(34) & Mid$(strtmp, i, 1) & Chr(34) End If End If Next i End Sub