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

名前

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

本文 こんなのは、 Sub test() Dim strtmp As String 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 Debug.Print i & "文字目は漢字", Chr(34) & Mid$(strtmp, i, 1) & Chr(34) End If Next i End Sub