एक्सेल में संख्याओं को शब्दों में बदलें: 4 सिद्ध विधियां

स्प्रेडशीट का उपयोग कई लोग अपने दैनिक कार्यों में करते हैं, जो उन्हें उनके कार्यालय का एक महत्वपूर्ण तत्व बनाता है। जबकि अधिकांश लोग स्प्रेडशीट का उपयोग यथोचित बुनियादी तरीके से करते हैं, कुछ उन्नत उपयोगकर्ताओं को एक्सेल में संख्या को शब्दों में बदलना मुश्किल या जटिल लगता है। इस गाइड में, हमने इस मुद्दे को संबोधित किया है और एक्सेल में संख्या को शब्दों में बदलने के चार अलग-अलग तरीके प्रदान किए हैं। इसके अलावा, संख्याओं को टेक्स्ट फॉर्मेट में बदलने के लिए तीन और तरीके हैं।

वर्कबुक डाउनलोड करें

आप इस लेख में उपयोग किए गए वर्कबुक को नीचे से डाउनलोड कर सकते हैं और स्वयं इसके साथ अभ्यास कर सकते हैं।

एक्सेल में संख्या को शब्दों में बदलने के 4 तरीके

लेख का यह खंड बताता है कि एक्सेल में संख्याओं को शब्दों में कैसे बदलें। इसके अलावा, हम ऑपरेशन करने के लिए चार तकनीकों का प्रदर्शन करने जा रहे हैं। सत्र संचालित करने के लिए, हम माइक्रोसॉफ्ट 365 संस्करण का उपयोग करने जा रहे हैं।

1. एक्सेल में संयुक्त फंक्शन का उपयोग करके संख्या को शब्दों में बदलें

यहां उपयोग किया गया एक्सेल सूत्र चार फंक्शन पर निर्भर करता है। LEFT, MID, TEXT, और CHOOSE फंक्शन।

सबसे पहले, LEFT फंक्शन का सिंटैक्स इस प्रकार है:

मूल रूप से, इस फंक्शन का उपयोग टेक्स्ट से वर्ण निकालने के लिए किया जाता है।

Text: वह टेक्स्ट स्ट्रिंग जिससे वर्ण निकाले जाने हैं।

num_chars [वैकल्पिक]: निकालने के लिए वर्णों की संख्या। यह बाईं ओर से शुरू होता है। डिफ़ॉल्ट रूप से, num_chars=1।

दूसरे, MID फंक्शन का सिंटैक्स इस प्रकार है:

वास्तव में, इस फंक्शन का उपयोग स्ट्रिंग के अंदर से टेक्स्ट निकालने के लिए किया जाता है।

Text: वह टेक्स्ट जिससे निकालना है।

start_num: निकालने के लिए पहले वर्ण का स्थान।

num_chars: निकालने के लिए वर्णों की संख्या।

तीसरे, TEXT फंक्शन का सिंटैक्स इस प्रकार है:

अंततः, यह फंक्शन संख्या को संख्या फॉर्मेट में टेक्स्ट में बदलता है।

value: परिवर्तित की जाने वाली संख्या।

format_text: उपयोग किया जाने वाला संख्या फॉर्मेट।

अगला, CHOOSE फंक्शन का सिंटैक्स इस प्रकार है:

यह फंक्शन स्थिति के आधार पर सूची से एक मान प्राप्त करता है।

index_num: चुनने का मान। 1 और 254 के बीच एक संख्या।

value1: पहला मान जिससे चुनना है।

value2 [वैकल्पिक]: दूसरा मान जिससे चुनना है।

• यहां, हम शब्दों में संख्या कॉलम में संख्या को बदलेंगे।

• अब, C5 सेल में निम्न सूत्र लिखें।

पूरा सूत्र पहली नज़र में जटिल लग सकता है, फिर भी यह अनिवार्य रूप से एक ही भाग की पुनरावृत्ति है। इसलिए, यदि आप सूत्र के पहले भाग को समझ सकते हैं, तो आपको बाकी को समझने में सक्षम होना चाहिए।

• इसके बाद, ENTER दबाएं।

परिणामस्वरूप, आपको निम्नलिखित आउटपुट दिखाई देगा।

सूत्र विश्लेषण:

सबसे पहले, संख्या को "000000000.00" टेक्स्ट फॉर्मेट में बदलने के लिए TEXT फंक्शन का उपयोग किया जाता है।

TEXT(B7,"000000000.00")

उसके बाद, संख्या से सबसे बाएं वर्ण को निकालने के लिए LEFT फंक्शन का उपयोग किया जाता है। यह हमें यह पहचानने की अनुमति देता है कि वापसी संख्या शून्य है या कोई अन्य मान।

LEFT(TEXT(B7,"000000000.00"))

अगला, निकाली गई संख्या को उपयुक्त शब्दों से दर्शाने के लिए CHOOSE फंक्शन का उपयोग किया जाता है।

CHOOSE(LEFT(TEXT(B7,"000000000.00"))+1,,"One","Two","Three","Four","Five","Six","Seven","Eight","Nine")

अब, यह जांचता है कि मान शून्य है या नहीं। यदि यह शून्य है तो यह कुछ भी प्रदर्शित नहीं करता है।

CHOOSE(LEFT(TEXT(B7,"000000000.00"))+1,,"One","Two","Three","Four","Five","Six","Seven","Eight","Nine")

&IF(--LEFT(TEXT(B7,"000000000.00"))=0,,

यदि अगली दो संख्याएं शून्य हैं तो यह "हंड्रेड" प्रदर्शित करेगा। अन्यथा, यह "हंड्रेड एंड" प्रदर्शित करेगा।

CHOOSE(LEFT(TEXT(B7,"000000000.00"))+1,,"One","Two","Three","Four","Five","Six","Seven","Eight","Nine")

&IF(--LEFT(TEXT(B7,"000000000.00"))=0,,IF(AND(--MID(TEXT(B7,"000000000.00"),2,1)=0,--MID(TEXT(B7,"000000000.00"),3,1)=0)," Hundred"," Hundred and "))

इस सूत्र को VBA या सरणियों की आवश्यकता नहीं है। यह संख्याओं को शब्दों में बदलने की एक उत्कृष्ट विधि है। हालांकि, इसके दो दोष हैं। एक, यह दशमलव बिंदु के बाद दशमलव संख्याओं को पूरी तरह से प्रस्तुत नहीं कर सकता। दो, अधिकतम संख्या सीमा 999, 999, 999 है। वास्तव में, श्री पीट एम. ने इस सूत्र के साथ आया था।

• अब, आप बाकी पंक्तियों के लिए सूत्र लिख सकते हैं या बस एक्सेल ऑटोफिल सुविधा का उपयोग कर सकते हैं।

अंत में, आपको सभी परिवर्तित संख्याएं शब्दों में मिल जाएंगी।

2. संख्याओं को शब्दों में बदलने के लिए VLOOKUP फंक्शन लागू करना

आप एक्सेल में VLOOKUP फंक्शन को संख्याओं को शब्दों में बदलने के लिए लागू कर सकते हैं। आइए कुछ अलग करते हैं। यहां, आपको पहले सभी संख्याओं को शब्दों में मैन्युअल रूप से C कॉलम में डालना होगा फिर आप उनमें से किसी भी संख्या को शब्दों में बदलने के लिए इस फंक्शन का उपयोग कर सकते हैं।

चरण:

• सबसे पहले, C कॉलम में सभी संख्याओं को शब्दों में मैन्युअल रूप से लिखें।

• अब, C12 सेल में निम्न सूत्र का उपयोग करें।

• फिर, ENTER दबाएं।

सूत्र विश्लेषण

इस सूत्र में, VLOOKUP फंक्शन दिए गए सरणी से एक मान लौटाएगा।

• सबसे पहले, B12 लुकअप मान है जिसे यह दी गई तालिका में ढूंढता है।
• दूसरे, B4:C9 तालिका सरणी है जिसमें यह लक्ष्य मान ढूंढता है।
• तीसरे, 2 तालिका में कॉलम की संख्या है जिससे एक मान लौटाया जाना है।
• चौथे, False एक सटीक मिलान को दर्शाता है।

3. एक्सेल में संख्या को शब्दों में बदलने के लिए VBA का उपयोग करना

सबसे दिलचस्प हिस्सा यह है कि आप एक्सेल में संख्याओं को शब्दों में बदलने के लिए अपना खुद का फंक्शन बना सकते हैं। इसके अलावा, आप एक परिभाषित फंक्शन विकसित करने के लिए VBA कोड का उपयोग कर सकते हैं। चरण नीचे दिए गए हैं।

चरण:

• सबसे पहले, आपको डेवलपर टैब >> फिर विजुअल बेसिक चुनना होगा।

• अब, इन्सर्ट टैब >> से आपको मॉड्यूल चुनना होगा।

• इस समय, आपको मॉड्यूल में निम्नलिखित कोड लिखना होगा।

Function number_converting_into_words(ByVal MyNumber) Dim x_string As String Dim whole_num As Integer Dim x_string_pnt Dim x_string_Num Dim x_pnt As String Dim x_numb As String Dim x_P() As Variant Dim x_DP Dim x_cnt As Integer Dim x_output, x_T As String Dim x_my_len As Integer On Error Resume Next x_P = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ") x_numb = Trim(Str(MyNumber)) x_DP = InStr(x_numb, ".") x_pnt = "" x_string_Num = "" If x_DP > 0 Then x_pnt = " point " x_string = Mid(x_numb, x_DP + 1) x_string_pnt = Left(x_string, Len(x_numb) - x_DP) For whole_num = 1 To Len(x_string_pnt) x_string = Mid(x_string_pnt, whole_num, 1) x_pnt = x_pnt & get_digit(x_string) & " " Next whole_num x_numb = Trim(Left(x_numb, x_DP - 1)) End If x_cnt = 0 x_output = "" x_T = "" x_my_len = 0 x_my_len = Int(Len(Str(x_numb)) / 3) If (Len(Str(x_numb)) Mod 3) = 0 Then x_my_len = x_my_len - 1 Do While x_numb <> "" If x_my_len = x_cnt Then x_T = get_hundred_digit(Right(x_numb, 3), False) Else If x_cnt = 0 Then x_T = get_hundred_digit(Right(x_numb, 3), True) Else x_T = get_hundred_digit(Right(x_numb, 3), False) End If End If If x_T <> "" Then x_output = x_T & x_P(x_cnt) & x_output End If If Len(x_numb) > 3 Then x_numb = Left(x_numb, Len(x_numb) - 3) Else x_numb = "" End If x_cnt = x_cnt + 1 Loop x_output = x_output & x_pnt number_converting_into_words = x_output End Function Function get_hundred_digit(xHDgt, y_b As Boolean) Dim x_R_str As String Dim x_string_Num As String Dim x_string As String Dim y_I As Integer Dim y_bb As Boolean x_string_Num = xHDgt x_R_str = "" On Error Resume Next y_bb = True If Val(x_string_Num) = 0 Then Exit Function x_string_Num = Right("000" & x_string_Num, 3) x_string = Mid(x_string_Num, 1, 1) If x_string <> "0" Then x_R_str = get_digit(Mid(x_string_Num, 1, 1)) & "Hundred " Else If y_b Then x_R_str = "and " y_bb = False Else x_R_str = " " y_bb = False End If End If If Mid(x_string_Num, 2, 2) <> "00" Then x_R_str = x_R_str & get_ten_digit(Mid(x_string_Num, 2, 2), y_bb) End If get_hundred_digit = x_R_str End Function Function get_ten_digit(x_TDgt, y_b As Boolean) Dim x_string As String Dim y_I As Integer Dim x_array_1() As Variant Dim x_array_2() As Variant Dim x_T As Boolean x_array_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ") x_array_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ") x_string = "" x_T = True On Error Resume Next If Val(Left(x_TDgt, 1)) = 1 Then y_I = Val(Right(x_TDgt, 1)) If y_b Then x_string = "and " x_string = x_string & x_array_1(y_I) Else y_I = Val(Left(x_TDgt, 1)) If Val(Left(x_TDgt, 1)) > 1 Then If y_b Then x_string = "and " x_string = x_string & x_array_2(Val(Left(x_TDgt, 1))) x_T = False End If If x_string = "" Then If y_b Then x_string = "and " End If End If If Right(x_TDgt, 1) <> "0" Then x_string = x_string & get_digit(Right(x_TDgt, 1)) End If End If get_ten_digit = x_string End Function Function get_digit(xDgt) Dim x_string As String Dim x_array_1() As Variant x_array_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ") x_string = "" On Error Resume Next x_string = x_array_1(Val(xDgt)) get_digit = x_string End Function

• अब, आपको कोड सेव करना होगा।
• फिर, आपको एक्सेल वर्कशीट पर जाने की आवश्यकता है।

इस समय, आप अपने परिभाषित फंक्शन का उपयोग कर सकते हैं। इसके लिए, आपको दिए गए चरणों का पालन करना चाहिए।

चरण:

• अब, वह सेल चुनें जहां आप परिवर्तित आउटपुट दिखाना चाहते हैं। (हमारे मामले में, सेल C5)।
• फिर, सेल में बराबर चिह्न (=) दर्ज करें। यह आपको सूत्र टाइप करने में सक्षम करेगा।
• उसके बाद, "=number_converting_into_words" टाइप करें या ड्रॉप-डाउन मेनू से number_converting_into_words फंक्शन चुनें।
• इसके बाद, उस सेल का चयन करें जिसमें वह संख्या मान है जिसे आप शब्दों में बदलना चाहते हैं (हमारे मामले में, सेल B5)।
• अंत में, ENTER बटन दबाएं।

परिणामस्वरूप, यह आपके चयनित सेल की संख्या को संबंधित शब्दों में बदल देगा। अंत में, आप इस सूत्र को बाकी सेल के लिए भी कॉपी कर सकते हैं।

4. एक्सेल में मुद्रा को शब्दों में बदलने के लिए VBA का उपयोग करना

यह विधि पिछली वाली के समान है। यह VBA (विजुअल बेसिक फॉर एप्लीकेशन) का उपयोग करके एक मॉड्यूल डालकर और इसे फंक्शन के रूप में उपयोग करके भी काम करती है। जहां यह पिछली विधि से भिन्न है, वह यह है कि यह संख्याओं को उपयुक्त मुद्रा शब्दों में बदलती है। इसके अलावा, नीचे एक उदाहरण दिया गया है।

अब, इस विधि को लागू करने के लिए इन चरणों का पालन करें:

• सबसे पहले, मॉड्यूल डालने के लिए विधि-3 का पालन करें।
• दूसरे, मॉड्यूल 2 में निम्न कोड लिखें।

Function Convert_Number_into_word_with_currency(ByVal whole_number) Dim converted_into_dollar, converted_into_cent my_ary = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ") whole_number = Trim(Str(whole_number)) x_decimal = InStr(whole_number, ".") If x_decimal > 0 Then converted_into_cent = get_ten(Left(Mid(whole_number, x_decimal + 1) & "00", 2)) whole_number = Trim(Left(whole_number, x_decimal - 1)) End If xIndex = 1 Do While whole_number <> "" xHundred = "" xValue = Right(whole_number, 3) If Val(xValue) <> 0 Then xValue = Right("000" & xValue, 3) If Mid(xValue, 1, 1) <> "0" Then xHundred = get_digit(Mid(xValue, 1, 1)) & " Hundred " End If If Mid(xValue, 2, 1) <> "0" Then xHundred = xHundred & get_ten(Mid(xValue, 2)) Else xHundred = xHundred & get_digit(Mid(xValue, 3)) End If End If If xHundred <> "" Then converted_into_dollar = xHundred & my_ary(xIndex) & Dollar End If If Len(whole_number) > 3 Then whole_number = Left(whole_number, Len(whole_number) - 3) Else whole_number = "" End If xIndex = xIndex + 1 Loop Select Case converted_into_dollar Case "" converted_into_dollar = " Zero Dollar" Case "One" converted_into_dollar = " One Dollar" Case Else converted_into_dollar = converted_into_dollar & "Dollars" End Select Select Case converted_into_cent Case "" converted_into_cent = " and Zero Cent" Case "One" converted_into_cent = " and One Cent" Case Else converted_into_cent = " and " & converted_into_cent & "Cents" End Select Convert_Number_into_word_with_currency = converted_into_dollar & converted_into_cent End Function Function get_ten(pTens) Dim my_output As String my_output = "" If Val(Left(pTens, 1)) = 1 Then Select Case Val(pTens) Case 10: my_output = "Ten" Case 11: my_output = "Eleven" Case 12: my_output = "Twelve" Case 13: my_output = "Thirteen" Case 14: my_output = "Fourteen" Case 15: my_output = "Fifteen" Case 16: my_output = "Sixteen" Case 17: my_output = "Seventeen" Case 18: my_output = "Eighteen" Case 19: my_output = "Nineteen" Case Else End Select Else Select Case Val(Left(pTens, 1)) Case 2: my_output = "Twenty " Case 3: my_output = "Thirty " Case 4: my_output = "Forty " Case 5: my_output = "Fifty " Case 6: my_output = "Sixty " Case 7: my_output = "Seventy " Case 8: my_output = "Eighty " Case 9: my_output = "Ninety " Case Else End Select my_output = my_output & get_digit(Right(pTens, 1)) End If get_ten = my_output End Function Function get_digit(pDigit) Select Case Val(pDigit) Case 1: get_digit = "One" Case 2: get_digit = "Two" Case 3: get_digit = "Three" Case 4: get_digit = "Four" Case 5: get_digit = "Five" Case 6: get_digit = "Six" Case 7: get_digit = "Seven" Case 8: get_digit = "Eight" Case 9: get_digit = "Nine" Case Else: get_digit = "" End Select End Function

परिणामस्वरूप, आप अपने परिभाषित फंक्शन का उपयोग कर सकते हैं जिसका नाम Convert_Number_into_word_with_currency है। इसके लिए, आपको दिए गए चरणों का पालन करना चाहिए।

चरण:

• अब, आपको एक सेल का चयन करना होगा, जहां आप परिणाम रखना चाहते हैं। हमने C5 सेल चुना है।
• फिर, आपको C5 सेल में संबंधित सूत्र का उपयोग करने की आवश्यकता है।

• इसके बाद, ENTER दबाएं।

• अंत में, बाकी सेल C6:C9 के लिए एक्सेल ऑटोफिल सुविधा का उपयोग करें।

अंत में, आपको सभी परिवर्तित राशि मिल जाएगी।

एक्सेल में संख्या को टेक्स्ट फॉर्मेट में कैसे बदलें

अब तक, हमने एक्सेल में संख्याओं को शब्दों में कैसे बदलें के बारे में बात की है। लेख का यह खंड बताता है कि एक्सेल में संख्याओं को टेक्स्ट फॉर्मेट में कैसे बदलें। यह एक्सेल में संख्याओं को टेक्स्ट में बदलने का सबसे सरल और तेज़ तरीका है।

यहां, इस विधि को लागू करने के लिए इन चरणों का पालन करें:

• सबसे पहले, उन सेल या सेल का चयन करें जिनमें संख्यात्मक मान हैं जिन्हें आप टेक्स्ट में बदलना चाहते हैं (हमारे मामले में, सेल C5:C9)
• दूसरे, होम टैब पर जाएं और नंबर अनुभाग के तहत सेल श्रेणी ड्रॉप-डाउन मेनू से टेक्स्ट विकल्प चुनें।

परिणामस्वरूप, यह आपके चयनित सेल के संख्यात्मक मान को टेक्स्ट में बदल देगा। आप इसे अलाइनमेंट देखकर समझ सकते हैं। डिफ़ॉल्ट रूप से, एक्सेल में टेक्स्ट बाएं अलाइन होते हैं और संख्याएं दाएं अलाइन होती हैं।

या आप CTRL+1 दबाकर फॉर्मेट सेल नामक विंडो खोल सकते हैं और नंबर विकल्प चुनें और फिर वहां से टेक्स्ट श्रेणी चुनें।

अभ्यास अनुभाग

अभ्यास करने के लिए, हमने प्रत्येक शीट पर दाईं ओर एक अभ्यास भाग जोड़ा है।

निष्कर्ष

यहां, हमने इस लेख को एमएस एक्सेल में संख्या को उपयुक्त शब्दों या टेक्स्ट में बदलने के बारे में एक अंतिम गाइड बनाने की कोशिश की है। इसके अलावा, हमने इस लेख में सात अलग-अलग तकनीकों को सीमित किया है ताकि आप अपनी विशिष्ट स्थिति के लिए सबसे उपयुक्त आदर्श विकल्प चुन सकें। तो, हम आशा करते हैं कि आपको वह समाधान मिल गया जिसकी आप तलाश कर रहे थे। कृपया टिप्पणी छोड़ें यदि आपके कोई सुझाव या प्रश्न हैं। धन्यवाद।

संबंधित लेख

• तारीख को टेक्स्ट YYYYMMDD में कैसे बदलें (3 त्वरित तरीके)
• एक्सेल में तारीख को टेक्स्ट महीने में बदलें (8 त्वरित तरीके)