숫자를 한글로 표시하기

Step 1: 무엇이 다른가

Exceller의 강좌를 들으시는… 아니 보시는 분이 많다보니 이제는 계층도 다양하고 그에 따라 질문도 아주 새로운 것이 많아서 기분이 좋습니다. 그만큼 Exceller의 머리는 더 아파오지만서도… ^_____^ 아래의 표를 보세요.

Num2Kor라는 사용자 정의 함수를 사용하면 다음과 같이 표시됩니다.

바로 이렇게 표시되도록 해 달라는 말씀이지요? 이것은 사용자 정의 함수, 즉 함수를 하나 만들어서 쓰시면 되겠습니다. 프로시저와 함수의 가장 큰 차이점이 무엇인지 아십니까? 그것은 바로, 함수는 프로시저와 달리 작업 수행 결과를 리턴, 즉 돌려준다는 것입니다.

Step 2: 사용자 정의 함수 작성하기

Function Num2Kor(XXX) As String
 '//이 함수는 XXX라는 값을 받아서 연산을 한 다음 String 타입으로 리턴해 준다는 의미입니다.

    Dim strInput As String
    Dim strOutput As String
    Dim strTemp As String
    Const strChar As String = "일이삼사오육칠팔구"
    Dim i As Integer
    Dim intLen As Integer
    Dim blnOK As Boolean
    '//언제나 처럼 함수 내에서 사용되는 변수를 먼저 선언해 주었습니다.

    strInput = CStr(XXX)
    intLen = Len(strInput)
    '//CStr은 Change to String, 즉 숫자자료를 문자열로 변환해 주는 함수입니다.

    For i = intLen To 1 Step -1
    '//이제 입력된 숫자의 길이만큼 순환문을 돌면서 작업을 진행합니다.

        strTemp = Mid(strInput, intLen - i + 1, 1)
        If Val(strTemp) <> 0 Then
            strOutput = strOutput & Mid(strChar, Val(strTemp), 1)
            '//입력받은 숫자를 한자리씩 떼어낸 다음, 0이 아니면 이것을 한글로 변환합니다.
            '//자리수를 4로 나눈 나머지가 0이면 "천", 나머지가 3이면 "백", 나머지가 2이면
            '//"십"이라는 문자열을 바꾼 한글 뒤에 덧붙입니다.

            Select Case i Mod 4
                Case 0: strOutput = strOutput & "천"
                Case 3: strOutput = strOutput & "백"
                Case 2: strOutput = strOutput & "십"
            End Select
            blnOK = True
            '//그 다음에 blnOK를 True로 해 줍니다. 이것은 일종의 Flag, 즉 작업을 했다는 것을
            '//알려주는 깃발입니다.
            '//마을을 열 바퀴를 돌아야 하는데 머리가 좋으면야 기억해 두면 되겠지만 그렇지
            '//않으면 한 바퀴 돌 때마다 전봇대에 표시를 해야 알 수가 있겠지요? 바로 이런
            '//전봇대 역할을 하는 것입니다.
        End If

        If blnOK Then
        '//즉 깃발이 꽂혀 있는 것만을 대상으로 하여 아래의 작업을 하게 되지요.
        '//그러면 여기서, 깃발이 꽂혀 있는 것이란 어떤 것일까요? 그렇습니다. 0이 아닌 모든
        '//값이 되겠지요?

            Select Case i
            '//입력받은 숫자 중에서 I의 자리수가 13자리를 넘으면 "조", 9자리를 넘으면 "억",
            '//5자리를 넘으면 "만"을 또 strOutput 뒤에다가 덧붙입니다.

                Case 13
                    strOutput = strOutput & "조"
                    blnOK = False
                Case 9
                    strOutput = strOutput & "억"
                    blnOK = False
                Case 5
                    strOutput = strOutput & "만"
                    blnOK = False
            End Select
        End If
    Next i
    Num2Kor = strOutput & " 원정"
    '//이렇게 해서 자리수만큼 순환문을 돌고나면 숫자들이 모두 문자열로 치환이 될 것입니다.
    '//그런 다음에는 위와 같이 "함수명=결과값"이라는 형태를 사용해서 연산의 결과값을 다시
    '//리턴, 즉 되돌려 줍니다. 함수의 결과값을 다시 돌려줄 때에는 보통 이런 식으로 사용하니까
    '//잘 기억해 두세요.
End Function

마무리

아무리 생각해 봐도 Excel과 VBA는 논리적인 사고를 키우는데는 그만입니다. "늙었을 때 치매에 걸리지 않기 위해서 고스톱을 친다"고 강변하는 분이 있었는데 치매예방(?)을 위해서라도 VBA는 더할나위 없이 좋다고 생각됩니다. ^^ 컴퓨터라는 물건은 거대한 논리의 덩어리입니다. VBA로 Programming을 하는 것은 곧 논리를 배우는 것입니다.

오늘은 여기까지…

정리 — 숫자 한글 변환 핵심

자주 묻는 질문 (FAQ)

마치며

논리를 차근차근 따라가 보면 원하는 표기 방식을 직접 구현하는 사용자 정의 함수도 어렵지 않습니다.