|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
숫자을 한글 한문변환시 셀(a12) 11111 일때 =numberstring(ㅁ12,1)입력시
일만천백십일로만 나오는데 일만일천일백일십일원이 되게끔 할수 있는 방법은요.
==============[임군님 글에 대한 답변입니다]==============
엑셀 XP 버전에서는 원하시는대로 수정이 되었습니다만... 그 이하 버전 사용자시라면, 아래의 사용자 정의 함수를 사용하세요.
Function Num2Kor(XXX) As 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)
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)
Select Case i Mod 4
Case 0: strOutput = strOutput & "천"
Case 3: strOutput = strOutput & "백"
Case 2: strOutput = strOutput & "십"
End Select
blnOK = True
End If
If blnOK Then
Select Case i
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
그럼...
//Exceller(www.iExceller.com) |
|