[퀴즈] 한자에 괄호넣기

Option Explicit
 
Function ReplaceHanza(Text As String)
    Dim i As Long, t As String, n As Long, X As String
    For i = 1 To Len(Text)
        t = Mid(Text, i, 1)
        n = UCode(t)
        If n < 0 Then n = 32768 * 2 + n
        Select Case n
        Case 11904 To 12301, 13312 To 19903, 19968 To 40959, 63744 To 64255
                    X = X & "(" & t & ")"
        Case 40:    X = X & "{{"
        Case 41:    X = X & "}}"
        Case Else:  X = X & t
        End Select
    Next i
    X = Replace(Replace(Replace(X, ")(", ""), "}}", ")"), "{{", "(")
    ReplaceHanza = X
End Function
 
Function UCode(ByVal aChar As String)
    Dim n As Long
    n = AscW(Left(aChar, 1))
    If n > 65533 Then UCode = CVErr(xlErrNA): Exit Function
    If n < 0 Then n = 32768# * 2 + n
    If n >= 0 Then UCode = n Else UCode = CVErr(xlErrNA)
End Function