Excel에서 통화를 단어 텍스트로 변환하는 방법은 무엇입니까?

영어를 제2언어로 사용하는 비원어민의 경우, 숫자가 너무 길면 통화 숫자를 영어 단어로 직접 변환하기 어려울 수 있습니다. 이 문서에서는 Excel에서 통화를 쉽게 단어 텍스트로 변환하는 방법을 배우게 됩니다.

VBA 코드를 사용하여 통화를 단어로 변환
Kutools for Excel을 사용하여 통화를 단어로 변환

아래 VBA 코드를 사용하면 통화 숫자를 영어 단어로 변환할 수 있습니다.

1. Alt + F11을 눌러 Microsoft Visual Basic for Applications 대화 상자를 엽니다.

2. Microsoft Visual Basic for Applications 대화 상자에서 삽입 > 모듈을 클릭합니다. 그런 다음 아래 코드를 복사하여 코드 창에 붙여넣습니다.

VBA 코드: 통화 숫자를 영어 단어로 변환

Function NumberstoWords(ByVal pNumber)
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
NumberstoWords = 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. Alt + Q 키를 동시에 눌러 Microsoft Visual Basic for Applications 대화 상자를 닫습니다.

4. 변환하려는 셀 옆에 있는 빈 셀(B1)을 선택하고, 수식 =NumberstoWords(A1)을 입력한 다음 Enter 키를 누릅니다.

참고: A1은 통화 숫자가 포함된 셀입니다. 필요에 따라 변경할 수 있습니다.

5. B1 셀을 선택하고 채우기 핸들을 아래로 드래그하여 모든 통화 숫자의 영어 단어를 가져옵니다.

이 긴 VBA 코드는 복잡해 보일 수 있습니다. 여기서는 이 문제를 쉽게 해결할 수 있는 유용한 도구를 소개하겠습니다. Kutools for Excel의 'Numbers to Words' 기능을 사용하면 통화를 단어로 변환하는 것이 더 이상 문제가 되지 않습니다. 다음과 같이 진행하세요.

1. 변환하려는 통화 숫자가 있는 셀을 선택합니다.

2. Kutools > 텍스트 > Numbers to Words를 클릭합니다. 스크린샷 보기:

3. Numbers to Currency Words 대화 상자에서 영어 옵션을 선택하고 확인 또는 적용 버튼을 클릭합니다.

이제 선택한 통화 숫자가 즉시 영어 단어로 변환됩니다.