カタカナ判定 (ID:118465)

名前

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

本文 自分はこうやっちゃうなぁ〜 -- '全角カナのチェックを行います Public Function IsKataKana(ByVal strChk As String) As Boolean Dim ret As Boolean Dim strPatern As String Dim lngLoop As Long If IsNull(strChk) Then IsKataKana = True Exit Function End If strPatern = "[アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワヲンガギグゲゴザジズゼゾダヂヅデドバビブベボパピプペポァィゥェォッャュョヮーヱヰ]" For lngLoop = 1 To Len(strChk) ret = Mid(strChk, lngLoop, 1) Like strPatern If ret = False Then Exit For End If Next