Excel에서 인도 루피로 숫자를 단어로 변환하는 방법은 무엇입니까?
숫자를 단어로 변환하는 것은 특히 송장이나 수표와 같은 금융 문서를 준비할 때 일반적인 요구사항입니다. Excel에는 숫자를 단어로 변환하는 내장 함수가 없지만, VBA를 사용하여 이를 수행할 수 있습니다. 다음은 인도 루피 또는 기타 통화로 숫자를 단어로 변환하기 위한 단계별 가이드입니다.
VBA 코드를 사용하여 인도 루피로 숫자를 단어로 변환
놀라운 기능을 사용하여 영어 달러 또는 다른 통화로 숫자를 단어로 변환
VBA 코드를 사용하여 인도 루피로 숫자를 단어로 변환
다음 VBA 코드는 루피로 숫자를 단어로 변환하는 데 도움이 될 수 있습니다. 아래와 같이 진행하십시오:
1. 'ALT' + 'F11' 키를 눌러 'Microsoft Visual Basic for Applications' 창을 엽니다.
2. '삽입' > '모듈'을 클릭하고, '모듈' 창에 다음 코드를 붙여넣습니다.
VBA 코드: 루피로 숫자를 단어로 변환
Public Function RupeeFormat(SNum As String)
'Updateby Extendoffice
Dim xDPInt As Integer
Dim xArrPlace As Variant
Dim xRStr_Paisas As String
Dim xNumStr As String
Dim xF As Integer
Dim xTemp As String
Dim xStrTemp As String
Dim xRStr As String
Dim xLp As Integer
xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "")
On Error Resume Next
If SNum = "" Then
RupeeFormat = ""
Exit Function
End If
xNumStr = Trim(str(SNum))
If xNumStr = "" Then
RupeeFormat = ""
Exit Function
End If
xRStr = ""
xLp = 0
If (xNumStr > 999999999.99) Then
RupeeFormat = "Digit excced Maximum limit"
Exit Function
End If
xDPInt = InStr(xNumStr, ".")
If xDPInt > 0 Then
If (Len(xNumStr) - xDPInt) = 1 Then
xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2))
ElseIf (Len(xNumStr) - xDPInt) > 1 Then
xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2))
End If
xNumStr = Trim(Left(xNumStr, xDPInt - 1))
End If
xF = 1
Do While xNumStr <> ""
If (xF >= 2) Then
xTemp = Right(xNumStr, 2)
Else
If (Len(xNumStr) = 2) Then
xTemp = Right(xNumStr, 2)
ElseIf (Len(xNumStr) = 1) Then
xTemp = Right(xNumStr, 1)
Else
xTemp = Right(xNumStr, 3)
End If
End If
xStrTemp = ""
If Val(xTemp) > 99 Then
xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp)
If Right(Trim(xStrTemp), 3) <> "Lac" Then
xLp = xLp + 1
End If
ElseIf Val(xTemp) <= 99 And Val(xTemp) > 9 Then
xStrTemp = RupeeFormat_GetT(Right(xTemp, 2))
ElseIf Val(xTemp) < 10 Then
xStrTemp = RupeeFormat_GetD(Right(xTemp, 2))
End If
If xStrTemp <> "" Then
xRStr = xStrTemp & xArrPlace(xF) & xRStr
End If
If xF = 2 Then
If Len(xNumStr) = 1 Then
xNumStr = ""
Else
xNumStr = Left(xNumStr, Len(xNumStr) - 2)
End If
ElseIf xF = 3 Then
If Len(xNumStr) >= 3 Then
xNumStr = Left(xNumStr, Len(xNumStr) - 2)
Else
xNumStr = ""
End If
ElseIf xF = 4 Then
xNumStr = ""
Else
If Len(xNumStr) <= 2 Then
xNumStr = ""
Else
xNumStr = Left(xNumStr, Len(xNumStr) - 3)
End If
End If
xF = xF + 1
Loop
If xRStr = "" Then
xRStr = "No Rupees"
Else
xRStr = " Rupees " & xRStr
End If
If xRStr_Paisas <> "" Then
xRStr_Paisas = " and " & xRStr_Paisas & " Paisas"
End If
RupeeFormat = xRStr & xRStr_Paisas & " Only"
End Function
Function RupeeFormat_GetH(xStrH As String, xLp As Integer)
Dim xRStr As String
If Val(xStrH) < 1 Then
RupeeFormat_GetH = ""
Exit Function
Else
xStrH = Right("000" & xStrH, 3)
If Mid(xStrH, 1, 1) <> "0" Then
If (xLp > 0) Then
xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac "
Else
xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred "
End If
End If
If Mid(xStrH, 2, 1) <> "0" Then
xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2))
Else
xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3))
End If
End If
RupeeFormat_GetH = xRStr
End Function
Function RupeeFormat_GetT(xTStr As String)
Dim xTArr1 As Variant
Dim xTArr2 As Variant
Dim xRStr As String
xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
Result = ""
If Val(Left(xTStr, 1)) = 1 Then
xRStr = xTArr1(Val(Mid(xTStr, 2, 1)))
Else
If Val(Left(xTStr, 1)) > 0 Then
xRStr = xTArr2(Val(Left(xTStr, 1)) - 1)
End If
xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1))
End If
RupeeFormat_GetT = xRStr
End Function
Function RupeeFormat_GetD(xDStr As String)
Dim xArr_1() As Variant
xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "")
If Val(xDStr) > 0 Then
RupeeFormat_GetD = xArr_1(Val(xDStr) - 1)
Else
RupeeFormat_GetD = ""
End If
End Function
3. 코드를 삽입한 후, 코드 창을 저장하고 닫고, 워크시트로 돌아가서 빈 셀에 다음 수식을 입력한 다음, 채우기 핸들을 아래로 드래그하여 이 수식을 다른 셀에 적용합니다. 그러면 모든 숫자가 루피로 표시됩니다.
=RupeeFormat(A2)
놀라운 기능을 사용하여 영어 달러 또는 다른 통화로 숫자를 단어로 변환
'Kutools for Excel'로 Excel 작업을 간소화하고 생산성을 향상시키세요. 'Kutools for Excel'은 40개 이상의 통화 변환 옵션을 제공하는 강력한 기능인 'Numbers to Words'를 제공하며, 몇 번의 클릭만으로 숫자를 중국 위안, 영어 달러 또는 기타 통화 단어로 신속하게 변환할 수 있습니다.
Kutools for Excel 설치 후, 다음과 같이 진행하세요:
1. 변환하려는 숫자 목록을 선택하고, 'Kutools' > '텍스트' > '단어로 변환하기'를 클릭합니다.
2. '단어로 변환하기' 대화 상자에서 '언어' 섹션에서 하나의 통화 옵션을 선택합니다. 스크린샷을 참조하세요:
3. 그런 다음 '확인' 버튼을 클릭하면 선택된 숫자가 필요한 특정 통화 단어로 변환됩니다.
지금 Kutools for Excel 다운로드 및 무료 체험하기!
최고의 오피스 생산성 도구
Kutools for Excel은 대부분의 문제를 해결하고 생산성을 80% 향상시킵니다.
- 슈퍼 수식 표시줄 (여러 줄의 텍스트와 수식을 쉽게 편집); 읽기 레이아웃 (대량의 셀을 쉽게 읽고 편집); 필터링된 범위에 붙여넣기...
- 데이터를 유지하면서 셀/행/열 병합; 셀 내용 분할; 중복 행 병합 및 합계/평균 내기... 중복 셀 방지; 범위 비교하기...
- 중복 또는 고유한 행 선택; 빈 행 선택 (모든 셀이 비어 있음); 여러 워크북에서 슈퍼 찾기 및 퍼지 찾기; 랜덤 선택...
- 수식 참조를 변경하지 않고 여러 셀 정확히 복사; 여러 시트에 자동으로 참조 생성; 글머리 기호, 체크 박스 등 삽입...
- 즐겨찾는 수식, 범위, 차트 및 그림을 빠르게 삽입; 비밀번호로 셀 암호화; 메일링 목록 생성 및 이메일 보내기...
- 텍스트 추출, 텍스트 추가, 특정 위치에서 문자 제거, 공백 제거; 데이터 페이지 통계 생성 및 인쇄; 셀 내용과 의견 간 변환...
- 슈퍼 필터 (다른 시트에 필터 구성 저장 및 적용); 월/주/일별 고급 정렬, 발생 빈도 등; 굵게, 기울임꼴로 특수 필터...
- 워크북 및 워크시트 병합; 기본 열을 기준으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
- 주차 번호, 요일 등으로 피벗 테이블 그룹화... 잠금 해제된 셀, 잠긴 셀을 다른 색상으로 표시; 수식/이름이 있는 셀 강조 표시...

- Word, Excel, PowerPoint, Publisher, Access, Visio 및 Project에서 탭 편집 및 읽기를 활성화합니다.
- 새 창 대신 동일한 창의 새 탭에서 여러 문서를 열고 생성합니다.
- 생산성을 50% 향상시키고 매일 수백 번의 마우스 클릭을 줄입니다!
