Excel 에서 인도 루피 및 기타 통화로 단어로 변환하기 변환하기(2025 에디션)
Excel 에서 숫자를 인도 루피—또는 다른 통화—단어로 변환하는 방법은 다음과 같습니다。
청구서， 견적서， 세금 신고서， 수표 또는 지급 증서와 같은 재무 문서를 작성할 때 통화 금액을 숫자와 글자로 모두 표시해야 하는 경우가 많습니다。 이는 전문성을 더해주며 사기나 오해를 방지하는 데 도움이 됩니다。
예시
Microsoft Excel 에는 단어로 변환하기을(를) 변환하는 기본 제공 기능이 없지만， VBA， LAMBDA 함수 또는 통합형 Kutools for Excel 애드인을 통해 이를 효과적으로 구현할 수 있는 여러 가지 방법이 있습니다。
VBA 를 사용하여 인도 루피에서 단어로 변환하기 변환하기(모든 Microsoft 버전)
숫자를 USD， EUR 및 30+ 기타 통화로 변환하기(모든 Microsoft 버전)
VBA 를 사용하여 인도 루피에서 단어로 변환하기 변환하기(모든 Microsoft 버전)
모든 Excel 버전 사용자를 위해 VBA(Visual Basic for Applications)는 숫자 금액을 인도식 숫자 체계(천， 라크， 크로어 등)를 사용해 단어로 변환할 수 있는 맞춤형 방법을 제공합니다。
단계 1。Alt+F11키를 눌러 VBA 편집기(Microsoft Visual Basic for Applications 창)를 엽니다。
단계 2。삽입>모듈로 이동합니다。
단계 3. 모듈에 VBA 코드를 붙여넣습니다。
인도 루피에서 숫자를 단어로 변환하기
Function ConvertToRupees(ByVal MyNumber)
'UpdatebyExtendoffice
Dim Units As String, SubUnits As String, TempStr As String
Dim DecimalPlace As Integer, Count As Integer
Dim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Lakh "
Place(4) = " Crore "
MyNumber = Trim(Str(MyNumber))
DecimalPlace = InStr(MyNumber, ".")
If DecimalPlace > 0 Then
SubUnits = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber <> ""
TempStr = GetHundreds(Right(MyNumber, 3))
If TempStr <> "" Then Units = TempStr & Place(Count) & Units
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
ConvertToRupees = "Rupees " & Application.WorksheetFunction.Trim(Units)
If SubUnits <> "" Then
ConvertToRupees = ConvertToRupees & " and " & SubUnits & " Paise"
End If
ConvertToRupees = ConvertToRupees & " Only"
End Function
Private Function 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
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function
Private Function GetTens(TensText)
Dim Result As String
If Val(Left(TensText, 1)) = 1 Then
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"
End Select
Else
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 "
End Select
Result = Result & GetDigit(Right(TensText, 1))
End If
GetTens = Result
End Function
Private 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 Select
End Function
단계 4. 저장 후 Excel 로 돌아갑니다。
단계 5. 셀을 선택하고 다음처럼 수식을 사용합니다。
누르기Enter키
💡팁： 이 방법은 소수점(파이사)을 지원하며 오프라인에서도 작동합니다。
VBA 사용의 한계점
- 워크북을 매크로 사용 파일(。xlsm)로 저장해야 합니다。
- 일부 환경에서는 보안 설정으로 인해 매크로가 차단될 수 있습니다。
다른 통화(USD， EUR 등)로 단어로 변환하기 변환하기
「달러」나 「유로」와 같은 다른 통화로 출력을 맞춤 설정하려면 VBA 함수 내 문자열 값을 조정할 수 있습니다。 아래는 더 단순하고 유연한 함수 버전입니다。
맞춤 통화용 유연한 VBA 코드 템플릿
'UpdatebyExtendoffice
Public Function NumberToWordsCustom(ByVal num As Double, Optional ByVal currency2 As String, Optional ByVal subCurrency As String) As String
Dim result As String
Dim dollars As Long
Dim cents As Long
dollars = Int(num)
cents = Round((num - dollars) * 100)
If Len(currency2) = 0 Then currency2 = "Dollars"
If Len(subCurrency) = 0 Then subCurrency = "Cents"
result = currency2 & " " & SpellNumber_English(dollars)
If cents > 0 Then
result = result & " and " & SpellNumber_English(cents) & " " & subCurrency
End If
NumberToWordsCustom = result & " Only"
End Function
Private Function SpellNumber_English(ByVal MyNumber As Long) As String
Dim Units As Variant, Tens As Variant, Teens As Variant
Dim Place() As String
Dim TempStr As String
Dim Count As Integer
Dim t As String
Dim StrNumber As String
Dim n As Integer
Place = Split(" Thousand Million Billion", " ")
Units = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")
Tens = Array("", "", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
Teens = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
StrNumber = Trim(Str(MyNumber))
Count = 0
Do While StrNumber <> ""
n = Val(Right(StrNumber, 3))
If n <> 0 Then
t = ConvertHundreds(n, Units, Tens, Teens)
If Count > 0 Then t = t & " " & Place(Count - 1)
TempStr = t & " " & TempStr
End If
If Len(StrNumber) > 3 Then
StrNumber = Left(StrNumber, Len(StrNumber) - 3)
Else
StrNumber = ""
End If
Count = Count + 1
Loop
SpellNumber_English = Trim(TempStr)
End Function
Private Function ConvertHundreds(ByVal n As Integer, Units As Variant, Tens As Variant, Teens As Variant) As String
Dim result As String
If n >= 100 Then
result = Units(Int(n / 100)) & " Hundred "
n = n Mod 100
End If
If n >= 20 Then
result = result & Tens(Int(n / 10)) & " "
n = n Mod 10
ElseIf n >= 10 Then
result = result & Teens(n - 10) & " "
n = 0
End If
If n > 0 Then
result = result & Units(n)
End If
ConvertHundreds = Trim(result)
End Function
예시 VBA 수식：
다른 통화의 예시 VBA 수식：
=NumberToWordsCustom(A2, 「Euros」, 「Cents」)
=NumberToWordsCustom(A2, 「Pounds」, 「Pence」)
이 코드는 유연합니다。 원하는 통화와 하위 단위만 전달하면 됩니다。
워크북을 매크로 사용 파일로 저장하기
VBA 를 사용하는 경우 반드시 매크로 사용 워크북으로 저장해야 합니다。 그렇지 않으면 파일을 닫을 때 코드가 사라집니다。
단계 1。파일>다른 이름으로 저장
단계 2. 위치를 선택하고 다음을 고릅니다。Excel 매크로 사용 워크북(*。xlsm).
단계 3。저장을(를) 클릭합니다。
✅ 이제 =ConvertToRupees(A2)와 같은 맞춤 함수가 유지되어 언제든지 재사용할 수 있습니다。
LAMBDA 함수를 사용하여 인도 루피에서 단어로 변환하기 변환하기(Microsoft 365 전용)
Excel 365 사용자의 경우 코드 없이도 사용자 지정 수식을(를) 정의할 수 있는 새로운 Excel 기능인 LAMBDA 를 사용할 수 있습니다。
🪄 LAMBDA 란 무엇인가요？
LAMBDA 는 SUM 이나 IF 와 같은 기본 제공 함수처럼 자체 맞춤 함수를 수식만으로 생성할 수 있게 해주는 Excel 기능입니다。 코드나 매크로가 전혀 필요 없으며 반복적인 논리를 단순화하고 스프레드시트를 더 깔끔하고 유지보수하기 쉽게 만들어줍니다。
단계 1: 이름 관리자으로 이동하여 클릭하세요。수식>이름 관리자.
단계 2: 새 이름을(를) 만듭니다。
클릭새로 만들기버튼。
이름Name을(를) 입력하세요。
예： RupeeToWords
단계 3: 이 LAMBDA 수식을 다음에 붙여넣으세요。참조 위치필드：
=LAMBDA(n, LET( units, {「」,「One」,「Two」,「Three」,「Four」,「Five」,「Six」,「Seven」,「Eight」,「Nine」}, teens, {「Ten」,「Eleven」,「Twelve」,「Thirteen」,「Fourteen」,「Fifteen」,「Sixteen」,「Seventeen」,「Eighteen」,「Nineteen」}, tens, {「」,「」,「Twenty」,「Thirty」,「Forty」,「Fifty」,「Sixty」,「Seventy」,「Eighty」,「Ninety」}, num, INT(n), paise, ROUND((n - INT(n)) * 100, 0), ConvertTwo, LAMBDA([[PH_2]], IF([[PH_2]]0, 「 」 & INDEX(units, MOD([[PH_2]],10)+1), 「」) ) ) ), ConvertThree, LAMBDA(x, IF(x=0, 「」, IF([[PH_2]]0, 「 」 & ConvertTwo(MOD([[PH_2]],100)), 「」) ) ) ), words, IF(num=0, 「Zero」, TEXTJOIN(「 」, TRUE, IF(INT(num/10000000)>0, ConvertTwo(INT(num/10000000)) & 「 Crore」, 「」), IF(MOD(INT(num/100000),100)>0, ConvertTwo(INT(MOD(num,10000000)/100000)) & 「 Lakh」, 「」), IF(MOD(INT(num/1000),100)>0, ConvertTwo(INT(MOD(num,100000)/1000)) & 「 Thousand」, 「」), IF(MOD(INT(num/100),10)>0, INDEX(units, INT(MOD(num,1000)/100)+1) & 「 Hundred」, 「」), IF(MOD(num,100)>0, ConvertTwo(MOD(num,100)), 「」) ) ), result, 「Rupees 」 & words & IF(paise>0, 「 and 」 & ConvertTwo(paise) & 「 Paise」, 「」) & 「 Only」, result ))클릭확인하여 새 이름을(를) 저장합니다。
단계 3. 이름 관리자을(를) 닫고 Excel 로 돌아갑니다。
단계 4. 다음처럼 아무 셀에서나 수식을 사용합니다。
누르기Enter키。
👀 전체 LAMBDA 함수 코드는 크로어， 라크， 천 단위와 소수점을 모두 처리합니다。
숫자를 USD， EUR 및 30+ 기타 통화로 변환하기(모든 Microsoft 버전)
가장 효율적이고 전문적인 솔루션을 원한다면 다음을 사용하세요。Kutools for Excel 의 단어로 변환하기。 이 강력한 도구는 다음을 지원합니다。
🌍 30 개 이상의 통화 지원(다음 포함)：
- 미국 달러(USD)
- 유로(EUR)
- 중국 위안(CNY)
- 영국 파운드(GBP)
- 등
단계 1. 변환할 셀을 선택합니다。
단계 2. 다음으로 이동합니다。Kutools>콘텐츠>단어로 변환하기
단계 3. 대상 통화를 선택하고 확인을 클릭합니다。
숫자가 지정된 통화로 변환됩니다。
😁팁： 단어로 변환하기을(를) 직접 변환하려면 통화로 변환하지 않음 옵션을 선택하세요。 그러면 결과가 다음과 같이 표시됩니다。
각 방법을 언제 사용해야 할까요
유연하고 프로그래밍 가능한 솔루션이 필요하고 매크로에 익숙하다면 VBA 를 사용하세요。
- Excel 365 을(를) 사용 중이고 가끔씩만 인도 루피 값을 변환해야 한다면 LAMBDA 를 사용하세요。 이는 매크로나 외부 도구 없이도 가볍고 공유 가능한 솔루션으로， 간단하거나 개인적인 작업에 적합합니다。
- Kutools for Excel 을(를) 사용하면 코드 없이도 가장 쉽고 빠르며 다재다능한 솔루션을 얻을 수 있습니다. 특히 다음과 같은 경우 Kutools 가 유용합니다。
- 여러 통화를 다루고 있습니다。
- 대량 또는 대규모 데이터셋의 값을 변환해야 합니다。
- 매크로 없이도 사용할 수 있고 전문가 수준의 준비가 된 도구를 원합니다。 30+ 통화 옵션과 AI 기반 성능을 갖춘 도구 말입니다。
최고의 Office 생산성 도구
| 🤖 | KUTOOLS AI 도우미： 다음을 기반으로 데이터 분석 혁신하기：지능형 실행 | 코드 생성| 사용자 지정 수식 생성 | 데이터 분석 및 차트 생성| 향상된 함수 호출… |
| 인기 기능:찾기， 강조 표시 또는 중복 표시 | 빈 행 삭제 | 데이터 손실 없이 열 결합 또는 셀 제거 | 공식을 사용하지 않는 반올림... | |
| 슈퍼 LOOKUP:다중 조건 VLookup | 다중 값 VLookup | 여러 시트에서 VLookup | 퍼지 매치.... | |
| 고급 드롭다운 목록:드롭다운 목록 빠르게 생성 | 종속형 드롭다운 목록 | 다중 선택 드롭다운 목록.... | |
| 열 관리자:특정 수의 열 추가|열 이동|숨겨진 열의 표시 상태 전환|범위 및 열 비교... | |
| 주요 기능:그리드 포커스 | 디자인 보기 |향상된 수식 표시줄 | 워크북 및 시트 관리자 | 자원 라이브러리(자동 텍스트)| 날짜 선택기 | 워크시트 병합 | 암호화/셀 해독 | 목록으로 이메일 보내기 | 슈퍼 필터 | 특수 필터(굵은 글꼴이 있는 셀 필터링/기울임꼴/취소선。。。) 。。。 | |
| 상위 15 도구 모음:12 텍스트도구(텍스트 추가,특정 문자 삭제, ...)| 50+차트유형(간트 차트, ...)| 40+ 실용적인수식(생일을 기준으로 나이 계산, ...)| 19 삽입도구(QR 코드 삽입,경로에서 그림 삽입, ...)| 12 변환도구(단어로 변환하기,환율 변환, ...)| 7 병합 및 분할도구(고급 행 병합,셀 분할, ...)|그 외 더 많은 기능 |
Kutools for Excel 로 Excel 역량을 한 단계 업그레이드하고 전례 없는 효율성을 경험하세요。Kutools for Excel 는 생산성과 저장 시간을 향상시키는 300 개 이상의 고급 기능을 제공합니다。가장 필요한 기능을 지금 바로 확인하세요。。。
Office Tab 가 Office 에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만들어 줍니다
- Word, Excel, PowerPoint 에서 탭 기반 편집 및 읽기 기능을 활성화합니다, Publisher, Access, Visio 및 Project 에서도 사용 가능합니다。
- 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 생성할 수 있습니다。
- 50% 만큼 생산성을 높이고 매일 수백 번의 마우스 클릭을 줄여줍니다！
모든 Kutools 애드인。 하나의 설치 프로그램
Kutools for Office스위트 번들은 Excel, Word, Outlook 및 PowerPoint 용 애드인과 Office Tab Pro 를 포함하며， 다양한 Office 앱을 사용하는 팀에 이상적입니다。
- 올인원 스위트— Excel， Word， Outlook 및 PowerPoint 애드인 + Office Tab Pro
- 하나의 설치 프로그램， 하나의 라이선스— 몇 분 안에 설정 완료(MSI 지원)
- 함께 사용할수록 더 효과적입니다— Office 앱 전반에서 생산성 향상
- 30 일간 모든 기능 무료 체험— 등록이나 신용카드 필요 없음
- 최고의 가성비— 개별 애드인 구매 대비 절약