Excel에서 통화 숫자를 빠르게 단어로 변환하는 방법은 무엇입니까?
Excel에서 금융 데이터를 다룰 때, 예를 들어 수표 금액을 작성할 때처럼 통화 숫자를 단어로 변환해야 할 때가 있습니다. 불행히도 Excel에서는 이를 위한 내장 함수를 제공하지 않지만, 이를 달성하기 위한 두 가지 효과적인 방법이 있습니다. 이 문서에서는 두 가지 방법 모두를 안내하며, 필요에 따라 최선의 접근 방식을 선택할 수 있도록 도와드립니다.
Kutools for Excel을 사용하여 통화 숫자를 단어로 변환
VBA 코드를 사용하여 통화 숫자를 단어로 변환
Excel에서는 VBA를 제외하고는 숫자를 영어 단어로 빠르게 변환할 수 없습니다.
1. "Alt + F11" 키를 눌러 "Microsoft Visual Basic for Application" 창을 엽니다.
2. "삽입" > "모듈"을 클릭하고 아래 VBA 코드를 새 모듈 창에 붙여넣습니다.
VBA: 통화 숫자를 영어 단어로 변환
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. 그런 다음 이 코드를 저장하고 창을 닫아 워크시트로 돌아가서, 빈 셀을 선택하고 다음 수식을 입력합니다: =SpellNumberToEnglish(A2) (A2는 통화 숫자), Enter 키를 누른 후, 이 수식을 필요한 셀에 적용하기 위해 채우기 핸들을 아래로 드래그합니다. 스크린샷 보기:



손쉬운 Spell Out Numbers 기능으로 통화 숫자를 단어로 변환
VBA를 사용하고 싶지 않은 경우, Kutools for Excel은 숫자를 단어로 변환하는 간단한 원클릭 방식을 제공합니다. Kutools for Excel의 "Numbers to Words" 기능은 40개 이상의 다양한 통화 형식으로 숫자를 변환할 수 있어 재무 보고 및 국제 거래에 이상적인 솔루션입니다. 몇 번의 클릭만으로 사용자는 USD, EUR, GBP, JPY, CNY 등을 포함한 여러 언어로 숫자 값을 완전히 서식화된 통화 텍스트로 변환할 수 있으며, 수동 변환의 필요성을 없애고 오류를 줄일 수 있습니다.
1. 통화 숫자를 선택하고 "Kutools" > "텍스트" > "Numbers to Words"를 클릭합니다. 스크린샷 보기:
2. "Numbers to Currency Words" 대화 상자에서 사용하려는 언어를 선택합니다; 여기서는 "Languages" 목록 상자에서 "영어" 옵션을 선택하겠습니다. 스크린샷 보기:
3. "확인" 또는 "적용"을 클릭합니다. 그러면 선택한 통화 숫자가 특정 통화 단어로 변환됩니다.
Excel에서 통화 숫자를 단어로 변환하는 작업은 VBA 또는 Kutools for Excel을 사용하여 효율적으로 수행할 수 있습니다. 이러한 방법 중 하나를 구현하면 재무 보고를 자동화하고 수동 입력 오류를 제거할 수 있습니다. Excel 팁과 트릭을 더 탐구하고 싶다면, 당사 웹사이트에서는 Excel을 마스터하는 데 도움이 되는 수천 개의 자습서를 제공합니다.
데모: Kutools for Excel을 사용하여 통화 숫자를 단어로 변환
최고의 오피스 생산성 도구
🤖 | Kutools AI Aide: 지능형 실행을 기반으로 데이터 분석 혁신 지능형 실행 | 코드 생성 | 사용자 정의 수식 생성 | 데이터 분석 및 차트 생성 | Kutools Functions 호출… |
인기 기능: 중복 찾기, 강조 또는 중복 표시 | 빈 행 삭제 | 데이터 손실 없이 열 또는 셀 병합 | 반올림... | |
슈퍼 LOOKUP: 다중 조건 VLookup | 다중 값 VLookup | 다중 시트 조회 | 퍼지 매치 .... | |
고급 드롭다운 목록: 드롭다운 목록 신속 생성 | 의존형 드롭다운 목록 | 다중 선택 드롭다운 목록.... | |
열 매니저: 지정 개수 열 추가 | 열 이동 | 숨겨진 열 표시 상태 전환 | 범위 및 열 비교 ... | |
주요 기능: 그리드 포커스 | 디자인 보기 | 향상된 수식 표시줄 | 통합 문서 & 시트 관리 | 자동 텍스트 라이브러리 | 날짜 선택기 | 데이터 병합 | 셀 암호화/해독 | 목록별 이메일 보내기 | 슈퍼 필터 | 특수 필터 (굵게/이탤릭/취소선 필터...)... | |
Top15 도구 세트: 12개 텍스트 도구(텍스트 추가, 특정 문자 삭제, ...) | 50+ 차트 유형(간트 차트, ...) | 40+ 실용 수식(생일을 기반으로 나이 계산, ...) | 19개 삽입 도구(QR 코드 삽입, 경로에서 그림 삽입, ...) | 12개 변환 도구(단어로 변환하기, 통화 변환, ...) | 7개 병합 & 분할 도구(고급 행 병합, 셀 분할, ...) | ... 그리고 그 외 |
Kutools for Excel로 Excel 실력을 한 단계 업그레이드하고, 그 어떤 때보다 뛰어난 효율성을 경험하세요. Kutools for Excel은300개 이상의 고급 기능을 제공하여 생산성을 높이고 저장 시간을 줄여줍니다. 가장 필요한 기능을 지금 바로 확인하세요...
Office Tab이 오피스에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다
- Word, Excel, PowerPoint에서 탭 기반 편집과 읽기를 활성화합니다.
- 여러 문서를 새 창이 아닌 동일한 창의 새 탭에서 열고 생성하세요.
- 생산성이50% 향상되며, 매일 수백 번의 마우스 클릭을 줄일 수 있습니다!