जब आप Excel में संख्याओं के साथ काम करते हैं, तो कभी-कभी आधिकारिक दस्तावेज़ों या स्पष्टता के लिए आपको उन्हें अंकों और शब्दों दोनों में दिखाने की ज़रूरत होती है। लेकिन Excel में खासकर भारतीय रुपये के लिए ऐसा करने का कोई बिल्ट-इन तरीका नहीं है। इसलिए, आप जटिल फ़ॉर्मूलों, बाहरी टूल्स या मैन्युअल तरीके का सहारा ले सकते हैं।
इस गाइड में, हम आपको Excel का उपयोग करके भारतीय रुपये में संख्याओं को शब्दों में बदलने की एक सरल चरण-दर-चरण विधि सिखाएँगे।
Excel में भारतीय रुपये में संख्याओं को शब्दों में बदलने के 2 आसान तरीके:
बेशक, सबसे पहले आपको एक उपयुक्त Microsoft Excel डाउनलोड प्राप्त करना होगा!
विधि 1: VBA कोड से भारतीय रुपये में संख्याओं को शब्दों में बदलें
VBA कोड का उपयोग करके भारतीय रुपये में संख्याओं को शब्दों में बदलने से पहले, आपको VBA फ़ंक्शन खोलने के लिए अपने रिबन में डेवलपर टैब सक्षम करना पड़ सकता है।
Excel में डेवलपर टैब सक्षम करने के चरण यहाँ दिए गए हैं:
चरण 1: उस Excel स्प्रेडशीट को खोलें जिसमें वे संख्याएँ हैं जिन्हें आप बदलना चाहते हैं।

चरण 2: File पर क्लिक करें और सूची में विकल्प चुनें

चरण 3: Excel विकल्प में Customize Ribbon चुनें

चरण 4: Choose commands from विकल्प में All Tabs चुनें

चरण 5: सूची में Developer खोजें और Add पर क्लिक करें

चरण 6: OK पर क्लिक करें

अब VBA कोड का उपयोग करके भारतीय रुपये में संख्याओं को शब्दों में बदलने के चरण यहाँ दिए गए हैं:
चरण 1: उस Excel स्प्रेडशीट को खोलें जिसमें वे संख्याएँ हैं जिन्हें आप बदलना चाहते हैं।

चरण 2: डेवलपर टैब पर क्लिक करें। अगर आपको यह टैब नहीं दिखता है, तो इसे सक्षम करने के लिए ऊपर दिए गए चरण का पालन करें।

चरण 3: Visual Basic पर क्लिक करें या कीबोर्ड शॉर्टकट Alt + F11 का उपयोग करें

चरण 4: Insert पर क्लिक करें और Module चुनें।

चरण 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 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=""> 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 Macro-Enabled Workbook चुनें

चरण 6: जिस सेल में आप शब्द दिखाना चाहते हैं उसमें फ़ॉर्मूला =RupeeFormat(display cell) दर्ज करें और Enter दबाएँ।

चरण 7: परिणाम प्रदर्शित होगा। फ़ॉर्मूला को अन्य सेल पर लागू करने के लिए नीचे ड्रैग करें।

चयनित श्रेणी की संख्याएँ भारतीय रुपये में शब्दों में बदल जाएँगी।
विधि 2: Excel में भारतीय रुपये में संख्याओं को शब्दों में बदलना (सामान्य विधि)
Excel में भारतीय रुपये में संख्याओं को शब्दों में बदलने की सामान्य विधि सीखें, यह तब काम आता है जब आप बहीखाता के लिए इनवॉइस तैयार करते हैं।
चरण 1: उस Excel स्प्रेडशीट को खोलें जिसमें वे संख्याएँ हैं जिन्हें आप बदलना चाहते हैं।

चरण 2: शीट नाम पर राइट-क्लिक करें और VBA एप्लिकेशन खोलने के लिए View Code चुनें। यह Excel में डेटा विश्लेषण के लिए भी उपयोगी है।

चरण 3: Insert पर क्लिक करें और Module चुनें।

चरण 5: संदर्भ में दिए गए 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 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=""> 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: Save as type में Excel Macro-Enabled Workbook चुनें। VBA एडिटर विंडो बंद करें।

चरण 6: परिणाम दिखाने के लिए चयनित सेल में फ़ॉर्मूला =RupeeFormat(display cell) डालें।

चरण 7: चयनित सेल में परिणाम आने के बाद फ़ॉर्मूला को अन्य सेल पर लागू करने के लिए नीचे ड्रैग करें।

चयनित श्रेणी की संख्याएँ भारतीय रुपये में शब्दों में बदल जाएँगी।
Microsoft Office का सबसे अच्छा मुफ़्त विकल्प - WPS Office
Microsoft Office के अलावा, मैं आपको एक और ऐप सुझाता हूँ। यह WPS Office है। तो, WPS क्या है?

WPS Office एक मुफ़्त और ओपन-सोर्स ऑफिस सुइट है जो Microsoft Office के साथ संगत है। इसमें वर्ड प्रोसेसर, स्प्रेडशीट, प्रेज़ेंटेशन सॉफ़्टवेयर और PDF रीडर शामिल हैं, ताकि आप फ़ाइलें आसानी से खोल, संपादित और सहेज सकें। यह उपयोग में भी आसान है, उन लोगों के लिए भी जिन्हें ऑफिस सुइट का कोई पिछला अनुभव नहीं है।
इतना ही नहीं, WPS Office एक शक्तिशाली ऑफिस सुइट है जो कई प्रकार की सुविधाएँ देता है। यह NeoOffice का एक अच्छा विकल्प है, खासकर बजट वाले छात्रों और व्यवसायों के लिए।
WPS की कुछ विशेषताओं पर एक नज़र डालें:
● Word, Excel और PPT का मुफ़्त उपयोग करें। शक्तिशाली PDF टूलकिट
● समृद्ध टेम्पलेट स्टोर
● समृद्ध फ़ंक्शन, उत्पाद में रिज़्यूम सहायक, स्मार्ट फ़ॉर्म, स्क्रीन रिकॉर्डिंग, फ़ाइल मरम्मत और अन्य छोटे टूल एकीकृत हैं
● उत्पाद का हल्का आकार केवल 200M है, और यह कंप्यूटर मेमोरी में बहुत कम जगह लेता है।
● WPS Office का MAC संस्करण बहुत शक्तिशाली है। 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: "Free Download" बटन पर क्लिक करें

चरण 3: जहाँ आप WPS Office सहेजना चाहते हैं उस स्थान का चयन करें -> Save

चरण 4: अपनी Download फ़ाइल में WPS Office फ़ाइल पर डबल क्लिक करें, "Run" पर क्लिक करें और इंस्टॉल करने के लिए स्क्रीन पर दिए गए निर्देशों का पालन करें

चरण 5: पूरा होने के बाद, आप WPS Office की सभी शक्तियों का आनंद ले सकते हैं।
अक्सर पूछे जाने वाले प्रश्न:
प्रश्न 1: Excel VBA में मुद्रा को टेक्स्ट में कैसे बदलें?
आप Excel में मुद्रा को टेक्स्ट में बदलने के लिए VBA (Visual Basic for Applications) का उपयोग कर सकते हैं। इस बदलाव को करने के लिए आपको एक कस्टम VBA मैक्रो लिखना होगा। आप मार्गदर्शन के लिए ऑनलाइन उदाहरण और कोड स्निपेट पा सकते हैं या Excel VBA दस्तावेज़ देख सकते हैं।
प्रश्न 2: Excel में मुद्रा को शब्दों (टेक्स्ट) में कैसे बदलें?
Excel में मुद्रा को शब्दों में बदलने के लिए, आप आमतौर पर फ़ंक्शनों और कस्टम फ़ॉर्मेटिंग के संयोजन का उपयोग करते हैं। आप ऑनलाइन कई ट्यूटोरियल और गाइड पा सकते हैं जो यह समझाते हैं कि ऐसा कैसे करें।
प्रश्न 3: Excel में भारतीय रुपये के लिए संख्याओं को कैसे फ़ॉर्मेट करें?
Excel में भारतीय रुपये के लिए संख्याओं को फ़ॉर्मेट करने के लिए, आप बिल्ट-इन मुद्रा फ़ॉर्मेटिंग विकल्पों का उपयोग कर सकते हैं। जिस सेल या श्रेणी को फ़ॉर्मेट करना चाहते हैं उसे चुनें, Format Cells डायलॉग बॉक्स में "Number" टैब पर जाएँ और "Currency" श्रेणी चुनें। वहाँ से, आप मुद्रा चिह्न के रूप में "₹ English (India)" चुन सकते हैं।
प्रश्न 4: Excel में संख्याओं को अपने आप टेक्स्ट में कैसे बदलें?
Excel में संख्याओं को अपने आप टेक्स्ट में बदलने के कई तरीके हैं। आप TEXT, CONCATENATE जैसे Excel फ़ंक्शन या कस्टम फ़ॉर्मेटिंग का उपयोग कर सकते हैं। अधिक उन्नत ऑटोमेशन के लिए आप VBA मैक्रोज़ का भी उपयोग कर सकते हैं।
प्रश्न 5: Excel में US डॉलर को भारतीय रुपये में कैसे बदलें?
Excel में US डॉलर को भारतीय रुपये में बदलने के लिए, आप Excel फ़ंक्शनों और वेब सेवाओं या बाहरी डेटा स्रोतों के संयोजन का उपयोग कर सकते हैं जो मुद्रा विनिमय दरें प्रदान करते हैं। विनिमय दरें प्राप्त करने के बाद राशि को भारतीय रुपये में दिखाने के लिए Excel के "Currency" फ़ॉर्मेट का भी उपयोग किया जा सकता है।
प्रश्न 5. क्या आप आसान काम के लिए Excel Online का उपयोग करना चाहते हैं?
यदि आप क्लाउड में काम करना पसंद करते हैं, तो Excel Online वही शक्तिशाली सुविधाएँ देता है जिससे आप कहीं से भी अपना डेटा प्रबंधित और साफ़ कर सकते हैं। Excel Online के साथ, आप अपने डेटा के बाईं या दाईं ओर से अक्षर हटाने के लिए समान फ़ंक्शनों का उपयोग कर सकते हैं, जो उन लोगों के लिए एक बढ़िया विकल्प है जिन्हें लचीलापन चाहिए या जिनके पास Excel का डेस्कटॉप संस्करण नहीं है।
सारांश:
Excel में भारतीय रुपये में संख्यात्मक राशियों को शब्दों में आसानी से बदलने का तरीका जानें, या तो VBA कोड या सामान्य विधि का उपयोग करके। सबसे पहले Excel में डेवलपर टैब सक्षम करें, दिया गया VBA कोड जोड़ें और =RupeeFormat(display cell) फ़ॉर्मूला का उपयोग करें।
वैकल्पिक रूप से, VBA तक पहुँचने के लिए शीट नाम पर राइट-क्लिक करें, एक मॉड्यूल डालें, कोड पेस्ट करें और उसी फ़ॉर्मूला का उपयोग करें। ये उपयोगकर्ता-अनुकूल विधियाँ WPS Office के साथ भी संगत हैं, जो Microsoft Office का एक मुफ़्त विकल्प है, जिससे सटीक और पेशेवर दस्तावेज़ फ़ॉर्मेटिंग बहुत आसान हो जाती है।





