Excel에서 숫자로 작업할 때 공문서나 명확성을 위해 숫자와 텍스트를 모두 표시해야 할 때가 있습니다. 하지만 Excel에는 이를 위한 기본 기능이 없으며, 특히 인도 루피의 경우 더더욱 그렇습니다. 그래서 복잡한 수식을 사용하거나 외부 도구를 쓰거나 수동으로 직접 변환해야 할 수도 있습니다.
이 가이드에서는 Excel을 사용하여 인도 루피 숫자를 텍스트로 변환하는 간단한 방법을 단계별로 알려드립니다.
Excel에서 인도 루피 숫자를 텍스트로 변환하는 2가지 쉬운 방법:
물론, 그 무엇보다도 먼저 올바른 Microsoft Excel 다운로드를 진행해야 합니다!
방법 1: VBA 코드를 사용하여 인도 루피 숫자를 텍스트로 변환하기
VBA 코드를 사용하여 인도 루피 숫자를 텍스트로 변환하기 전에, 리본 메뉴에 개발자 도구 탭을 추가하여 VBA 기능을 열어야 할 수도 있습니다.
Excel에서 개발자 도구 탭을 활성화하는 단계는 다음과 같습니다:
1단계: 변환하려는 숫자가 포함된 Excel 스프레드시트를 엽니다.

2단계: '파일'을 클릭하고 목록에서 '옵션'을 선택합니다.

3단계: Excel 옵션에서 '리본 사용자 지정'을 선택합니다.

4단계: '명령 선택' 옵션에서 '모든 탭'을 선택합니다.

5단계: 목록에서 '개발자 도구'를 찾아 '추가'를 클릭합니다.

6단계: '확인'을 클릭합니다.

이제 VBA 코드를 사용하여 인도 루피 숫자를 텍스트로 변환하는 단계입니다:
1단계: 변환하려는 숫자가 포함된 Excel 스프레드시트를 엽니다.

2단계: '개발자 도구' 탭을 클릭합니다. 이 탭이 보이지 않으면 위의 단계를 따라 활성화하세요.

3단계: 'Visual Basic'을 클릭하거나 키보드 단축키 Alt + F11을 사용합니다.

4단계: '삽입'을 클릭하고 '모듈'을 선택합니다.

5단계: 참조에 제공된 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 exceed 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=""> 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 |
|---|

5단계: 저장(Ctrl + S)하고 VBA 편집기를 닫습니다. 저장할 때 파일 형식을 'Excel 매크로 사용 통합 문서'로 선택하세요.

6단계: 텍스트를 표시하려는 셀에 `=RupeeFormat(표시할 셀)` 수식을 입력하고 Enter 키를 누릅니다.

7단계: 결과가 표시됩니다. 아래로 드래그하여 다른 셀에도 수식을 적용합니다.

선택한 범위의 숫자가 인도 루피 텍스트로 변환됩니다.
방법 2: Excel에서 인도 루피 숫자를 텍스트로 변환하기 (일반적인 방법)
Excel 내에서 인도 루피 숫자를 텍스트로 변환하는 일반적인 방법을 알아보세요. 이는 장부 정리용 송장을 준비할 때 유용한 단계입니다.
1단계: 변환하려는 숫자가 포함된 Excel 스프레드시트를 엽니다.

2단계: 시트 이름을 마우스 오른쪽 버튼으로 클릭하고 '코드 보기'를 선택하여 VBA 애플리케이션을 엽니다. 이는 Excel의 데이터 분석에도 유용합니다.

3단계: '삽입'을 클릭하고 '모듈'을 선택합니다.

4단계: 참조에 제공된 VBA 코드를 붙여넣습니다.
Public Function RupeeFormat(SNum As String) 'Update By Nirmal 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 exceed 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=""> 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 |
|---|

5단계: 파일 형식에서 'Excel 매크로 사용 통합 문서'를 선택합니다. VBA 편집기 창을 닫습니다.

6단계: 선택한 셀에 `=RupeeFormat(표시할 셀)` 수식을 입력하여 결과를 표시합니다.

7단계: 선택한 셀에 결과가 나타나면 아래로 드래그하여 다른 셀에도 수식을 적용합니다.

선택한 범위의 숫자가 인도 루피 텍스트로 변환됩니다.
Microsoft Office를 대체할 최고의 무료 프로그램 - WPS Office
Microsoft Office 외에도 다른 앱을 하나 제안해 드리겠습니다. 바로 WPS Office입니다. 그렇다면 WPS란 무엇일까요?

WPS Office는 Microsoft Office와 호환되는 무료 오픈 소스 오피스 제품군입니다. 워드 프로세서, 스프레드시트, 프레젠테이션 소프트웨어 및 PDF 리더가 포함되어 있어 파일을 쉽게 열고, 편집하고, 저장할 수 있습니다. 오피스 제품군 사용 경험이 없는 사람도 쉽게 사용할 수 있습니다.
뿐만 아니라, WPS Office는 다양한 기능을 제공하는 강력한 오피스 제품군입니다. 특히 예산이 한정된 학생과 기업에게 NeoOffice의 훌륭한 대안이 됩니다.
WPS의 몇 가지 기능을 간단히 살펴보겠습니다:
● Word, Excel, PPT 무료 사용 및 강력한 PDF 도구 키트
● 풍부한 템플릿 스토어
● 풍부한 기능, 이력서 도우미, 스마트 폼, 화면 녹화, 파일 복구 및 기타 유용한 도구가 제품에 통합되어 있습니다.
● 제품 용량이 200M에 불과하여 가벼우며 컴퓨터 메모리를 적게 차지합니다.
● Mac 버전의 WPS Office는 매우 강력합니다. Microsoft Office가 간과한 Mac 사용자의 경험을 WPS Office가 훌륭하게 보완해 줍니다.
● 온라인 문서(WPS AirPage) 지원 및 다중 사용자 공동 편집 가능
● WPS Office는 Linux 시스템, Android 및 iOS 시스템도 지원합니다. 다양한 시스템에서 WPS Office 제품을 사용하려면 동일한 계정으로 로그인하기만 하면 되며, 모든 파일이 완벽하게 동기화됩니다.

WPS Office가 최적의 선택이라고 생각되어 다운로드하고 싶으신가요? 공식 웹사이트인 https://www.wps.com을 방문하여 지금 다운로드하세요.
WPS Office 다운로드 방법
1단계: WPS Office 웹사이트 방문: wps.com.
2단계: "무료 다운로드" 버튼 클릭

3단계: WPS Office를 저장할 위치 선택 -> 저장

4단계: 다운로드 폴더에서 WPS Office 파일을 두 번 클릭하고 "실행"을 클릭한 후 화면의 지시에 따라 설치합니다.

5단계: 설치가 완료되면 WPS Office의 모든 강력한 기능을 마음껏 즐기실 수 있습니다.
FAQ:
Q1: Excel VBA에서 통화를 텍스트로 변환하려면 어떻게 해야 하나요?
VBA(Visual Basic for Applications)를 사용하여 Excel에서 통화를 텍스트로 변환할 수 있습니다. 이 변환을 수행하려면 사용자 지정 VBA 매크로를 작성해야 합니다. 온라인에서 예제와 코드 스니펫을 찾거나 Excel VBA 문서를 참조하여 안내를 받을 수 있습니다.
Q2: Excel에서 통화를 텍스트 문자로 변환하는 방법은 무엇입니까?
Excel에서 통화를 문자로 변환하려면 일반적으로 함수와 사용자 지정 서식을 함께 사용합니다. 이를 수행하는 방법을 설명하는 다양한 튜토리얼과 가이드를 온라인에서 찾을 수 있습니다.
Q3: Excel에서 인도 루피에 대한 숫자 서식을 어떻게 지정하나요?
Excel에서 인도 루피에 대한 숫자 서식을 지정하려면 기본으로 제공되는 통화 서식 옵션을 사용할 수 있습니다. 서식을 지정할 셀이나 범위를 선택하고 '셀 서식' 대화 상자의 '표시 형식' 탭으로 이동한 다음 '통화' 범주를 선택합니다. 거기서 통화 기호로 '"₹ 영어(인도)"'를 선택할 수 있습니다.
Q4: Excel에서 숫자를 텍스트로 자동으로 변환하려면 어떻게 하나요?
Excel에서 숫자를 텍스트로 자동으로 변환하는 방법은 여러 가지가 있습니다. TEXT, CONCATENATE와 같은 Excel 함수나 사용자 지정 서식을 사용할 수 있습니다. 더 고급 수준의 자동화를 위해 VBA 매크로를 사용할 수도 있습니다.
Q5: Excel에서 미국 달러를 인도 루피로 변환하는 방법은 무엇입니까?
Excel에서 미국 달러를 인도 루피로 변환하려면 Excel 함수와 환율을 제공하는 웹 서비스 또는 외부 데이터 원본을 함께 사용할 수 있습니다. 환율을 구한 후 인도 루피로 금액을 표시하기 위해 Excel의 '통화' 서식을 사용할 수도 있습니다.
Q5. 더 쉬운 작업을 위해 Excel Online을 사용하고 싶으신가요?
클라우드에서 작업하는 것을 선호하신다면, Excel Online은 어디서나 데이터를 관리하고 정리할 수 있는 동일한 강력한 기능을 제공합니다. Excel Online을 사용하면 동일한 함수를 활용하여 데이터의 왼쪽이나 오른쪽에서 문자를 제거할 수 있으므로, 유연성이 필요하거나 데스크톱 버전의 Excel에 액세스할 수 없는 사용자에게 훌륭한 옵션입니다.
요약:
VBA 코드 또는 일반적인 방법을 사용하여 Excel 내에서 금액을 인도 루피 텍스트로 쉽게 변환하는 방법을 알아보세요. 먼저 Excel에서 개발자 도구 탭을 활성화하고, 제공된 VBA 코드를 추가한 다음 `=RupeeFormat(표시할 셀)` 수식을 사용합니다.
또는 시트 이름을 마우스 오른쪽 버튼으로 클릭하여 VBA에 액세스하고, 모듈을 삽입한 다음 코드를 붙여넣고 동일한 수식을 적용할 수 있습니다. 이러한 사용자 친화적인 방법은 Microsoft Office의 무료 대안인 WPS Office와도 호환되므로, 정확하고 전문적인 문서 서식 지정을 간편하게 만들어 줍니다.





