इस लेख में मैं आपको Excel 2019, 2016, 2013 और अन्य संस्करणों में मुद्रा संख्याओं को अंग्रेजी शब्दों में बदलने के दो त्वरित और निःशुल्क तरीके दिखाऊंगा।

Microsoft Excel एक बेहतरीन है यह और वह गणना करने के लिए कार्यक्रम। इसे शुरू में बड़े डेटा सरणियों को संसाधित करने के लिए विकसित किया गया था। हालाँकि, यह चालान, मूल्यांकन या बैलेंस शीट जैसे लेखा रिकॉर्ड को जल्दी और प्रभावी ढंग से बनाने की सुविधा भी देता है।

अधिक या कम ठोस भुगतान दस्तावेजों में संख्यात्मक मानों को उनके शब्द रूप के साथ डुप्लिकेट करना आवश्यक है। हाथ से लिखे नंबरों की तुलना में टाइप किए गए नंबरों को गलत साबित करना बहुत कठिन है। कुछ धोखेबाज 3000 में से 8000 बनाने की कोशिश कर सकते हैं, जबकि गुप्त रूप से "तीन" को "आठ" से बदलना लगभग असंभव है।

इसलिए आपको केवल एक्सेल में संख्याओं को शब्दों में बदलने की आवश्यकता नहीं है (उदाहरण के लिए 123.45 से "एक सौ तेईस, पैंतालीस"), लेकिन डॉलर और सेंट (उदाहरण के लिए $29.95 को "उनतीस डॉलर और निन्यानबे सेंट") के रूप में लिखें, GBP के लिए पाउंड और पेंस, EUR के लिए यूरो और यूरोसेंट आदि।

यहां तक ​​कि एक्सेल के नवीनतम संस्करणों में भी संख्याओं की वर्तनी के लिए एक अंतर्निहित उपकरण नहीं है, पिछले संस्करणों का उल्लेख करना तो दूर की बात है। लेकिन वह तब होता है जब एक्सेल वास्तव में अच्छा होता है। आप हमेशा उनके सभी

संयोजनों, VBA मैक्रोज़, या तृतीय-पक्ष ऐड-इन्स में सूत्रों का उपयोग करके इसकी कार्यक्षमता में सुधार कर सकते हैं।

नीचे आपको संख्याओं को परिवर्तित करने के दो तरीके मिलेंगे अंकों से शब्द

और, संभवतः, आपको इसकी आवश्यकता हो सकती हैएक्सेल में शब्दों को संख्याओं में बदलें

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

आप "स्पेलनंबर फॉर्मूला" के रूप में उल्लिखित मैक्रो पा सकते हैं। हालाँकि, यह एक सूत्र नहीं है, बल्कि एक मैक्रो फ़ंक्शन है, या अधिक सटीक होने के लिए एक्सेल उपयोगकर्ता परिभाषित फ़ंक्शन (यूडीएफ)।

वर्तनी संख्या विकल्प डॉलर और सेंट लिखने में सक्षम है। यदि आपको एक भिन्न मुद्रा की आवश्यकता है, तो आप अपने नाम के साथ " डॉलर " और " सेंट " बदल सकते हैं।

यदि आप VBA के जानकार व्यक्ति नहीं हैं , नीचे आपको कोड की एक प्रति मिलेगी। यदि आप अभी भी नहीं चाहते हैं या आपके पास इसे हल करने का समय नहीं है, तो कृपया इस समाधान का उपयोग करें।

1. कार्यपुस्तिका खोलें जहां आपको संख्याओं की वर्तनी लिखनी है।
2. Alt दबाएं +F11 Visual Basic संपादक विंडो खोलने के लिए।
3. यदि आपके पास कई पुस्तकें खुली हुई हैं, तो जांचें कि आवश्यक कार्यपुस्तिका का उपयोग कर सक्रिय हैसंपादक के ऊपरी बाएँ कोने में परियोजनाओं की सूची (कार्यपुस्तिका तत्वों में से एक को नीले रंग से हाइलाइट किया गया है)।
4. संपादक मेनू में सम्मिलित करें -> मॉड्यूल पर जाएं ।
5. आपको YourBook - Module1 नाम की एक विंडो दिखनी चाहिए। नीचे दिए गए फ्रेम में सभी कोड का चयन करें और इसे इस विंडो में पेस्ट करें।

   विकल्प स्पष्ट 'मेन फंक्शन फंक्शन स्पेलनंबर (बायवैल मायनंबर) डिम डॉलर, सेंट, टेंप डिम डेसिमलप्लेस, काउंट रिडिम प्लेस (9) स्ट्रिंग प्लेस के रूप में (2) = "हजार" प्लेस (3) = "मिलियन" स्थान (4) = "बिलियन" स्थान (5) = "ट्रिलियन" MyNumber = ट्रिम (Str(MyNumber)) DecimalPlace = InStr(MyNumber, "।" ) If DecimalPlace > 0 फिर सेंट = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End if काउंट = 1 Do जबकि MyNumber "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp "" तो Dollars = Temp & स्थान (गणना) और amp; डॉलर यदि लेन(MyNumber) > 3 फिर MyNumber = लेफ्ट (MyNumber, Len(MyNumber) - 3) Else MyNumber = "" एंड इफ काउंट = काउंट + 1 लूप सेलेक्ट केस डॉलर केस "" डॉलर = "नो डॉलर्स" केस "वन" डॉलर्स = "वन डॉलर" केस एल्स डॉलर = डॉलर और amp; "Dollers" End Select Select Case Cents Case "" Cents = "and No Cents" Case "One" Cents = "and One Cent" Case Else Cents = "and"& सेंट & amp; "Cents" अंत में चुनें SpellNumber = Dollars & सेंट एंड फंक्शन फंक्शन GetHundreds(ByVal MyNumber) स्ट्रिंग के रूप में मंद परिणाम यदि Val(MyNumber) = 0 तो बाहर निकलें फ़ंक्शन MyNumber = Right("000" & MyNumber, 3) 'सैकड़ा स्थान बदलें। यदि Mid(MyNumber, 1, 1) "0" तो Result = GetDigit(Mid(MyNumber, 1, 1)) & "सौ" अंत अगर 'दहाई और इकाई के स्थान को परिवर्तित करें। अगर Mid(MyNumber, 2, 1) "0" तो Result = Result & GetTens(Mid(MyNumber, 2)) वरना परिणाम = परिणाम और amp; GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function Function GetTens(TensText) Dim Result As String Result = "" 'अस्थायी फ़ंक्शन मान को हटा दें। अगर वैल(लेफ्ट(टेन्सटेक्स्ट, 1)) = 1 तो 'अगर वैल्यू 10-19 के बीच है... केस वैल(टेन्सटेक्स्ट) चुनें केस 10: रिजल्ट = "टेन" केस 11: रिजल्ट = "इलेवन" केस 12: रिजल्ट = "ट्वेल्व " केस 13: परिणाम = "तेरह" केस 14: परिणाम = "चौदह" केस 15: परिणाम = "पंद्रह" केस 16: परिणाम = "सोलह" केस 17: परिणाम = "सत्रह" केस 18: परिणाम = "अठारह" केस 19: परिणाम = "उन्नीस" केस एल्स एंड सेलेक्ट एल्स 'अगर मान 20-99 के बीच है ... केस वैल चुनें (बाएं (टेन्सटेक्स्ट, 1)) केस 2: रिजल्ट = "ट्वेंटी" केस 3: रिजल्ट = "थर्टी" केस 4: परिणाम = "चालीस" स्थिति 5: परिणाम = "पचास" स्थिति 6: परिणाम = "साठ" स्थिति 7: परिणाम = "सत्तर" स्थिति 8: परिणाम = "अस्सी" स्थिति 9: परिणाम = "नब्बे" स्थिति अन्यथा परिणाम चुनें = परिणाम और amp; GetDigit _ (राइट (टेन्सटेक्स्ट, 1)) 'अपना स्थान प्राप्त करें। एंड इफ गेटटेन्स = रिजल्ट एंड फंक्शन फंक्शन गेटडिजिट (डिजिट) केस सेलेक्ट करेंवैल (डिजिट) केस 1: गेटडिजिट = "वन" केस 2: गेटडिजिट = "टू" केस 3: गेटडिजिट = "थ्री" केस 4: गेटडिजिट = "फोर" केस 5: गेटडिजिट = "फाइव" केस 6: गेटडिजिट = " छह" केस 7: गेटडिजिट = "सात" केस 8: गेटडिजिट = "आठ" केस 9: गेटडिजिट = "नौ" केस एल्स: गेटडिजिट = "" एंड सिलेक्ट एंड फंक्शन

6. Ctrl+S दबाएं अद्यतन कार्यपुस्तिका को सहेजने के लिए।

   आपको अपनी कार्यपुस्तिका को फिर से सहेजना होगा। जब आप किसी मैक्रो के साथ कार्यपुस्तिका को सहेजने का प्रयास करते हैं तो आपको संदेश मिलेगा " निम्न सुविधाओं को मैक्रो-मुक्त कार्यपुस्तिका में सहेजा नहीं जा सकता "

   

   नहीं पर क्लिक करें। एक नया संवाद, इस रूप में सहेजें विकल्प चुना। " प्रकार के रूप में सहेजें " फ़ील्ड में " एक्सेल मैक्रो-सक्षम कार्यपुस्तिका " विकल्प चुनें। आपकी वर्कशीट्स

   अब आप अपने एक्सेल दस्तावेज़ों में फंक्शन SpellNumber का उपयोग कर सकते हैं। उस सेल में =SpellNumber(A2) दर्ज करें जहां आपको शब्दों में लिखी गई संख्या प्राप्त करने की आवश्यकता है। यहाँ A2 संख्या या राशि के साथ सेल का पता है।

   यहाँ आप परिणाम देख सकते हैं:

   वोइला!

   SpellNumber फ़ंक्शन को जल्दी से अन्य सेल में कॉपी करें।

   यदि आप केवल 1 सेल नहीं, बल्कि संपूर्ण तालिका को बदलने की आवश्यकता है, अपने माउस कर्सर को सेल के निचले दाएं कोने में सूत्र के साथ तब तक रखें जब तक कि यह एक छोटे काले क्रॉस में न बदल जाए:

   बायाँ-क्लिक करें और इसे पूरे पर खींचें सूत्र भरने के लिए कॉलम। परिणाम देखने के लिए बटन छोड़ें:

   ध्यान दें। कृप्याध्यान रखें कि यदि आप किसी अन्य सेल के लिंक के साथ SpellNumber का उपयोग करते हैं, तो लिखित योग हर बार स्रोत सेल में नंबर बदलने पर अपडेट किया जाएगा।

   आप संख्या को सीधे फ़ंक्शन में भी दर्ज कर सकते हैं, इसके लिए उदाहरण, =SpellNumber(29.95) (29.95 - उद्धरण चिह्नों और डॉलर चिह्न के बिना)।

   Excel में संख्याओं को लिखने के लिए मैक्रो का उपयोग करने के नुकसान

   सबसे पहले, आपको अपने अनुसार कोड को संशोधित करने के लिए VBA पता होना चाहिए जरूरत है। प्रत्येक कार्यपुस्तिका के लिए कोड पेस्ट करना आवश्यक है, जहाँ आप इसे बदलने की योजना बना रहे हैं। अन्यथा, आपको मैक्रोज़ के साथ एक टेम्पलेट फ़ाइल बनाने और प्रत्येक प्रारंभ में इस फ़ाइल को लोड करने के लिए एक्सेल को कॉन्फ़िगर करने की आवश्यकता होगी।

   मैक्रो का उपयोग करने का मुख्य नुकसान यह है कि यदि आप किसी और को कार्यपुस्तिका भेजते हैं, तो यह व्यक्ति पाठ को तब तक देखें जब तक मैक्रो को कार्यपुस्तिका में निर्मित नहीं किया जाता है। और भले ही यह बिल्ट-इन हो, उन्हें अलर्ट मिलेगा कि कार्यपुस्तिका में मैक्रोज़ हैं।

   विशेष ऐड-इन का उपयोग करके संख्याओं को शब्दों में लिखें

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

   उपयोग के लिए तैयार होने के अलावा, टूल मात्रा को टेक्स्ट में बदलने में वास्तव में लचीला है:

   • आप इनमें से किसी एक का चयन कर सकते हैंनिम्नलिखित मुद्राएँ: USD, EUR, GBP, BIT, AUD।
   • आंशिक भाग को सेंट, पेनीज़ या बिटसेंट में लिखें।
   • परिणाम के लिए कोई भी टेक्स्ट केस चुनें: लोअर केस, अपर केस , टाइटल केस, या सेंटेंस केस।
   • दशमलव भाग को विभिन्न तरीकों से लिखें।
   • शून्य सेंट शामिल करें या छोड़ दें।

   ऐड-इन सभी आधुनिक का समर्थन करता है एक्सेल 365, एक्सेल 2029, एक्सेल 2016, एक्सेल 2013 और एक्सेल 2010 सहित संस्करण। कृपया ऊपर लिंक किए गए उत्पाद के होम पेज पर अन्य क्षमताओं का पता लगाने के लिए स्वतंत्र महसूस करें। :

   1. परिणाम के लिए एक खाली सेल का चयन करें।
   2. एबलबिट्स टैब पर, यूटिलिटीज समूह में, क्लिक करें स्पेल नंबर ।
   3. दिखाई देने वाली स्पिल नंबर संवाद विंडो में, निम्नलिखित चीजों को कॉन्फ़िगर करें:
      • अपना नंबर चुनें बॉक्स के लिए , वह सेल चुनें जिसमें वह राशि हो जिसे आप टेक्स्ट के रूप में लिखवाना चाहते हैं।
      • वांछित वर्तमान में , लेटर केस और दशमलव का तरीका निर्दिष्ट करें संख्या के भाग की वर्तनी होनी चाहिए।
      • निर्धारित करें कि शून्य सेंट शामिल करना है या नहीं।
      • चुनें कि परिणाम को मान या सूत्र के रूप में सम्मिलित करना है या नहीं।
   4. संवाद विंडो के नीचे, पूर्वावलोकन परिणाम। यदि आप अपना नंबर लिखे जाने के तरीके से खुश हैं, तो वर्तनी क्लिक करें। अन्यथा, भिन्न सेटिंग आज़माएं.

   नीचे दिया गया स्क्रीनशॉट डिफ़ॉल्ट दिखाता हैविकल्प और बी 2 में वर्तनी संख्या। कृपया फ़ॉर्मूला बार में एक फ़ॉर्मूला (अधिक सटीक रूप से, उपयोगकर्ता द्वारा परिभाषित फ़ंक्शन) पर ध्यान दें:

   और यह एक त्वरित प्रदर्शन है कि अन्य मुद्राओं को कैसे लिखा जा सकता है:

   टिप्स और नोट्स:

   • चूंकि वर्तनी संख्या ऐड-इन को इनवॉइस और अन्य वित्तीय दस्तावेजों जैसे वास्तविक जीवन के उपयोग के मामलों को संभालने के लिए डिज़ाइन किया गया था, यह केवल एक नंबर <6 को परिवर्तित कर सकता है>एक बार में।
   • संख्याओं के कॉलम की स्पेलिंग करने के लिए, पहले सेल में एक फॉर्मूला डालें, और फिर फॉर्मूला को नीचे कॉपी करें।
   • अगर संभावना है कि आपका स्रोत डेटा भविष्य में बदल सकता है, परिणाम को सूत्र के रूप में सम्मिलित करना सबसे अच्छा है, इसलिए यह मूल संख्या में परिवर्तन के रूप में स्वचालित रूप से अपडेट हो जाता है।
   • परिणाम को सूत्र के रूप में चुनते समय विकल्प, एक कस्टम उपयोगकर्ता परिभाषित फ़ंक्शन (यूडीएफ) डाला गया है। यदि आप अपनी कार्यपुस्तिका को किसी ऐसे व्यक्ति के साथ साझा करने की योजना बना रहे हैं जिसके पास अल्टीमेट सुइट स्थापित नहीं है, तो साझा करने से पहले सूत्रों को मूल्यों से बदलना याद रखें। , मैं कल्पना नहीं कर सकता कि आपको इसकी आवश्यकता क्यों हो सकती है। ज़रुरत पड़े तो... :)

   ऐसा प्रतीत होता है कि एक्सेल एमवीपी, जेरी लैथम ने WordsToDigits के रूप में इस तरह के एक्सेल उपयोगकर्ता परिभाषित फ़ंक्शन (यूडीएफ) बनाया है। यह अंग्रेजी के शब्दों को वापस संख्या में बदल देता है।

   यूडीएफ कोड देखने के लिए आप जैरी की वर्ड्सटूडिजिट्स वर्कबुक डाउनलोड कर सकते हैं। यहां आपको उनके उदाहरण भी मिलेंगे कि कैसे उपयोग करना हैसमारोह।

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