개별 문자가 한글인지, 영어인지, 한자인지, 기호인지, 숫자인지 등을 구별해 주는 사용자 정의 함수를 만들었습니다.

개별 문자가 한글인지, 영어인지, 한자인지, 기호인지, 숫자인지 등을 구별해 주는 사용자 정의 함수를 만들었습니다.

각종 문자열 처리에 응용해서 쓸 수 있겠습니다.

=decideChar(판별할 개별글자)

예)

=======================

VBA코드

=======================

Function decideChar(char As String) As String

Dim intASC As Integer

Dim lngCode As Long

intASC = Asc(char)

lngCode = Asc(char) + 65536

If (intASC >= 65 And intASC <= 90) Then

decideChar = "영어대문자"

ElseIf (intASC >= 97 And intASC <= 122) Then '

decideChar = "영어소문자"

ElseIf (intASC >= 48 And intASC <= 57) Then '

decideChar = "숫자"

Else

If (intASC >= 0 And intASC <= 128) Then

decideChar = "아스키기호"

Else

If char >= "가" And char <= "힣" Then

decideChar = "한글"

Else

If lngCode >= 51873 And lngCode <= 65022 Then

decideChar = "한자"

Else

decideChar = "나머지특수기호"

End If

End If

End If

End If

End Function

[출처] 엑셀VBA로 한글,한자,영문,숫자,기호 등을 구별하는 함수|작성자 쭌