갑자기 영수증 양식을 만들어 보자 싶어서 ㅋㅋ

영수증에는 한글로 오백육만 어쩌구 그렇게 |쓰자너요 ㅋ

이걸 엑셀로 할 수 있겠다 싶었는데 아니나 다를까 구글링하니 이미.....

엑셀 형식에서 매크로 포함된 xslm 으로 만들고 매크로 모튤에

'숫자읽기 V2.01 made by Nakky. 1998.7.28

Option Explicit

Public Function ReadNum(Num, ReadType)
    Dim L, k, i, j, n, v As Integer
    Dim Tg1, Tg2, Tg3 As Variant
    Dim g1, g2, g3 As Integer
    Dim Ans As String
    
    If ReadType = 1 Then
        Tg1 = Array("", "壹", "貳", "參", "四", "五", "六", "七", "八", "九")
        Tg2 = Array("", "拾", "百", "千")
        Tg3 = Array("", "萬", "億", "兆")
    Else
        Tg1 = Array("", "일", "이", "삼", "사", "오", "육", "칠", "팔", "구")
        Tg2 = Array("", "십", "백", "천")
        Tg3 = Array("", "만", "억", "조")
    End If
    
    L = Len(Num) '숫자의 길이
    
    For i = 1 To L
        j = L - i + 1
        n = Mid(Num, j, 1)
        g2 = 0
        g3 = 0
        
        If n > 0 Then
            g2 = (i - 1) Mod 4
        End If
    
        If i Mod 4 = 1 Then
            If j - 3 > 1 Then
                v = Mid(Num, j - 3, 4)
            Else
                v = Mid(Num, 1, j)
            End If
            
            If v > 0 Then
                g3 = i / 4
            End If
        End If
        Ans = Tg1(n) + Tg2(g2) + Tg3(g3) + Ans
    Next i
    ReadNum = Ans
End Function
 

숫자를 뒤에서 부터 한글자씩 잘라서 단위를 붙이는 코드군요.

이렇게 넣은 다음에 사용자 정의 함수를 쓰는거지요.

=ReadNum(B1,0)

이런식으로 입력하면 숫자로 딱...

영수증 형식을 만들어야 겠습니다.

A2 셀에는 =readnum(A1,0) 가 입력되어 있지만 보이는건 한글숫자이죠