이 기사에서는 Excel 2019, 2016, 2013 및 기타 버전에서 통화 숫자를 영어 단어로 변환하는 빠르고 무료인 두 가지 방법을 보여 드리겠습니다.

Microsoft Excel은 훌륭한 이것 저것 계산하는 프로그램. 처음에는 대용량 데이터 배열을 처리하기 위해 개발되었습니다. 그러나 송장, 평가 또는 대차대조표와 같은 회계 기록을 빠르고 효과적으로 생성할 수도 있습니다.

대체 지불 문서에서는 단어 형식으로 숫자 값을 복제해야 합니다. 손으로 쓴 숫자보다 입력된 숫자를 위조하는 것이 훨씬 더 어렵습니다. 일부 사기꾼은 3000에서 8000을 만들려고 시도할 수 있지만 비밀리에 "3"을 "8"로 바꾸는 것은 거의 불가능합니다.

따라서 필요한 것은 Excel에서 숫자를 단어로 변환하는 것이 아닙니다(예: "123,45"), 달러와 센트(예: $29.95는 "twenty nine dollars and ninety nine cents" ), GBP는 파운드와 펜스, EUR는 유로와 유로센트 등으로 표기합니다.

이전 버전은 말할 것도 없고 최신 버전의 Excel에도 숫자 맞춤법 도구가 내장되어 있지 않습니다. 하지만 그때가 바로 Excel이 정말 좋은 때입니다. 모든

조합의 수식, VBA 매크로 또는 타사 추가 기능을 사용하여 항상 기능을 개선할 수 있습니다.

아래에서 숫자를 변환하는 두 가지 방법을 찾을 수 있습니다. 그림을 단어로

그리고 필요할 수도 있습니다.Excel

에서 단어를 숫자로 변환 참고. 숫자를 텍스트로 변환 하는 경우(Excel에서 숫자를 텍스트로 표시하려는 경우)는 조금 다릅니다. 이를 위해 TEXT 함수 또는 Excel에서 숫자를 텍스트로 변경하는 방법에 설명된 몇 가지 다른 방법을 사용할 수 있습니다.

숫자를 단어로 변환하는 SpellNumber VBA 매크로

이미 언급했듯이 , Microsoft는 이 작업을 위한 도구를 추가하고 싶지 않았습니다. 그러나 필요한 사용자 수를 확인하고 웹 사이트에 특수 VBA 매크로를 만들어 게시했습니다. 매크로는 이름 SpellNumber에서 제안하는 대로 수행합니다. 내가 찾은 다른 모든 매크로는 Microsoft 코드를 기반으로 합니다.

"spellnumber 공식"으로 언급된 매크로를 찾을 수 있습니다. 그러나 수식이 아니라 매크로 함수, 더 정확하게는 Excel 사용자 정의 함수 (UDF)입니다.

spellnumber 옵션은 달러와 센트를 쓸 수 있습니다. 다른 통화가 필요한 경우 " dollar " 및 " cent "를 이름으로 변경할 수 있습니다.

VBA에 정통한 사람이 아닌 경우 , 아래에서 코드 사본을 찾을 수 있습니다. 그래도 정리하고 싶지 않거나 시간이 없다면 이 솔루션을 사용하세요.

1. 숫자를 입력해야 하는 통합 문서를 엽니다.
2. Alt 키를 누릅니다. +F11을 눌러 Visual Basic 편집기 창을 엽니다.
3. 여러 권의 책이 열려 있는 경우 다음을 사용하여 필요한 통합 문서가 활성화되어 있는지 확인합니다.편집기의 왼쪽 상단 모서리에 있는 프로젝트 목록(통합 문서 요소 중 하나가 파란색으로 강조 표시됨).
4. 편집기 메뉴에서 삽입 -> 모듈로 이동합니다. .
5. YourBook - Module1이라는 창이 표시되어야 합니다. 아래 프레임의 모든 코드를 선택하고 이 창에 붙여넣습니다.

   Option Explicit 'Main Function Function SpellNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " 십억 " Place(5) = " 조 " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) If DecimalPlace > 0 그러면 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 & 장소(개수) & 달러 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" End Select Select Case Cents Case "" Cents = " and No Cents" Case "One" Cents = " and One Cent" Case Else Cents = " and " & 센트 & "Cents" End Select SpellNumber = 달러 & 센트 종료 함수 함수 GetHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right( "000" & MyNumber, 3) ' 백 자리를 변환합니다. If Mid(MyNumber, 1, 1) "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If ' 십과 일의 자리를 변환합니다. Mid(MyNumber, 2, 1) "0"이면 결과 = 결과 & GetTens(Mid(MyNumber, 2)) Else 결과 = 결과 & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function Function GetTens(TensText) Dim Result As String Result = "" ' 임시 함수 값을 무효화합니다. If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19… Select Case Val(TensText) Case 10: Result = "Ten" Case 11: Result = "11" Case 12: Result = "Twelve" " 사례 13: 결과 = "13" 사례 14: 결과 = "14" 사례 15: 결과 = "15" 사례 16: 결과 = "16" 사례 17: 결과 = "17" 사례 18: 결과 = "18" 사례 19: Result = "19" 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: 결과 = "40" 사례 5: 결과 = "50" 사례 6: 결과 = "60" 사례 7: 결과 = "70" 사례 8: 결과 = "80" 사례 9: 결과 = "90" 사례 Else End 결과 선택 = 결과 & GetDigit _ (Right(TensText, 1)) ' 한 자리를 검색합니다. End If GetTens = 결과 End Function Function GetDigit(Digit) 케이스 선택Val(Digit) 사례 1: GetDigit = "1" 사례 2: GetDigit = "2" 사례 3: GetDigit = "3" 사례 4: GetDigit = "4" 사례 5: GetDigit = "5" 사례 6: GetDigit = " 6" 사례 7: GetDigit = "7" 사례 8: GetDigit = "8" 사례 9: GetDigit = "9" 사례 Else: GetDigit = "" End Select End Function

6. Ctrl+S 누르기 업데이트된 통합 문서를 저장합니다.

   통합 문서를 다시 저장해야 합니다. 매크로를 사용하여 통합 문서를 저장하려고 하면 " 다음 기능은 매크로 없는 통합 문서 에 저장할 수 없습니다"라는 메시지가 표시됩니다.

   

   아니오를 클릭하십시오. 새 대화 상자에서 다른 이름으로 저장 옵션을 선택했습니다. " 파일 형식 " 필드에서 " Excel 매크로 사용 통합 문서 " 옵션을 선택합니다.

   

SpellNumber 매크로 사용 위치 your worksheets

이제 Excel 문서에서 SpellNumber 함수를 사용할 수 있습니다. 단어로 쓰여진 숫자를 가져와야 하는 셀에 =SpellNumber(A2) 을 입력합니다. 여기서 A2는 숫자 또는 금액이 있는 셀의 주소입니다.

여기에서 결과를 볼 수 있습니다.

짜잔!

SpellNumber 함수를 다른 셀에 빠르게 복사합니다.

만약 1개의 셀이 아닌 전체 테이블을 변환해야 하는 경우 마우스 커서를 수식이 있는 셀의 오른쪽 하단 모서리에 작은 검은색 십자 모양으로 바뀔 때까지 놓습니다.

왼쪽 버튼을 클릭하고 수식을 채울 열입니다. 결과를 보려면 버튼에서 손을 뗍니다.

참고. 제발다른 셀에 대한 링크와 함께 SpellNumber를 사용하는 경우 소스 셀의 숫자가 변경될 때마다 쓰여진 합계가 업데이트된다는 점을 명심하십시오.

함수에 직접 숫자를 입력할 수도 있습니다. 예: =SpellNumber(29.95) (29.95 - 따옴표 및 달러 기호 제외).

Excel에서 매크로를 사용하여 숫자를 철자할 때의 단점

먼저 VBA를 알고 있어야 코드를 필요합니다. 변경하려는 통합 문서마다 코드를 붙여넣어야 합니다. 그렇지 않으면 매크로가 포함된 템플릿 파일을 만들고 시작할 때마다 이 파일을 로드하도록 Excel을 구성해야 합니다.

매크로 사용의 가장 큰 단점은 통합 문서를 다른 사람에게 보낼 경우 이 사람이 매크로가 통합 문서에 내장되어 있지 않으면 텍스트를 참조하십시오. 기본 제공되는 경우에도 통합 문서에 매크로가 있다는 경고가 표시됩니다.

특수 추가 기능을 사용하여 숫자를 단어로 철자

합계를 빠르게 철자해야 하지만 VBA를 배우거나 해결 방법을 알아낼 시간이 없는 Excel 사용자를 위해 특별한 도구를 만들었습니다. 몇 가지 인기 있는 통화에 대해 금액 대 단어 변환을 신속하게 수행할 수 있습니다. Ultimate Suite for Excel의 최신 릴리스에 포함된 Spell Number 추가 기능을 만나보세요.

사용할 준비가 된 것 외에도 이 도구는 양을 텍스트로 변환하는 데 매우 유연합니다.

• 다음 중 하나를 선택할 수 있습니다.다음 통화: USD, EUR, GBP, BIT, AUD.
• 센트, 페니 또는 비트센트로 소수 부분을 철자하십시오.
• 결과에 대한 텍스트 케이스를 선택하십시오: 소문자, 대문자 , 제목 대소문자 또는 문장 대소문자.
• 소수점 철자를 다른 방식으로 입력하십시오.
• 0센트를 포함하거나 생략하십시오.

추가 기능은 모든 최신 Excel 365, Excel 2029, Excel 2016, Excel 2013 및 Excel 2010을 포함한 버전. 위에 링크된 제품 홈페이지에서 다른 기능을 자유롭게 탐색하십시오.

이제 이 숫자 맞춤법 유틸리티가 실제로 작동하는 것을 살펴보겠습니다. :

1. 결과에 대한 빈 셀을 선택합니다.
2. Ablebits 탭의 유틸리티 그룹에서 를 클릭합니다. Spell Number .
3. 표시되는 Spill Number 대화 상자 창에서 다음을 구성합니다.
   • 번호 선택 상자의 경우 , 텍스트로 쓰려는 금액이 포함된 셀을 선택합니다.
   • 원하는 현재 , 대소문자 및 소수점이 표시되는 방식을 지정합니다. 숫자의 부분 은 철자를 입력해야 합니다.
   • 0센트를 포함할지 여부를 정의합니다.
   • 결과를 값 또는 수식으로 삽입할지 여부를 선택합니다.
4. 대화창 하단에서 결과를 미리보기 합니다. 번호가 적힌 방식이 마음에 들면 맞춤법 을 클릭하세요. 그렇지 않으면 다른 설정을 시도하십시오.

아래 스크린샷은 기본값을 보여줍니다.선택 및 B2의 철자 번호. 수식 입력줄에 있는 수식(보다 정확하게는 사용자 정의 함수)을 확인하십시오.

다음은 다른 통화를 철자하는 방법에 대한 간단한 데모입니다.

팁 및 참고 사항:

• Spell Number 추가 기능은 송장 및 기타 재무 문서와 같은 실제 사용 사례를 처리하도록 설계되었기 때문에 숫자 <6만 변환할 수 있습니다>한 번에.
• 숫자 열 의 철자를 입력하려면 첫 번째 셀에 수식을 삽입한 다음 수식을 아래로 복사합니다.
• 가능한 경우 원본 데이터가 나중에 변경될 수 있으므로 결과를 수식으로 삽입 하여 원래 숫자가 변경될 때 자동으로 업데이트되도록 하는 것이 가장 좋습니다.
• 결과를 수식 <으로 선택할 때 옵션을 선택하면 사용자 지정 사용자 정의 함수 (UDF)가 삽입됩니다. Ultimate Suite를 설치하지 않은 사람과 통합 문서를 공유하려는 경우 공유하기 전에 수식을 값으로 바꾸는 것을 잊지 마십시오.

역변환 - 영어 단어를 숫자로

솔직히 , 왜 필요한지 상상할 수 없습니다. 혹시라도… :)

Excel MVP인 Jerry Latham이 WordsToDigits 와 같은 Excel 사용자 정의 함수(UDF)를 만든 것으로 보입니다. 영어 단어를 다시 숫자로 변환합니다.

Jerry의 WordsToDigits 워크북을 다운로드하여 UDF 코드를 볼 수 있습니다. 여기에서 그의 사용 방법에 대한 예도 찾을 수 있습니다.기능.

" Sample Entries " 시트에서 함수가 어떻게 작동하는지 확인할 수 있으며 여기에 자신만의 예제를 입력할 수도 있습니다. 문서에 WordsToDigits를 사용하려는 경우 이 기능에 제한이 있음을 알려주세요. 예를 들어 단어로 입력된 분수는 인식하지 못합니다. " 정보 " 시트에서 모든 세부 정보를 찾을 수 있습니다.