या लेखात मी तुम्हाला एक्सेल 2019, 2016, 2013 आणि इतर आवृत्त्यांमधील चलन क्रमांक इंग्रजी शब्दांमध्ये रूपांतरित करण्याचे दोन द्रुत आणि विनामूल्य मार्ग दाखवणार आहे.

Microsoft Excel एक उत्तम आहे. हे आणि ते मोजण्यासाठी प्रोग्राम. हे सुरुवातीला मोठ्या डेटा अॅरेवर प्रक्रिया करण्यासाठी विकसित करण्यात आले होते. तथापि, ते इन्व्हॉइस, मूल्यमापन किंवा ताळेबंद यांसारखे लेखांकन रेकॉर्ड जलद आणि प्रभावीपणे तयार करू देते.

अधिक किंवा कमी ठोस पेमेंट दस्तऐवजांमध्ये संख्यात्मक मूल्ये त्यांच्या शब्द स्वरूपासह डुप्लिकेट करणे आवश्यक आहे. हाताने लिहिलेल्या संख्यांपेक्षा टाइप केलेल्या संख्या खोट्या करणे खूप कठीण आहे. काही फसवणूक करणारे 3000 पैकी 8000 बनवण्याचा प्रयत्न करू शकतात, तर गुप्तपणे "तीन" ला "आठ" ने बदलणे जवळजवळ अशक्य आहे.

म्हणून तुम्हाला फक्त एक्सेलमधील संख्यांना शब्दांमध्ये रूपांतरित करण्याची गरज नाही (उदा. 123.45 ते "एकशे तेवीस, पंचेचाळीस"), परंतु डॉलर्स आणि सेंट्स (उदा. $२९.९५ "एकवीस डॉलर आणि नव्वद सेंट" म्हणून ), GBP साठी पाउंड आणि पेन्स, EUR साठी युरो आणि युरोसेंट, इ.

एक्सेलच्या नवीनतम आवृत्त्यांमध्ये देखील स्पेलिंग नंबरसाठी अंगभूत साधन नाही, पूर्वीच्या आवृत्त्यांचा उल्लेख नाही. पण जेव्हा एक्सेल खरोखर चांगले असते. तुम्ही त्यांच्या सर्व

संयोजनांमध्ये, VBA मॅक्रो किंवा तृतीय-पक्ष अॅड-इनमधील सूत्रे वापरून त्याची कार्यक्षमता नेहमी सुधारू शकता.

खाली तुम्हाला संख्या रूपांतरित करण्याचे दोन मार्ग सापडतील. शब्दांचे आकडे

आणि, शक्यतो, तुम्हाला याची आवश्यकता असू शकतेएक्सेल

टीप मधील शब्दांना संख्यांमध्ये रूपांतरित करा. जर तुम्ही नंबर टू मजकूर रूपांतरण शोधत असाल, म्हणजे एक्सेलने तुमचा नंबर मजकूर म्हणून पाहावा अशी तुमची इच्छा असेल, तर ती थोडी वेगळी गोष्ट आहे. यासाठी, तुम्ही TEXT फंक्शन किंवा एक्सेलमधील मजकूरात क्रमांक कसे बदलायचे यात वर्णन केलेले काही मार्ग वापरू शकता.

संख्या शब्दांमध्ये रूपांतरित करण्यासाठी SpellNumber VBA मॅक्रो

मी आधीच नमूद केल्याप्रमाणे , Microsoft ला या कार्यासाठी साधन जोडायचे नव्हते. तथापि, जेव्हा त्यांनी किती वापरकर्त्यांना याची आवश्यकता आहे हे पाहिले तेव्हा त्यांनी त्यांच्या वेबसाइटवर विशेष VBA मॅक्रो तयार केले आणि प्रकाशित केले. मॅक्रो त्याचे नाव SpellNumber सुचवते तेच करतो. माझ्या समोर आलेले इतर सर्व मॅक्रो मायक्रोसॉफ्ट कोडवर आधारित आहेत.

तुम्हाला "स्पेलनंबर फॉर्म्युला" म्हणून नमूद केलेला मॅक्रो सापडेल. तथापि, हे फॉर्म्युला नसून मॅक्रो फंक्शन आहे किंवा अधिक तंतोतंत Excel User defined function (UDF).

स्पेल नंबर पर्याय डॉलर आणि सेंट लिहिण्यास सक्षम आहे. तुम्हाला वेगळ्या चलनाची आवश्यकता असल्यास, तुम्ही तुमच्या नावासह " डॉलर " आणि " सेंट " बदलू शकता.

तुम्ही VBA जाणकार व्यक्ती नसल्यास , खाली तुम्हाला कोडची एक प्रत मिळेल. तुम्हाला अजूनही हे सोडवायला नको असेल किंवा तुमच्याकडे वेळ नसेल, तर कृपया हा उपाय वापरा.

1. जेथे तुम्हाला अंकांचे स्पेलिंग करायचे आहे ते वर्कबुक उघडा.
2. Alt दाबा व्हिज्युअल बेसिक एडिटर विंडो उघडण्यासाठी +F11.
3. तुमच्याकडे अनेक पुस्तके उघडली असल्यास, आवश्यक वर्कबुक वापरून सक्रिय असल्याचे तपासा.एडिटरच्या वरच्या डाव्या कोपर्यात प्रोजेक्ट्सची यादी (वर्कबुक घटकांपैकी एक निळ्या रंगाने हायलाइट केलेला आहे).
4. एडिटर मेनूमध्ये इन्सर्ट -> मॉड्युल वर जा. .
5. तुम्हाला YourBook - Module1 नावाची विंडो दिसली पाहिजे. खालील फ्रेममधील सर्व कोड निवडा आणि ते या विंडोमध्ये पेस्ट करा.

   पर्याय स्पष्ट 'मुख्य फंक्शन फंक्शन स्पेल नंबर( ByVal MyNumber) मंद डॉलर्स, सेंट्स, टेम्प मंद डेसिमलप्लेस, रिडीम प्लेस मोजा(9) स्ट्रिंग प्लेस म्हणून (2) = " हजार " ठिकाण (3) = " मिलियन " Place(4) = "अब्ज" स्थान(5) = "ट्रिलियन" MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) जर DecimalPlace > 0 नंतर सेंट = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00" , 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End if Count = 1 करत असताना MyNumber "" Temp = GetHundreds(Right(MyNumber, 3)) Temp "" असल्यास डॉलर्स = Temp & ठिकाण(गणना) & डॉलर इफ लेन(माय नंबर) > 3 नंतर MyNumber = Left(MyNumber, Len(MyNumber) - 3) बाकी MyNumber = "" End If Count = Count + 1 लूप निवडा केस डॉलर्स केस "" डॉलर्स = "नो डॉलर्स" केस "एक" डॉलर = "एक डॉलर" केस बाकी डॉलर्स = डॉलर्स & "डॉलर्स" एंड सिलेक्ट केस सेंट केस "" सेंट = "आणि सेंट नाही" केस "एक" सेंट = "आणि एक सेंट" केस बाकी सेंट = "आणि" & सेंट & "सेंट" समाप्त SpellNumber = डॉलर्स & सेंट्स एंड फंक्शन फंक्शन GetHundreds(ByVal MyNumber) स्ट्रिंग म्हणून मंद परिणाम जर Val(MyNumber) = 0 असेल तर फंक्शनमधून बाहेर पडा MyNumber = Right( "000" & MyNumber, 3) ' शेकडो ठिकाणी रूपांतरित करा. जर मिड(माय नंबर, 1, 1) "0" असेल तर निकाल = GetDigit(Mid(MyNumber, 1, 1)) & " शंभर " समाप्त तर ' दहा आणि एकाचे स्थान रूपांतरित करा. जर मिड(माय नंबर, 2, 1) "0" असेल तर परिणाम = निकाल & GetTens(Mid(MyNumber, 2)) अन्यथा परिणाम = निकाल & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = रिझल्ट एंड फंक्शन फंक्शन GetTens(TensText) डिम रिझल्ट स्ट्रिंग रिझल्ट म्हणून = "" ' तात्पुरते फंक्शन व्हॅल्यू रद्द करा. जर Val(Left(TensText, 1)) = 1 तर ' जर व्हॅल्यू 10-19 दरम्यान असेल... केस Val(TensText) केस 10 निवडा: निकाल = "दहा" केस 11: निकाल = "अकरा" केस 12: निकाल = "बारा" "केस 13: निकाल = "तेरा" केस 14: निकाल = "चौदा" केस 15: निकाल = "पंधरा" केस 16: निकाल = "सोळा" केस 17: निकाल = "सतरा" केस 18: निकाल = "अठरा" केस 19: निकाल = "एकोणीस" केस अन्यथा समाप्त 'अन्य निवडा' जर मूल्य 20-99 दरम्यान असेल... केस Val(डावीकडे(दहापाठ, 1)) निवडा केस 2: निकाल = "वीस" केस 3: निकाल = "तीस" केस 4: निकाल = "चाळीस" प्रकरण 5: निकाल = "पन्नास" प्रकरण 6: निकाल = "साठ" प्रकरण 7: निकाल = "सत्तर" प्रकरण 8: निकाल = "ऐंशी" प्रकरण 9: निकाल = "नव्वद" प्रकरण बाकी निकाल निवडा = परिणाम & GetDigit _ (उजवीकडे(TensText, 1)) ' जागा मिळवा. End If GetTens = Result End Function Function GetDigit(Digit) केस निवडाVal(Digit) केस 1: GetDigit = "One" केस 2: GetDigit = "Two" केस 3: GetDigit = "Three" केस 4: GetDigit = "चार" केस 5: GetDigit = "पाच" केस 6: GetDigit = " सिक्स" केस 7: GetDigit = "सात" केस 8: GetDigit = "आठ" केस 9: GetDigit = "नऊ" केस बाकी : GetDigit = "" End Select End Function

6. Ctrl+S दाबा अद्यतनित कार्यपुस्तिका जतन करण्यासाठी.

   तुम्हाला तुमचे वर्कबुक रिसेव्ह करावे लागेल. जेव्हा तुम्ही मॅक्रोसह कार्यपुस्तिका जतन करण्याचा प्रयत्न कराल तेव्हा तुम्हाला संदेश मिळेल " मॅक्रो-फ्री वर्कबुकमध्ये खालील वैशिष्ट्ये जतन केली जाऊ शकत नाहीत "

   

   नंबर क्लिक करा. नवीन संवाद, सेव्ह म्हणून पर्याय निवडला. " प्रकार म्हणून सेव्ह करा " फील्डमध्ये " एक्सेल मॅक्रो-सक्षम वर्कबुक " पर्याय निवडा.

   हे देखील पहा: एक्सेलमध्ये रिक्त सेल कसे मोजायचे
   

स्पेल नंबर मॅक्रो वापरा तुमची वर्कशीट्स

आता तुम्ही तुमच्या एक्सेल डॉक्युमेंटमध्ये स्पेल नंबर फंक्शन वापरू शकता. सेलमध्ये =SpellNumber(A2) एंटर करा जिथे तुम्हाला शब्दांमध्ये नंबर लिहायचा आहे. येथे A2 हा सेलचा क्रमांक किंवा रक्कम असलेला पत्ता आहे.

येथे तुम्ही परिणाम पाहू शकता:

Voila!

स्पेल नंबर फंक्शनची इतर सेलमध्ये द्रुतपणे कॉपी करा.

जर तुम्ही फक्त 1 सेल नव्हे तर संपूर्ण टेबल रूपांतरित करणे आवश्यक आहे, तुमचा माउस कर्सर सेलच्या खालच्या उजव्या कोपऱ्यात सूत्रासह ठेवा जोपर्यंत तो एका छोट्या काळ्या क्रॉसमध्ये बदलत नाही:

डावे-क्लिक करा आणि त्यास ड्रॅग करा सूत्र भरण्यासाठी स्तंभ. परिणाम पाहण्यासाठी बटण सोडा:

टीप. कृपयालक्षात ठेवा की तुम्ही दुसऱ्या सेलच्या लिंकसह SpellNumber वापरल्यास, प्रत्येक वेळी स्त्रोत सेलमधील क्रमांक बदलल्यावर लिखित बेरीज अद्यतनित केली जाईल.

तुम्ही थेट फंक्शनमध्ये क्रमांक देखील प्रविष्ट करू शकता. उदाहरणार्थ, =SpellNumber(29.95) (29.95 - अवतरण चिन्ह आणि डॉलर चिन्हाशिवाय).

एक्सेलमधील क्रमांकांचे स्पेलिंग करण्यासाठी मॅक्रो वापरण्याचे तोटे

प्रथम, तुम्हाला कोडमध्ये बदल करण्यासाठी VBA माहित असणे आवश्यक आहे. गरजा प्रत्येक वर्कबुकसाठी कोड पेस्ट करणे आवश्यक आहे, जिथे आपण ते बदलण्याची योजना आखली आहे. अन्यथा, तुम्हाला मॅक्रोसह टेम्पलेट फाइल तयार करावी लागेल आणि प्रत्येक प्रारंभी ही फाइल लोड करण्यासाठी एक्सेल कॉन्फिगर करावे लागेल.

मॅक्रो वापरण्याचा मुख्य गैरसोय हा आहे की तुम्ही कार्यपुस्तिका दुसर्‍या कोणाला पाठवल्यास, ही व्यक्ती करणार नाही जोपर्यंत मॅक्रो वर्कबुकमध्ये तयार होत नाही तोपर्यंत मजकूर पहा. आणि जरी ते अंगभूत असले तरी, त्यांना वर्कबुकमध्ये मॅक्रो असल्याची सूचना मिळेल.

विशिष्ट अॅड-इन वापरून शब्दांमध्ये अंकांचे स्पेलिंग करा

एक्सेल वापरकर्त्यांसाठी ज्यांना पटकन बेरीज लिहायची आहे परंतु त्यांना VBA शिकण्यासाठी किंवा उपाय शोधण्यासाठी वेळ नाही, आम्ही एक विशेष साधन तयार केले आहे. जे काही लोकप्रिय चलनांसाठी त्वरीत रक्कम-ते-शब्द रूपांतरण करू शकते. कृपया आमच्या Ultimate Suite for Excel च्या नवीनतम रिलीझसह समाविष्ट केलेल्या स्पेल नंबर अॅड-इनला भेटा.

वापरण्यासाठी तयार असण्यासोबतच, हे साधन मजकुरात रक्कम रूपांतरित करण्यात खरोखर लवचिक आहे:

• तुम्ही यापैकी एक निवडू शकताखालील चलने: USD, EUR, GBP, BIT, AUD.
• सेंट, पेनी किंवा बिटसेंटमध्ये अंशात्मक भागाचे उच्चार करा.
• परिणामासाठी कोणताही मजकूर केस निवडा: लोअर केस, अपर केस , शीर्षक केस, किंवा वाक्य केस.
• दशांश भागाचे उच्चार वेगवेगळ्या प्रकारे करा.
• शून्य सेंट समाविष्ट करा किंवा वगळा.

अॅड-इन सर्व आधुनिकांना समर्थन देते एक्सेल 365, एक्सेल 2029, एक्सेल 2016, एक्सेल 2013 आणि एक्सेल 2010 सह आवृत्त्या. कृपया वर लिंक केलेल्या उत्पादनाच्या मुख्यपृष्ठावर इतर क्षमता एक्सप्लोर करा.

आणि आता, ही नंबर स्पेलिंग उपयुक्तता कृतीमध्ये पाहू :

1. परिणामासाठी रिक्त सेल निवडा.
2. Ablebits टॅबवर, उपयोगिता गटात, क्लिक करा स्पेल नंबर .
3. दिसणाऱ्या स्पिल नंबर डायलॉग विंडोमध्ये, खालील गोष्टी कॉन्फिगर करा:
   • तुमचा नंबर निवडा बॉक्ससाठी , तुम्हाला मजकूर म्हणून लिहायची असलेली रक्कम असलेला सेल निवडा.
   • इच्छित सध्या , अक्षर केस आणि मार्ग दशांश निर्दिष्ट करा संख्येचा भाग स्पेलिंग असावा.
   • शून्य सेंट समाविष्ट करायचे की नाही ते परिभाषित करा.
   • परिणाम मूल्य किंवा सूत्र म्हणून समाविष्ट करायचे की नाही ते निवडा.
4. संवाद विंडोच्या तळाशी, परिणामाचे पूर्वावलोकन करा . तुमचा नंबर ज्या पद्धतीने लिहिला आहे त्यावर तुम्हाला आनंद वाटत असेल, तर स्पेल वर क्लिक करा. अन्यथा, भिन्न सेटिंग्ज वापरून पहा.

खालील स्क्रीनशॉट डीफॉल्ट दर्शवितोB2 मधील निवडी आणि शब्दलेखन संख्या. कृपया फॉर्म्युला बारमध्ये एक सूत्र (अधिक तंतोतंत, वापरकर्ता-परिभाषित कार्य) लक्षात घ्या:

आणि इतर चलनांचे स्पेलिंग कसे केले जाऊ शकते याचे हे द्रुत प्रात्यक्षिक आहे:

टिपा आणि नोट्स:

• कारण स्पेल नंबर अॅड-इन इनव्हॉइस आणि इतर आर्थिक दस्तऐवज यांसारख्या वास्तविक जीवनातील वापर प्रकरणे हाताळण्यासाठी डिझाइन केले होते, ते केवळ एक नंबर <6 रूपांतरित करू शकते>एका वेळी.
• संख्यांचा स्तंभ शब्दलेखन करण्यासाठी, पहिल्या सेलमध्ये एक सूत्र घाला आणि नंतर सूत्र खाली कॉपी करा.
• अशी शक्यता असल्यास तुमचा स्रोत डेटा भविष्यात बदलू शकतो, निकाल फॉर्म्युला म्हणून टाकणे उत्तम आहे, त्यामुळे मूळ संख्या बदलल्यावर तो आपोआप अपडेट होतो.
• निकाल सूत्र म्हणून निवडताना पर्याय, एक सानुकूल वापरकर्ता-परिभाषित कार्य (UDF) घातला आहे. जर तुम्ही तुमचे कार्यपुस्तक एखाद्या व्यक्तीसोबत शेअर करण्याची योजना आखत असाल ज्याच्याकडे अल्टीमेट सूट स्थापित नसेल, तर शेअर करण्यापूर्वी सूत्रे मूल्यांसह पुनर्स्थित करणे लक्षात ठेवा.

उलट रूपांतरण - इंग्रजी शब्द संख्यांमध्ये

मोकळेपणाने , मी कल्पना करू शकत नाही की तुम्हाला याची आवश्यकता का असू शकते. फक्त बाबतीत... :)

असे दिसते की एक्सेल एमव्हीपी, जेरी लॅथम यांनी असे एक्सेल यूजर डिफाइंड फंक्शन (UDF) WordsToDigits तयार केले आहे. ते इंग्रजी शब्दांना परत संख्येत रूपांतरित करते.

तुम्ही UDF कोड पाहण्यासाठी Jerry चे WordsToDigits वर्कबुक डाउनलोड करू शकता. येथे आपण कसे वापरावे त्याची उदाहरणे देखील सापडतीलकार्य

तुम्ही " नमुना नोंदी " शीटवर फंक्शन कसे कार्य करते ते पाहू शकता, जिथे तुम्ही तुमची स्वतःची उदाहरणे देखील टाकण्यास सक्षम असाल. तुम्ही तुमच्या दस्तऐवजांमध्ये WordsToDigits वापरण्याची योजना करत असल्यास, कृपया कळवा की या फंक्शनमध्ये निर्बंध आहेत. उदाहरणार्थ, ते शब्दांमध्ये प्रविष्ट केलेले अपूर्णांक ओळखत नाही. तुम्हाला सर्व तपशील " माहिती " शीटवर आढळतील.