Skip to main content

Excel에서 인도 루피로 숫자를 단어로 변환하는 방법은 무엇입니까?

Author: Xiaoyang Last Modified: 2025-05-20

숫자를 단어로 변환하는 것은 특히 송장이나 수표와 같은 금융 문서를 준비할 때 일반적인 요구사항입니다. 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)

apply a formula to get the result


놀라운 기능을 사용하여 영어 달러 또는 다른 통화로 숫자를 단어로 변환

'Kutools for Excel'로 Excel 작업을 간소화하고 생산성을 향상시키세요. 'Kutools for Excel'은 40개 이상의 통화 변환 옵션을 제공하는 강력한 기능인 'Numbers to Words'를 제공하며, 몇 번의 클릭만으로 숫자를 중국 위안, 영어 달러 또는 기타 통화 단어로 신속하게 변환할 수 있습니다.

Kutools for Excel은 300개 이상의 고급 기능을 제공하여 복잡한 작업을 간소화하고 창의성과 효율성을 향상시킵니다. AI 기능과 통합되어 Kutools는 정확하게 작업을 자동화하며, 데이터 관리를 손쉽게 만듭니다. Kutools for Excel의 상세 정보...무료 체험하기...

Kutools for Excel 설치 후, 다음과 같이 진행하세요:

1. 변환하려는 숫자 목록을 선택하고, 'Kutools' > '텍스트' > '단어로 변환하기'를 클릭합니다.

click Numbers to Words feature of kutools

2. '단어로 변환하기' 대화 상자에서 '언어' 섹션에서 하나의 통화 옵션을 선택합니다. 스크린샷을 참조하세요:

specify options in the dialog box

3. 그런 다음 '확인' 버튼을 클릭하면 선택된 숫자가 필요한 특정 통화 단어로 변환됩니다.

get the result by kutools

지금 Kutools for Excel 다운로드 및 무료 체험하기!



  • 슈퍼 수식 표시줄 (여러 줄의 텍스트와 수식을 쉽게 편집); 읽기 레이아웃 (대량의 셀을 쉽게 읽고 편집); 필터링된 범위에 붙여넣기...
  • 데이터를 유지하면서 셀/행/열 병합; 셀 내용 분할; 중복 행 병합 및 합계/평균 내기... 중복 셀 방지; 범위 비교하기...
  • 중복 또는 고유한 행 선택; 빈 행 선택 (모든 셀이 비어 있음); 여러 워크북에서 슈퍼 찾기 및 퍼지 찾기; 랜덤 선택...
  • 수식 참조를 변경하지 않고 여러 셀 정확히 복사; 여러 시트에 자동으로 참조 생성; 글머리 기호, 체크 박스 등 삽입...
  • 즐겨찾는 수식, 범위, 차트 및 그림을 빠르게 삽입; 비밀번호로 셀 암호화; 메일링 목록 생성 및 이메일 보내기...
  • 텍스트 추출, 텍스트 추가, 특정 위치에서 문자 제거, 공백 제거; 데이터 페이지 통계 생성 및 인쇄; 셀 내용과 의견 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성 저장 및 적용); 월/주/일별 고급 정렬, 발생 빈도 등; 굵게, 기울임꼴로 특수 필터...
  • 워크북 및 워크시트 병합; 기본 열을 기준으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 주차 번호, 요일 등으로 피벗 테이블 그룹화... 잠금 해제된 셀, 잠긴 셀을 다른 색상으로 표시; 수식/이름이 있는 셀 강조 표시...
kte tab 201905
  • Word, Excel, PowerPoint, Publisher, Access, Visio 및 Project에서 탭 편집 및 읽기를 활성화합니다.
  • 새 창 대신 동일한 창의 새 탭에서 여러 문서를 열고 생성합니다.
  • 생산성을 50% 향상시키고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab bottom