Excel에서 영어 단어에 숫자 값을 변환 하는 방법

Office 2003에 대한 지원이 종료되었습니다.

Microsoft는 2014년 4월 8일 Office 2003에 대한 지원을 종료했습니다. 이러한 변경에 따라 해당 소프트웨어 업데이트 및 보안 옵션이 영향을 받습니다. 사용자에게 미치는 영향 및 계속 보호를 받는 방법에 대해 알아보십시오.

이 문서는 Microsoft 기계 번역 소프트웨어를 이용하여 번역되었으며 Microsoft Community에 의한 Community Translation Framework(CTF) 기술 혹은 사람이 번역한 내용에 의하여 사후 편집될 수 있습니다. Microsoft는 Knowledge Base에 있는 모든 문서에 다양한 언어로 접근할 수 있도록 하기 위하여 기계 번역, 사람에 의한 번역 및 커뮤니티가 편집한 내용을 모두 제공합니다. 번역된 문서는 어휘, 구문 및/혹은 문법에 오류가 있을 수 있습니다. Microsoft는 번역 오류로 인한 부정확성, 오류 및/또는 손해와 이를 고객이 사용하는 데에 대하여 책임을 지지 않습니다.

이 문서의 영문 버전 보기:213360
요약
이 여기서 Applicationsfunctions에 영어 단어에 해당 하는 Microsoft Excel 워크시트 셀에 숫자 값을 변환 하는 데 사용할 수 있는 예제 Visual Basic 포함 되어 있습니다.
추가 정보
Microsoft는 모든 보증, 그림에 대 한 묵시적인 보증. 이 포함 되지만 상품성 또는 특정 목적에의 적합성의 묵시적된 보증에 국한 되지는 않습니다. 이 문서는 작성 하 고 프로시저를 디버깅할 데 사용 되는 도구 및 여기서 설명 하는 프로그래밍 언어에 익숙한 가정 합니다. Microsoft 지원 엔지니어는 특정 프로시저의 기능을 설명할 수 있습니다. 그러나이 예제에서는 추가 기능을 제공 하거나 특정 요구 사항에 맞도록 프로시저를 구성 하려면 수정 하지 않습니다.

Called SpellNumber 예제 함수를 만드는 방법

  1. Microsoft Excel을 시작 합니다.
  2. Visual Basic 편집기를 시작 하려면 ALT + F11 키를 누릅니다.
  3. 삽입 메뉴에서 모듈을 클릭 합니다.
  4. 모듈 시트에 다음 코드를 입력 합니다.
    Option Explicit'Main FunctionFunction SpellNumber(ByVal MyNumber)    Dim Dollars, Cents, Temp    Dim DecimalPlace, Count    ReDim Place(9) As String    Place(2) = " Thousand "    Place(3) = " Million "    Place(4) = " Billion "    Place(5) = " Trillion "    ' String representation of amount.    MyNumber = Trim(Str(MyNumber))    ' Position of decimal place 0 if none.    DecimalPlace = InStr(MyNumber, ".")    ' Convert cents and set MyNumber to dollar amount.    If DecimalPlace > 0 Then        Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _                  "00", 2))        MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))    End If    Count = 1    Do While MyNumber <> ""        Temp = GetHundreds(Right(MyNumber, 3))        If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars        If Len(MyNumber) > 3 Then            MyNumber = Left(MyNumber, Len(MyNumber) - 3)        Else            MyNumber = ""        End If        Count = Count + 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    SpellNumber = Dollars & CentsEnd Function      ' Converts a number from 100-999 into text Function GetHundreds(ByVal MyNumber)    Dim Result As String    If Val(MyNumber) = 0 Then Exit Function    MyNumber = Right("000" & MyNumber, 3)    ' Convert the hundreds place.    If Mid(MyNumber, 1, 1) <> "0" Then        Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "    End If    ' Convert the tens and ones place.    If Mid(MyNumber, 2, 1) <> "0" Then        Result = Result & GetTens(Mid(MyNumber, 2))    Else        Result = Result & GetDigit(Mid(MyNumber, 3))    End If    GetHundreds = ResultEnd Function      ' Converts a number from 10 to 99 into text. Function GetTens(TensText)    Dim Result As String    Result = ""           ' Null out the temporary function value.    If Val(Left(TensText, 1)) = 1 Then   ' If value between 10-19...        Select Case Val(TensText)            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                                 ' If value between 20-99...        Select Case Val(Left(TensText, 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(TensText, 1))  ' Retrieve ones place.    End If    GetTens = ResultEnd Function     ' Converts a number from 1 to 9 into text. Function GetDigit(Digit)    Select Case Val(Digit)        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 SelectEnd Function					

SpellNumber 예제 함수를 사용 하는 방법

텍스트를 변경 하는 샘플 함수를 사용 하려면 다음 예에 설명 된 방법 중 하나를 사용 합니다.

방법 1: 직접 입력

셀에 다음 수식을 입력 하 여 32.50 "30 두 달러 및 50 센트"로 변경할 수 있습니다.
=SpellNumber(32.50)

방법 2: 셀 참조

다른 통합 문서의 셀을 참조할 수 있습니다. 예를 들어, 숫자 32.50을 A1 셀 입력 하 고 다음 수식을 다른 셀에 입력:
=SpellNumber(A1)

방법 3: 함수 삽입

사용 하 여 함수 삽입다음이 단계를 수행 합니다.


Excel 2003의 경우:
  1. 원하는 셀을 선택 합니다.
  2. 클릭 함수 삽입표준 도구 모음입니다.
  3. 아래에서 범주 선택를 클릭 사용자 정의.
  4. 함수 선택 목록에서 클릭 SpellNumber를 클릭 하 고 확인.
  5. 숫자나 셀 참조를 선택한 다음 입력 합니다. 확인.

Excel 2007 및 2010.
  1. 원하는 셀을 선택 합니다.
  2. 클릭함수 삽입수식 을 클릭 합니다.
  3. 아래에서범주 선택를 클릭사용자 정의.
  4. 함수 선택목록에서 클릭SpellNumber를 클릭 하 고확인.
  5. 숫자나 셀 참조를 선택한 다음 입력 합니다.확인.



XL2003 XL2007 XL2010 숫자 숫자 통화 맞춤법

경고: 이 문서는 자동으로 번역되었습니다.

속성

문서 ID: 213360 - 마지막 검토: 09/23/2015 16:51:00 - 수정: 1.0

Microsoft Office Excel 2003, Microsoft Office Excel 2007, Microsoft Excel 2010, Excel 2016, Microsoft Excel 2013

  • kbdtacode kbhowto kbprogramming kbmt KB213360 KbMtko
피드백