Note: The other languages of the website are Google-translated. Back to English

Excel에서 숫자를 영어 단어로 빠르게 변환하는 방법은 무엇입니까?

워크 시트에 숫자 값 열이있는 경우 다음 스크린 샷과 같이 해당하는 영어 단어 또는 영어 통화 단어로 변환해야합니다. 여기서는 숫자를 영어 단어로 빠르고 쉽게 바꾸는 방법에 대해 이야기하겠습니다.

사용자 정의 함수를 사용하여 숫자를 영어 단어로 변환

사용자 정의 함수를 사용하여 숫자를 통화 단어로 변환

유용한 기능을 사용하여 숫자를 통화 단어로 변환


사용자 정의 함수를 사용하여 숫자를 영어 단어로 변환

Excel에서이 작업을 직접 해결하는 데 도움이되는 기능이나 수식은 없지만 사용자 정의 함수를 만들어 완료 할 수 있습니다. 다음 단계를 따르십시오.

1. 누르고있어. ALT + F11 키가 열립니다. Microsoft Visual Basic for Applications 창.

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

Function NumberstoWords(ByVal MyNumber)
'Update by Extendoffice
Dim xStr As String
Dim xFNum As Integer
Dim xStrPoint
Dim xStrNumber
Dim xPoint As String
Dim xNumber As String
Dim xP() As Variant
Dim xDP
Dim xCnt As Integer
Dim xResult, xT As String
Dim xLen As Integer
On Error Resume Next
xP = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ")
xNumber = Trim(Str(MyNumber))
xDP = InStr(xNumber, ".")
xPoint = ""
xStrNumber = ""
If xDP > 0 Then
xPoint = " point "
xStr = Mid(xNumber, xDP + 1)
xStrPoint = Left(xStr, Len(xNumber) - xDP)
For xFNum = 1 To Len(xStrPoint)
xStr = Mid(xStrPoint, xFNum, 1)
xPoint = xPoint & GetDigits(xStr) & " "
Next xFNum
xNumber = Trim(Left(xNumber, xDP - 1))
End If
xCnt = 0
xResult = ""
xT = ""
xLen = 0
xLen = Int(Len(Str(xNumber)) / 3)
If (Len(Str(xNumber)) Mod 3) = 0 Then xLen = xLen - 1
Do While xNumber <> ""
If xLen = xCnt Then
xT = GetHundredsDigits(Right(xNumber, 3), False)
Else
If xCnt = 0 Then
xT = GetHundredsDigits(Right(xNumber, 3), True)
Else
xT = GetHundredsDigits(Right(xNumber, 3), False)
End If
End If
If xT <> "" Then
xResult = xT & xP(xCnt) & xResult
End If
If Len(xNumber) > 3 Then
xNumber = Left(xNumber, Len(xNumber) - 3)
Else
xNumber = ""
End If
xCnt = xCnt + 1
Loop
xResult = xResult & xPoint
NumberstoWords = xResult
End Function
Function GetHundredsDigits(xHDgt, xB As Boolean)
Dim xRStr As String
Dim xStrNum As String
Dim xStr As String
Dim xI As Integer
Dim xBB As Boolean
xStrNum = xHDgt
xRStr = ""
On Error Resume Next
xBB = True
If Val(xStrNum) = 0 Then Exit Function
xStrNum = Right("000" & xStrNum, 3)
xStr = Mid(xStrNum, 1, 1)
If xStr <> "0" Then
xRStr = GetDigits(Mid(xStrNum, 1, 1)) & "Hundred "
Else
If xB Then
xRStr = "and "
xBB = False
Else
xRStr = " "
xBB = False
End If
End If
If Mid(xStrNum, 2, 2) <> "00" Then
xRStr = xRStr & GetTenDigits(Mid(xStrNum, 2, 2), xBB)
End If
GetHundredsDigits = xRStr
End Function
Function GetTenDigits(xTDgt, xB As Boolean)
Dim xStr As String
Dim xI As Integer
Dim xArr_1() As Variant
Dim xArr_2() As Variant
Dim xT As Boolean
xArr_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ")
xArr_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")
xStr = ""
xT = True
On Error Resume Next
If Val(Left(xTDgt, 1)) = 1 Then
xI = Val(Right(xTDgt, 1))
If xB Then xStr = "and "
xStr = xStr & xArr_1(xI)
Else
xI = Val(Left(xTDgt, 1))
If Val(Left(xTDgt, 1)) > 1 Then
If xB Then xStr = "and "
xStr = xStr & xArr_2(Val(Left(xTDgt, 1)))
xT = False
End If
If xStr = "" Then
If xB Then
xStr = "and "
End If
End If
If Right(xTDgt, 1) <> "0" Then
xStr = xStr & GetDigits(Right(xTDgt, 1))
End If
End If
GetTenDigits = xStr
End Function
Function GetDigits(xDgt)
Dim xStr As String
Dim xArr_1() As Variant
xArr_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ")
xStr = ""
On Error Resume Next
xStr = xArr_1(Val(xDgt))
GetDigits = xStr
End Function

3. 이 코드를 저장하고 닫은 다음 워크 시트로 돌아가서 빈 셀에 다음 수식을 입력합니다. = NumberstoWords (A2)( A2 숫자를 영어 단어로 변환하려는 셀입니다), 스크린 샷 참조 :

4. 그런 다음 엔터 버튼 키를 누르고 C2 셀을 선택한 다음 채우기 핸들을이 수식을 포함 할 범위로 끕니다. 모든 숫자 값은 해당 영어 단어로 변환되었습니다.

주의 사항:이 코드는 정수에만 적용되지만 XNUMX 진수에는 적용되지 않습니다.


사용자 정의 함수를 사용하여 숫자를 통화 단어로 변환

숫자를 영어 통화 단어로 변환하려면 아래 VBA 코드를 적용해야합니다.

1. 누르고있어. ALT + F11 키가 열립니다. Microsoft Visual Basic for Applications 창.

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

Function SpellNumberToEnglish(ByVal pNumber)
'Update by Extendoffice
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. 이 코드를 저장하고 워크 시트로 돌아가서 빈 셀에이 수식을 입력합니다. = SpellNumberToEnglish (A2)( A2 숫자를 영어 통화 단어로 변환하려는 셀)을 클릭 한 다음 채우기 핸들을이 수식을 적용하려는 셀로 끌어다 놓습니다. 모든 숫자의 철자가 영어 통화 단어로 지정되었습니다. 스크린 샷을 참조하십시오.


유용한 기능을 사용하여 숫자를 통화 단어로 변환

위의 코드는 엑셀 초보자에게는 다소 번거 롭습니다. 여기에서는 유용한 기능을 소개하겠습니다. Excel 용 Kutools's 숫자를 단어로,이 유틸리티를 사용하면 숫자를 영어 단어 또는 통화 단어로 빠르게 철자 할 수 있습니다.

팁 :이것을 적용하려면 숫자를 단어로 먼저 기능을 다운로드해야합니다. Excel 용 Kutools을 클릭 한 다음 기능을 빠르고 쉽게 적용하십시오.

설치 후 Excel 용 Kutools, 다음과 같이하십시오.

1. 변환하려는 숫자 목록을 선택한 다음 쿠툴 > 내용 > 숫자를 단어로, 스크린 샷 참조 :

2. 에서 숫자를 통화 단어로 대화 상자, 확인 English 옵션에서 언어 목록 상자를 클릭 한 다음 Ok 버튼을 누르면 모든 숫자의 철자가 영어 통화 단어로 표시됩니다.

방문 꿀팁: 영어 단어를 얻고 싶다면 통화로 변환되지 않음 확인란에서 옵션 중 섹션, 스크린 샷 참조 :

Excel 용 Kutools 및 무료 평가판을 지금 다운로드하려면 클릭하십시오!


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (62)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 좋은 아침안녕하세요.. 좋은 아침입니다. 만나서 반가워요.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 코드는 작동하지 않습니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
마지막 단어가 "Only"인 단어로 숫자를 어떻게 변환합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
문제 해결????
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
다른 열에 수식을 하나 더 추가해야 합니다.
="Rs."&""&F6&"만"&"."
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
숫자에 150.75 또는 3.35와 같은 (.)가 있으면 어떻습니까? 도와주세요 감사합니다...
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
공식 생성에 대한 친절한 지원에 감사드립니다. 사우디 리얄이나 영국 파운드와 같은 통화 이름을 추가해야 하는지 알려주세요.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
예를 들어 우리는 4000을 "Four Thousand"로 변환합니다. 저는 "Saudi Riyals Four Thousand Only"와 같이 번역하고 싶습니다. 그래서 공식에서 누락된 것은 "Saudi Riyals & Only"입니다.
도와주세요
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
위에서 언급한 모듈의 공식을 마이크로소프트 웹사이트에서 복사하여..

원본 링크를 보고 Microsoft Update를 따르십시오.

https://support.microsoft.com/en-in/help/213360/how-to-convert-a-numeric-value-into-english-words-in-excel
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
친애하는 이 코드는 이 줄에 구문 오류를 표시하고 있습니다.
Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) &_"00", 2))

저를 도와주실 수 있나요 ..??가능한 한 빨리 답장을 보내주세요
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
단어와 단어 사이를 추가하십시오. 일십사만오백이십육 대신에 일십사만, 오백이십육. 영어가 적절하지 않아 문장이 잘 이해되지 않을 수 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 코드는 영구적으로 작동하지 않습니다 ... 시트를 닫고 열면 작동하지 않습니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
파일을 "매크로 사용 통합 문서"로 저장하고 열 때 매크로를 활성화합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
당신은 코드에 대한 많은 주셔서 감사합니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
예를 들어 2500을 "Two Thousand Five Hundred"로 변환합니다. 저는 " Two Thousand Five Hundred Only"와 같이 번역하고 싶으므로 공식에서 누락된 것은 "Only"입니다.
도와주세요
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
=CONCATENATE(NumberstoWords(A1)," 전용") 사용
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
정말 감사합니다, 당신의 공식은 완벽했습니다. 알라는 당신을 축복합니다.
감사합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
공식에 백만 달러가 없습니다. 도와주세요.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
예를 들어 2500을 "Two Thousand Five Hundred"로 변환합니다. 저는 " Two Thousand Five Hundred & Cents Fifty Only"와 같이 번역하고 싶습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 센트 철자를 이해하지 못합니다 ... 내 금액은 123.50이고 "XNUMX"이 있습니다 ... 모든 공식을 복사했습니다. 도와주세요
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
몇백만원과 몇백만원은 어떻습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
많이 감사합니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋아. 하지만 이 공식이 영구적으로 작동하지 않는다는 점을 유감스럽게 생각합니다. 점심 시간에 통합 문서를 닫았습니다. 점심 식사 후 파일을 열었지만 공식이 작동하지 않았습니다. #NAME?과 같은 오류를 표시합니다. 친절하게 친밀한 솔루션을 부탁드립니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사


그것의 작동! :)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
내 금액이 "618475"일 때 "six lac XNUMX"대신 "Six Hundred Eighteen Four Hundred Seventy Five"라고 표시되는 버그가 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나도 같은 문제가있어
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 문제가 아니라 단어로 쓰는 형식입니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
고맙습니다 extendOfficea
아직 코멘트가 없습니다
더보기
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호