갑자기 영수증 양식을 만들어 보자 싶어서 ㅋㅋ
영수증에는 한글로 오백육만 어쩌구 그렇게 |쓰자너요 ㅋ
이걸 엑셀로 할 수 있겠다 싶었는데 아니나 다를까 구글링하니 이미.....
엑셀 형식에서 매크로 포함된 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) 가 입력되어 있지만 보이는건 한글숫자이죠