Note: The other languages of the website are Google-translated. Back to English

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

이 기사에서는 숫자 목록을 Excel에서 인도 루피 또는 영어 달러로 단어로 변환하는 방법을 소개합니다.

VBA 코드를 사용하여 숫자를 인도 루피의 단어로 변환

놀라운 기능으로 숫자를 영어 달러로 단어로 변환


VBA 코드를 사용하여 숫자를 인도 루피의 단어로 변환

다음 VBA 코드는 숫자를 루피 단어로 변환하는 데 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

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) 빈 셀에 넣은 다음 채우기 핸들을 아래로 끌어이 수식을 다른 셀에 적용합니다. 모든 숫자는 루피로 표시됩니다. 스크린 샷을 참조하십시오.


놀라운 기능으로 숫자를 영어 달러로 단어로 변환

숫자를 영어 달러의 단어로 변환하려면 Excel 용 Kutools숫자를 단어로 기능을 사용하면이 작업을 빠르고 쉽게 해결할 수 있습니다.

팁 :이것을 적용하려면 단어 수 먼저 기능을 다운로드해야합니다. Excel 용 Kutools을 클릭 한 다음 기능을 빠르고 쉽게 적용하십시오.

설치 후 Excel 용 Kutools, 다음과 같이하십시오.

1. 변환하려는 숫자 목록을 선택한 다음 쿠툴 > 내용 > 숫자를 단어로, 스크린 샷 참조 :

2. 에서 숫자를 통화 단어로 대화 상자에서 English 옵션에서 언어 섹션을 클릭 한 다음 Ok 버튼을 누르면 선택 항목의 숫자가 영어 통화 단어로 변환되었습니다. 스크린 샷 참조 :

Excel 용 Kutools 및 무료 평가판을 지금 다운로드하려면 클릭하십시오!

 


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

 

코멘트 (22)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
참조 셀에 밸브가 없으면 Excel이 충돌합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 사용자,
의견을 보내주셔서 감사합니다. 이 기사의 코드가 업데이트되었습니다. 다시 시도해 주세요. 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
선생님,

좋은 날,

나는 -100 -10,000 또는 (100) (10,000)과 같은 하이픈 빼기 값에서 작동하지 않는 위의 수식을 테스트했습니다.

선생님, 저는 지난 1년 동안 아래 코드를 사용하고 있는데 오늘 동일한 오류를 발견했습니다.

마이너스 -10,000 또는 (10,000)을 쓰면 "만 십만"이라고 표시됩니다.
내가 Positive 10,000을 쓸 때 그것은 훌륭하게 작동합니다. "Only Ten Thousand"

아래 예:

(10,000.99) 십만 및 99/100 리얄
10,000.99 만 및 99/100 리얄
(10,000,000.99) 99억 천만 및 100/XNUMX 리얄
10,000,000.99 천만 및 99/100 리얄
(10,000,000,000.99) 99억 및 100/XNUMX 리얄만
10,000,000,000.99 99억 및 100/XNUMX 리얄만
(10,000,000,000,000.90) 단 90조 및 100/XNUMX 리얄
10,000,000,000,000.90 단 90조 및 100/XNUMX 리얄

공식 = 철자법

내 VBA 코드:

'주요 기능
기능 SpellBilling(ByVal MyNumber)
딤 리얄, 할랄라, 템프
Dim DecimalPlace, 카운트
문자열로 ReDim Place(9)
장소(2) = "천"
장소(3) = "백만"
장소(4) = " 억 "
장소(5) = "조"
' 금액의 문자열 표현.
마이넘버 = 트림(Str(마이넘버))
' 없는 경우 소수점 이하 자릿수 0.
DecimalPlace = InStr(MyNumber, ".")
' 할랄라를 변환하고 MyNumber를 리얄 금액으로 설정합니다.
DecimalPlace > 0이면
할랄라 = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
END IF
개수 = 1
MyNumber <> "" 동안 수행
온도 = GetHundreds(Right(MyNumber, 3))
If Temp <> "" then 리얄 = Temp & Place(Count) & 리얄
Len(MyNumber) > 3이면
MyNumber = 왼쪽(MyNumber, Len(MyNumber) - 3)
다른
내 번호 = ""
END IF
카운트 = 카운트 + 1
고리
케이스 리얄 선택
사례 ""
리얄 = "리얄 없음"
케이스 "하나"
리얄 = "하나의 리얄"
아니면 케이스
리얄 = "만" & 리얄
리얄 = 리얄 & ""
선택 종료
케이스 선택
사례 ""
할랄라 = " & 00/00 리얄"
케이스 "하나"
할랄라 = " & 01/100 리얄"
케이스 "XNUMX"
할랄라 = " & 02/100 리얄"
케이스 "XNUMX"
할랄라 = " & 03/100 리얄"
케이스 "XNUMX"
할랄라 = " & 04/100 리얄"
사례 "다섯"
할랄라 = " & 05/100 리얄"
사례 "XNUMX"
할랄라 = " & 06/100 리얄"
케이스 "세븐"
할랄라 = " & 07/100 리얄"
케이스 "XNUMX"
할랄라 = " & 08/100 리얄"
케이스 "나인"
할랄라 = " & 09/100 리얄"
케이스 "텐"
할랄라 = " & 10/100 리얄"
케이스 "일레븐"
할랄라 = " & 11/100 리얄"
케이스 "XNUMX"
할랄라 = " & 12/100 리얄"
케이스 "십삼"
할랄라 = " & 13/100 리얄"
케이스 "십사"
할랄라 = " & 14/100 리얄"
사건 "열다섯"
할랄라 = " & 15/100 리얄"
사례 "열여섯"
할랄라 = " & 16/100 리얄"
케이스 "세븐틴"
할랄라 = " & 17/100 리얄"
케이스 "열여덟"
할랄라 = " & 18/100 리얄"
케이스 "열아홉"
할랄라 = " & 19/100 리얄"
케이스 "스물"
할랄라 = " & 20/100 리얄"
케이스 "스물하나"
할랄라 = " & 21/100 리얄"
케이스 "스물 둘"
할랄라 = " & 22/100 리얄"
케이스 "스물셋"
할랄라 = " & 23/100 리얄"
케이스 "스물넷"
할랄라 = " & 24/100 리얄"
케이스 "스물 다섯"
할랄라 = " & 25/100 리얄"
케이스 "스물 여섯"
할랄라 = " & 26/100 리얄"
케이스 "스물 일곱"
할랄라 = " & 27/100 리얄"
케이스 "스물 여덟"
할랄라 = " & 28/100 리얄"
케이스 "스물 아홉"
할랄라 = " & 29/100 리얄"
케이스 "서른"
할랄라 = " & 30/100 리얄"
케이스 "서른 하나"
할랄라 = " & 31/100 리얄"
케이스 "서른 둘"
할랄라 = " & 32/100 리얄"
케이스 "서른셋"
할랄라 = " & 33/100 리얄"
사례 "서른 넷"
할랄라 = " & 34/100 리얄"
사례 "서른 다섯"
할랄라 = " & 35/100 리얄"
사례 "서른여섯"
할랄라 = " & 36/100 리얄"
케이스 "서른일곱"
할랄라 = " & 37/100 리얄"
케이스 "서른여덟"
할랄라 = " & 38/100 리얄"
케이스 "서른아홉"
할랄라 = " & 39/100 리얄"
케이스 "사십"
할랄라 = " & 40/100 리얄"
케이스 "마흔 하나"
할랄라 = " & 41/100 리얄"
케이스 "마흔두"
할랄라 = " & 42/100 리얄"
케이스 "마흔셋"
할랄라 = " & 43/100 리얄"
케이스 "XNUMX"
할랄라 = " & 44/100 리얄"
케이스 "포티 파이브"
할랄라 = " & 45/100 리얄"
케이스 "포티 식스"
할랄라 = " & 46/100 리얄"
케이스 "포티 세븐"
할랄라 = " & 47/100 리얄"
케이스 "마흔 여덟"
할랄라 = " & 48/100 리얄"
케이스 "마흔아홉"
할랄라 = " & 49/100 리얄"
케이스 "XNUMX"
할랄라 = " & 50/100 리얄"
케이스 "피프티원"
할랄라 = " & 51/100 리얄"
사례 "XNUMX"
할랄라 = " & 52/100 리얄"
사례 "XNUMX"
할랄라 = " & 53/100 리얄"
사례 "XNUMX"
할랄라 = " & 54/100 리얄"
케이스 "피프티 파이브"
할랄라 = " & 55/100 리얄"
케이스 "Fifty Six"
할랄라 = " & 56/100 리얄"
케이스 "피프티 세븐"
할랄라 = " & 57/100 리얄"
케이스 "피프티 에이트"
할랄라 = " & 58/100 리얄"
케이스 "쉰아홉"
할랄라 = " & 59/100 리얄"
케이스 "Sixty"
할랄라 = " & 60/100 리얄"
사례 "예순한"
할랄라 = " & 61/100 리얄"
사례 "예순이"
할랄라 = " & 62/100 리얄"
사례 "예순 셋"
할랄라 = " & 63/100 리얄"
사례 "예순 XNUMX"
할랄라 = " & 64/100 리얄"
사례 "식스티 파이브"
할랄라 = " & 65/100 리얄"
사례 "Sixty Six"
할랄라 = " & 66/100 리얄"
케이스 "식스티세븐"
할랄라 = " & 67/100 리얄"
사례 "예순 여덟"
할랄라 = " & 68/100 리얄"
사례 "식스티 나인"
할랄라 = " & 69/100 리얄"
케이스 "일곱"
할랄라 = " & 70/100 리얄"
케이스 "일곱 XNUMX"
할랄라 = " & 71/100 리얄"
사건 "일흔두"
할랄라 = " & 72/100 리얄"
사례 "일흔셋"
할랄라 = " & 73/100 리얄"
케이스 "일곱 XNUMX"
할랄라 = " & 74/100 리얄"
케이스 "Seventy Five"
할랄라 = " & 75/100 리얄"
케이스 "Seventy Six"
할랄라 = " & 76/100 리얄"
케이스 "세븐티 세븐"
할랄라 = " & 77/100 리얄"
케이스 "일곱 여덟"
할랄라 = " & 78/100 리얄"
사건 "일흔아홉"
할랄라 = " & 79/100 리얄"
케이스 "XNUMX"
할랄라 = " & 80/100 리얄"
케이스 "에이티 원"
할랄라 = " & 81/100 리얄"
사례 "XNUMX"
할랄라 = " & 82/100 리얄"
사례 "XNUMX"
할랄라 = " & 83/100 리얄"
사례 "XNUMX"
할랄라 = " & 84/100 리얄"
사례 "에이티 파이브"
할랄라 = " & 85/100 리얄"
케이스 "에이티 식스"
할랄라 = " & 86/100 리얄"
케이스 "에이티세븐"
할랄라 = " & 87/100 리얄"
케이스 "에이티에이트"
할랄라 = " & 88/100 리얄"
케이스 "XNUMX"
할랄라 = " & 89/100 리얄"
케이스 "나인티"
할랄라 = " & 90/100 리얄"
케이스 "나인티 원"
할랄라 = " & 91/100 리얄"
케이스 "나인티 투"
할랄라 = " & 92/100 리얄"
케이스 "아흔셋"
할랄라 = " & 93/100 리얄"
케이스 "나인티 포"
할랄라 = " & 94/100 리얄"
케이스 "나인티파이브"
할랄라 = " & 95/100 리얄"
케이스 "나인티 식스"
할랄라 = " & 96/100 리얄"
케이스 "나인티 세븐"
할랄라 = " & 97/100 리얄"
케이스 "나인티 에이트"
할랄라 = " & 98/100 리얄"
케이스 "나인티 나인"
할랄라 = " & 99/100 리얄"


아니면 케이스
할랄라 = " & " & 할랄라 & " 할랄라 "
선택 종료
SpellBilling = 리얄 및 할랄라
최종 기능


' 100-999 사이의 숫자를 텍스트로 변환
함수 GetHundreds(ByVal MyNumber)
문자열로 희미한 결과
Val(MyNumber) = 0이면 함수 종료
MyNumber = Right("000" & MyNumber, 3)
' 백 자리를 변환합니다.
If Mid(MyNumber, 1, 1) <> "0" 다음
결과 = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
END IF
' 십과 일의 자리를 변환합니다.
If Mid(MyNumber, 2, 1) <> "0" 다음
결과 = 결과 및 GetTens(Mid(MyNumber, 2))
다른
결과 = 결과 및 GetDigit(Mid(MyNumber, 3))
END IF
GetHundreds = 결과
최종 기능

' 10에서 99까지의 숫자를 텍스트로 변환합니다.
함수 GetTens(TensText)
문자열로 희미한 결과
Result = "" ' 임시 함수 값을 무효화합니다.
If Val(Left(TensText, 1)) = 1 Then ' 값이 10-19 사이이면...
대소문자 선택(TensText)
사례 10: 결과 = "XNUMX"
사례 11: 결과 = "일레븐"
사례 12: 결과 = "XNUMX"
사례 13: 결과 = "XNUMX"
사례 14: 결과 = "XNUMX"
사례 15: 결과 = "XNUMX"
사례 16: 결과 = "XNUMX"
사례 17: 결과 = "세븐틴"
사례 18: 결과 = "XNUMX"
사례 19: 결과 = "XNUMX"
아니면 케이스
선택 종료
Else ' 값이 20-99 사이인 경우...
대소문자 선택(Left(TensText, 1))
사례 2: 결과 = "XNUMX"
사례 3: 결과 = "서른"
사례 4: 결과 = "XNUMX"
사례 5: 결과 = "XNUMX"
사례 6: 결과 = "XNUMX"
사례 7: 결과 = "일곱"
사례 8: 결과 = "XNUMX"
사례 9: 결과 = "Ninety"
아니면 케이스
선택 종료
결과 = 결과 및 GetDigit _
(Right(TensText, 1)) ' 한 자리를 검색합니다.
END IF
GetTens = 결과
최종 기능

' 1에서 9까지의 숫자를 텍스트로 변환합니다.
함수 GetDigit(숫자)
대소문자 선택(숫자)
사례 1: GetDigit = "하나"
사례 2: GetDigit = "XNUMX"
사례 3: GetDigit = "XNUMX"
사례 4: GetDigit = "XNUMX"
사례 5: GetDigit = "XNUMX"
사례 6: GetDigit = "XNUMX"
사례 7: GetDigit = "XNUMX"
사례 8: GetDigit = "XNUMX"
사례 9: GetDigit = "XNUMX"
다른 경우: GetDigit = ""
선택 종료
최종 기능
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
말할 것이 아무것도 없어! 익스트림 슈퍼
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
선생님,

좋은 날,
VBA 코드를 테스트했지만 불행히도 -100 -10,000 / (100) (10,000)과 같은 음수/음수 값에서는 제대로 작동하지 않습니다.

선생님, 저는 지난 1년 동안 아래 코드를 사용하고 있으며 오늘 귀하의 VBA 코드에서도 발견되는 동일한 오류를 발견했습니다.

마이너스 -10,000을 쓰면 "Only Hundred Ten Thousand"에 표시됩니다.
양수 10,000을 쓰면 "Only Ten Thousand"에 제대로 표시됩니다.

아래 예:

(10,000.99) 십만 및 99/100 리얄
10,000.99 만 및 99/100 리얄
(10,000,000.99) 99억 천만 및 100/XNUMX 리얄
10,000,000.99 천만 및 99/100 리얄
(10,000,000,000.99) 99억 및 100/XNUMX 리얄만
10,000,000,000.99 99억 및 100/XNUMX 리얄만
(10,000,000,000,000.90) 단 90조 및 100/XNUMX 리얄
10,000,000,000,000.90 단 90조 및 100/XNUMX 리얄

공식 = 철자법

내 VBA 코드:

'주요 기능
기능 SpellBilling(ByVal MyNumber)
딤 리얄, 할랄라, 템프
Dim DecimalPlace, 카운트
문자열로 ReDim Place(9)
장소(2) = "천"
장소(3) = "백만"
장소(4) = " 억 "
장소(5) = "조"
' 금액의 문자열 표현.
마이넘버 = 트림(Str(마이넘버))
' 없는 경우 소수점 이하 자릿수 0.
DecimalPlace = InStr(MyNumber, ".")
' 할랄라를 변환하고 MyNumber를 리얄 금액으로 설정합니다.
DecimalPlace > 0이면
할랄라 = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
END IF
개수 = 1
MyNumber <> "" 동안 수행
온도 = GetHundreds(Right(MyNumber, 3))
If Temp <> "" then 리얄 = Temp & Place(Count) & 리얄
Len(MyNumber) > 3이면
MyNumber = 왼쪽(MyNumber, Len(MyNumber) - 3)
다른
내 번호 = ""
END IF
카운트 = 카운트 + 1
고리
케이스 리얄 선택
사례 ""
리얄 = "리얄 없음"
케이스 "하나"
리얄 = "하나의 리얄"
아니면 케이스
리얄 = "만" & 리얄
리얄 = 리얄 & ""
선택 종료
케이스 선택
사례 ""
할랄라 = " & 00/00 리얄"
케이스 "하나"
할랄라 = " & 01/100 리얄"
케이스 "XNUMX"
할랄라 = " & 02/100 리얄"
케이스 "XNUMX"
할랄라 = " & 03/100 리얄"
케이스 "XNUMX"
할랄라 = " & 04/100 리얄"
사례 "다섯"
할랄라 = " & 05/100 리얄"
사례 "XNUMX"
할랄라 = " & 06/100 리얄"
케이스 "세븐"
할랄라 = " & 07/100 리얄"
케이스 "XNUMX"
할랄라 = " & 08/100 리얄"
케이스 "나인"
할랄라 = " & 09/100 리얄"
케이스 "텐"
할랄라 = " & 10/100 리얄"
케이스 "일레븐"
할랄라 = " & 11/100 리얄"
케이스 "XNUMX"
할랄라 = " & 12/100 리얄"
케이스 "십삼"
할랄라 = " & 13/100 리얄"
케이스 "십사"
할랄라 = " & 14/100 리얄"
사건 "열다섯"
할랄라 = " & 15/100 리얄"
사례 "열여섯"
할랄라 = " & 16/100 리얄"
케이스 "세븐틴"
할랄라 = " & 17/100 리얄"
케이스 "열여덟"
할랄라 = " & 18/100 리얄"
케이스 "열아홉"
할랄라 = " & 19/100 리얄"
케이스 "스물"
할랄라 = " & 20/100 리얄"
케이스 "스물하나"
할랄라 = " & 21/100 리얄"
케이스 "스물 둘"
할랄라 = " & 22/100 리얄"
케이스 "스물셋"
할랄라 = " & 23/100 리얄"
케이스 "스물넷"
할랄라 = " & 24/100 리얄"
케이스 "스물 다섯"
할랄라 = " & 25/100 리얄"
케이스 "스물 여섯"
할랄라 = " & 26/100 리얄"
케이스 "스물 일곱"
할랄라 = " & 27/100 리얄"
케이스 "스물 여덟"
할랄라 = " & 28/100 리얄"
케이스 "스물 아홉"
할랄라 = " & 29/100 리얄"
케이스 "서른"
할랄라 = " & 30/100 리얄"
케이스 "서른 하나"
할랄라 = " & 31/100 리얄"
케이스 "서른 둘"
할랄라 = " & 32/100 리얄"
케이스 "서른셋"
할랄라 = " & 33/100 리얄"
사례 "서른 넷"
할랄라 = " & 34/100 리얄"
사례 "서른 다섯"
할랄라 = " & 35/100 리얄"
사례 "서른여섯"
할랄라 = " & 36/100 리얄"
케이스 "서른일곱"
할랄라 = " & 37/100 리얄"
케이스 "서른여덟"
할랄라 = " & 38/100 리얄"
케이스 "서른아홉"
할랄라 = " & 39/100 리얄"
케이스 "사십"
할랄라 = " & 40/100 리얄"
케이스 "마흔 하나"
할랄라 = " & 41/100 리얄"
케이스 "마흔두"
할랄라 = " & 42/100 리얄"
케이스 "마흔셋"
할랄라 = " & 43/100 리얄"
케이스 "XNUMX"
할랄라 = " & 44/100 리얄"
케이스 "포티 파이브"
할랄라 = " & 45/100 리얄"
케이스 "포티 식스"
할랄라 = " & 46/100 리얄"
케이스 "포티 세븐"
할랄라 = " & 47/100 리얄"
케이스 "마흔 여덟"
할랄라 = " & 48/100 리얄"
케이스 "마흔아홉"
할랄라 = " & 49/100 리얄"
케이스 "XNUMX"
할랄라 = " & 50/100 리얄"
케이스 "피프티원"
할랄라 = " & 51/100 리얄"
사례 "XNUMX"
할랄라 = " & 52/100 리얄"
사례 "XNUMX"
할랄라 = " & 53/100 리얄"
사례 "XNUMX"
할랄라 = " & 54/100 리얄"
케이스 "피프티 파이브"
할랄라 = " & 55/100 리얄"
케이스 "Fifty Six"
할랄라 = " & 56/100 리얄"
케이스 "피프티 세븐"
할랄라 = " & 57/100 리얄"
케이스 "피프티 에이트"
할랄라 = " & 58/100 리얄"
케이스 "쉰아홉"
할랄라 = " & 59/100 리얄"
케이스 "Sixty"
할랄라 = " & 60/100 리얄"
사례 "예순한"
할랄라 = " & 61/100 리얄"
사례 "예순이"
할랄라 = " & 62/100 리얄"
사례 "예순 셋"
할랄라 = " & 63/100 리얄"
사례 "예순 XNUMX"
할랄라 = " & 64/100 리얄"
사례 "식스티 파이브"
할랄라 = " & 65/100 리얄"
사례 "Sixty Six"
할랄라 = " & 66/100 리얄"
케이스 "식스티세븐"
할랄라 = " & 67/100 리얄"
사례 "예순 여덟"
할랄라 = " & 68/100 리얄"
사례 "식스티 나인"
할랄라 = " & 69/100 리얄"
케이스 "일곱"
할랄라 = " & 70/100 리얄"
케이스 "일곱 XNUMX"
할랄라 = " & 71/100 리얄"
사건 "일흔두"
할랄라 = " & 72/100 리얄"
사례 "일흔셋"
할랄라 = " & 73/100 리얄"
케이스 "일곱 XNUMX"
할랄라 = " & 74/100 리얄"
케이스 "Seventy Five"
할랄라 = " & 75/100 리얄"
케이스 "Seventy Six"
할랄라 = " & 76/100 리얄"
케이스 "세븐티 세븐"
할랄라 = " & 77/100 리얄"
케이스 "일곱 여덟"
할랄라 = " & 78/100 리얄"
사건 "일흔아홉"
할랄라 = " & 79/100 리얄"
케이스 "XNUMX"
할랄라 = " & 80/100 리얄"
케이스 "에이티 원"
할랄라 = " & 81/100 리얄"
사례 "XNUMX"
할랄라 = " & 82/100 리얄"
사례 "XNUMX"
할랄라 = " & 83/100 리얄"
사례 "XNUMX"
할랄라 = " & 84/100 리얄"
사례 "에이티 파이브"
할랄라 = " & 85/100 리얄"
케이스 "에이티 식스"
할랄라 = " & 86/100 리얄"
케이스 "에이티세븐"
할랄라 = " & 87/100 리얄"
케이스 "에이티에이트"
할랄라 = " & 88/100 리얄"
케이스 "XNUMX"
할랄라 = " & 89/100 리얄"
케이스 "나인티"
할랄라 = " & 90/100 리얄"
케이스 "나인티 원"
할랄라 = " & 91/100 리얄"
케이스 "나인티 투"
할랄라 = " & 92/100 리얄"
케이스 "아흔셋"
할랄라 = " & 93/100 리얄"
케이스 "나인티 포"
할랄라 = " & 94/100 리얄"
케이스 "나인티파이브"
할랄라 = " & 95/100 리얄"
케이스 "나인티 식스"
할랄라 = " & 96/100 리얄"
케이스 "나인티 세븐"
할랄라 = " & 97/100 리얄"
케이스 "나인티 에이트"
할랄라 = " & 98/100 리얄"
케이스 "나인티 나인"
할랄라 = " & 99/100 리얄"


아니면 케이스
할랄라 = " & " & 할랄라 & " 할랄라 "
선택 종료
SpellBilling = 리얄 및 할랄라
최종 기능


' 100-999 사이의 숫자를 텍스트로 변환
함수 GetHundreds(ByVal MyNumber)
문자열로 희미한 결과
Val(MyNumber) = 0이면 함수 종료
MyNumber = Right("000" & MyNumber, 3)
' 백 자리를 변환합니다.
If Mid(MyNumber, 1, 1) <> "0" 다음
결과 = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
END IF
' 십과 일의 자리를 변환합니다.
If Mid(MyNumber, 2, 1) <> "0" 다음
결과 = 결과 및 GetTens(Mid(MyNumber, 2))
다른
결과 = 결과 및 GetDigit(Mid(MyNumber, 3))
END IF
GetHundreds = 결과
최종 기능

' 10에서 99까지의 숫자를 텍스트로 변환합니다.
함수 GetTens(TensText)
문자열로 희미한 결과
Result = "" ' 임시 함수 값을 무효화합니다.
If Val(Left(TensText, 1)) = 1 Then ' 값이 10-19 사이이면...
대소문자 선택(TensText)
사례 10: 결과 = "XNUMX"
사례 11: 결과 = "일레븐"
사례 12: 결과 = "XNUMX"
사례 13: 결과 = "XNUMX"
사례 14: 결과 = "XNUMX"
사례 15: 결과 = "XNUMX"
사례 16: 결과 = "XNUMX"
사례 17: 결과 = "세븐틴"
사례 18: 결과 = "XNUMX"
사례 19: 결과 = "XNUMX"
아니면 케이스
선택 종료
Else ' 값이 20-99 사이인 경우...
대소문자 선택(Left(TensText, 1))
사례 2: 결과 = "XNUMX"
사례 3: 결과 = "서른"
사례 4: 결과 = "XNUMX"
사례 5: 결과 = "XNUMX"
사례 6: 결과 = "XNUMX"
사례 7: 결과 = "일곱"
사례 8: 결과 = "XNUMX"
사례 9: 결과 = "Ninety"
아니면 케이스
선택 종료
결과 = 결과 및 GetDigit _
(Right(TensText, 1)) ' 한 자리를 검색합니다.
END IF
GetTens = 결과
최종 기능

' 1에서 9까지의 숫자를 텍스트로 변환합니다.
함수 GetDigit(숫자)
대소문자 선택(숫자)
사례 1: GetDigit = "하나"
사례 2: GetDigit = "XNUMX"
사례 3: GetDigit = "XNUMX"
사례 4: GetDigit = "XNUMX"
사례 5: GetDigit = "XNUMX"
사례 6: GetDigit = "XNUMX"
사례 7: GetDigit = "XNUMX"
사례 8: GetDigit = "XNUMX"
사례 9: GetDigit = "XNUMX"
다른 경우: GetDigit = ""
선택 종료
최종 기능
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Excel 통합 문서를 모두 적용해야 합니다. 이 코딩을 모든 Excel 통합 문서에 적용하는 방법입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
루피 XNUMX천 XNUMX백 , XNUMX 마지막 금액에만 andexample이라는 단어가 있어야 합니다.
루피 만사천팔백칠십오만
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
10억 이상 읽을 수 없습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
One Lac Sixty Nine Thousand Eighty One and Forty Two Paise - 제대로 변환되지 않았습니다. 또한 반올림할 때 위의 숫자를 변환하지 않았습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
코드 감사합니다...
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
코딩해주셔서 감사합니다. 나는 신청했다 & 그것의 작동. 그러나 해당 통합 문서에만 적용됩니다. 모든 Excel 통합 문서를 적용해야 합니다. 이 코딩을 모든 Excel 통합 문서에 적용하는 방법입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, SivaG
예, 이 코드는 사용자 정의 함수입니다. 수식을 파일에 하나씩 적용해야 합니다. 여러 통합 문서에 적용할 코드가 필요한 경우 모든 숫자에 적용되므로 모든 숫자가 변경됩니다. 그리고 코드는 실행 취소를 지원할 수 없으며 몇 가지 보안 위험이 있습니다. 이렇게 하는 것은 권장되지 않습니다. 고맙습니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
"Rupees"라는 단어를 어떻게 제거할 수 있습니까? 일반적으로 수표 잎에는 이미 "Rupees"라는 단어가 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 사카리야
문제를 해결하려면 아래 코드를 적용하세요.
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 = 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



시도해보십시오. 도움이 되길 바랍니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
정말 감사합니다... 🙂
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
그러나 이것은 하나의 Excel에만 적용됩니다. 이 수식을 다른 Excel에 입력하면 작동하지 않습니다.
이에 대한 해결책은 무엇인가
되돌려주세요
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요

통합 문서가 여러 개인 경우 코드를 여러 통합 문서에 복사해야 합니다.
하나의 통합 문서에만 복사하면 다른 통합 문서에서는 작동하지 않습니다. 😀
시도하십시오, 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사합니다 매우 유용합니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 선생님, 모든 Excel 작업 시트에 대해 기본적으로 이것을 설정할 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 무케시

예, 코드를 vba 창 모듈에 복사하는 한 수식을 전체 통합 문서에 적용할 수 있습니다.
하지만 통합 문서를 닫을 때 다른 이름으로 저장해야 합니다. Excel 매크로 사용 통합 문서 파일 형식.
시도해 주세요, 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
여러 번 시도해도 작동하지 않습니다. 도와주세요
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이봐, 큰 도움이야! 멋진 코드를 만들어 주셔서 감사합니다.

그것은 많은 시간을 절약했습니다. "하나님의 축복이 있기를!!"
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호