다음 긴 VBA 코드를 사용하면 텍스트 문자열에 숫자를 입력 할 수 있습니다. 다음과 같이하십시오.

1. 누르고 ALT + F11 키가 열립니다. 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 매크로를 모듈 창.

VBA : Excel에서 통화 번호를 영어 단어로 철자

Function SpellNumberToEnglish(ByVal pNumber)
'Updateby20131113
Dim Dollars, Cents
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, ".")
If xDecimal > 0 Then
    Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & "00", 2))
    pNumber = Trim(Left(pNumber, xDecimal - 1))
End If
xIndex = 1
Do While pNumber <> ""
    xHundred = ""
    xValue = Right(pNumber, 3)
    If Val(xValue) <> 0 Then
        xValue = Right("000" & xValue, 3)
        If Mid(xValue, 1, 1) <> "0" Then
            xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred "
        End If
        If Mid(xValue, 2, 1) <> "0" Then
            xHundred = xHundred & GetTens(Mid(xValue, 2))
        Else
            xHundred = xHundred & GetDigit(Mid(xValue, 3))
        End If
    End If
    If xHundred <> "" Then
        Dollars = xHundred & arr(xIndex) & Dollars
    End If
    If Len(pNumber) > 3 Then
        pNumber = Left(pNumber, Len(pNumber) - 3)
    Else
        pNumber = ""
    End If
    xIndex = xIndex + 1
Loop
Select Case Dollars
    Case ""
        Dollars = "No Dollars"
    Case "One"
        Dollars = "One Dollar"
    Case Else
        Dollars = Dollars & " Dollars"
End Select
Select Case Cents
    Case ""
        Cents = " and No Cents"
    Case "One"
        Cents = " and One Cent"
    Case Else
        Cents = " and " & Cents & " Cents"
End Select
SpellNumberToEnglish = Dollars & Cents
End Function
Function GetTens(pTens)
Dim Result As String
Result = ""
If Val(Left(pTens, 1)) = 1 Then
    Select Case Val(pTens)
        Case 10: Result = "Ten"
        Case 11: Result = "Eleven"
        Case 12: Result = "Twelve"
        Case 13: Result = "Thirteen"
        Case 14: Result = "Fourteen"
        Case 15: Result = "Fifteen"
        Case 16: Result = "Sixteen"
        Case 17: Result = "Seventeen"
        Case 18: Result = "Eighteen"
        Case 19: Result = "Nineteen"
        Case Else
    End Select
Else
Select Case Val(Left(pTens, 1))
    Case 2: Result = "Twenty "
    Case 3: Result = "Thirty "
    Case 4: Result = "Forty "
    Case 5: Result = "Fifty "
    Case 6: Result = "Sixty "
    Case 7: Result = "Seventy "
    Case 8: Result = "Eighty "
    Case 9: Result = "Ninety "
    Case Else
End Select
Result = Result & GetDigit(Right(pTens, 1))
End If
GetTens = Result
End Function
Function GetDigit(pDigit)
Select Case Val(pDigit)
    Case 1: GetDigit = "One"
    Case 2: GetDigit = "Two"
    Case 3: GetDigit = "Three"
    Case 4: GetDigit = "Four"
    Case 5: GetDigit = "Five"
    Case 6: GetDigit = "Six"
    Case 7: GetDigit = "Seven"
    Case 8: GetDigit = "Eight"
    Case 9: GetDigit = "Nine"
    Case Else: GetDigit = ""
End Select
End Function

3. 그런 다음 코드를 저장하고 워크 시트로 돌아가서 인접한 셀 B2에 수식을 입력합니다. = SpellNumberToEnglish (A1), 스크린 샷 참조 :

4. 그런 다음 엔터 버튼 키를 누르고 Cell B2를 선택한 다음 채우기 핸들을 필요에 따라이 수식이 포함 된 범위로 드래그합니다. 그리고 모든 통화 번호는 영어 단어로 표기되어 있습니다. 스크린 샷보기 :

주의 사항: 수식이므로 복사하여 붙여 넣기가 필요한 경우 값으로 붙여 넣으세요.

위의 긴 코드는 당신을 화나게 만들 수 있습니다. 걱정하지 마세요. 여기에서 문제를 해결하는 쉽고 빠른 방법을 알려 드릴 수 있습니다. 와 더불어 Excel 용 Kutools의 숫자를 단어로 기능을 사용하면 숫자를 빠르고 편리하게 텍스트 문자열로 변환 할 수 있습니다.

Excel 용 Kutools-300 개 이상의 Excel 용 편리한 도구가 포함되어 있습니다. 30 일 전체 기능 무료 평가판, 신용 카드 필요 없음! 이제 그것을 잡아

1. 철자를 입력 할 범위 번호를 선택하고 쿠툴 > 내용 > 숫자를 단어로.

2. 팝업 대화 상자에서 영어 인사말 언어. 오른쪽에서 결과를 미리 볼 수 있습니다. 시사 창유리. 스크린 샷보기 :

3. 그런 다음 Ok or 신청. 그리고 모든 가격 금액 숫자는 원래 범위의 텍스트 문자열로 변환되었습니다.

주의 사항: 숫자를 통화가 아닌 영어 단어로 변환하려면 통화로 변환되지 않음 확인란의 선택을 취소합니다.
 

이 환상적인 기능 숫자를 단어로 32.01을 "XNUMX 달러 XNUMX 센트"또는 "叁拾 贰元 零 壹 分"로 번역하는 것과 같이 통화 번호를 영어 또는 중국어로 된 통화 텍스트로 쉽게 번역 할 수 있습니다. 무료 평가판을 받으십시오!