यस लेखमा म तपाईंलाई एक्सेल 2019, 2016, 2013 र अन्य संस्करणहरूमा मुद्रा नम्बरहरूलाई अंग्रेजी शब्दहरूमा रूपान्तरण गर्ने दुई द्रुत र नि:शुल्क तरिकाहरू देखाउनेछु।

Microsoft Excel एक उत्कृष्ट छ। यो र त्यो गणना गर्न कार्यक्रम। यो सुरुमा ठूला डाटा एरेहरू प्रशोधन गर्न विकसित गरिएको थियो। यद्यपि, यसले लेखा रेकर्डहरू जस्तै इनभ्वाइसहरू, मूल्याङ्कन वा ब्यालेन्स पानाहरू छिटो र प्रभावकारी रूपमा सिर्जना गर्न दिन्छ।

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

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

Excel को नवीनतम संस्करणहरूमा पनि हिज्जे नम्बरहरूको लागि निर्मित उपकरण छैन, अघिल्लो संस्करणहरू उल्लेख नगर्नुहोस्। तर त्यो हो जब एक्सेल साँच्चै राम्रो छ। तपाईं सधैं तिनीहरूका सबै

संयोजनहरू, VBA म्याक्रोहरू, वा तेस्रो-पक्ष एड-इनहरूमा सूत्रहरू प्रयोग गरेर यसको कार्यक्षमता सुधार गर्न सक्नुहुन्छ। शब्दहरूमा अंकहरू

र, सम्भवतः, तपाईंलाई आवश्यक पर्दछशब्दहरूलाई एक्सेलमा नम्बरहरूमा रूपान्तरण गर्नुहोस्

नोट। यदि तपाइँ पाठ रूपान्तरणमा नम्बर खोज्दै हुनुहुन्छ, जसको मतलब तपाइँ Excel ले तपाइँको नम्बर पाठको रूपमा हेर्न चाहनुहुन्छ भने, यो अलि फरक कुरा हो। यसका लागि, तपाईले TEXT प्रकार्य वा एक्सेलमा नम्बरहरूलाई पाठमा कसरी परिवर्तन गर्ने भनेर वर्णन गरिएका केही अन्य तरिकाहरू प्रयोग गर्न सक्नुहुन्छ।

संख्याहरूलाई शब्दहरूमा रूपान्तरण गर्न SpellNumber VBA म्याक्रो

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

तपाईंले "स्पेल नम्बर सूत्र" को रूपमा उल्लेख गरिएको म्याक्रो फेला पार्न सक्नुहुन्छ। जे होस्, यो सूत्र होइन, तर म्याक्रो प्रकार्य हो, वा थप सटीक हुन Excel प्रयोगकर्ता परिभाषित प्रकार्य (UDF)।

हिज्जे नम्बर विकल्पले डलर र सेन्ट लेख्न सक्षम छ। यदि तपाईंलाई फरक मुद्रा चाहिन्छ भने, तपाईंले आफ्नो नामको साथ " डलर " र " सेन्ट " परिवर्तन गर्न सक्नुहुन्छ।

यदि तपाईं VBA जानकार व्यक्ति हुनुहुन्न भने , तल तपाईले कोडको प्रतिलिपि पाउनुहुनेछ। यदि तपाइँ अझै यो क्रमबद्ध गर्न चाहनुहुन्न वा समय छैन भने, कृपया यो समाधान प्रयोग गर्नुहोस्।

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

   विकल्प स्पष्ट 'मुख्य प्रकार्य प्रकार्य SpellNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) as String Place(2) = " हजार " स्थान (3) = " मिलियन " स्थान(४) = "बिलियन" स्थान(५) = "ट्रिलियन" MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "।") यदि दशमलव स्थान > 0 त्यसपछि Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00" , 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do while MyNumber "" Temp = GetHundreds(दायाँ(MyNumber, 3)) यदि Temp "" तब डलर = Temp & स्थान (गणना) & डलर यदि लेन (MyNumber) > 3 त्यसपछि MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop चयन केस डलर केस "" डलर = "कुनै डलर छैन" केस "एक" डलर = "एक डलर" केस अन्य डलर = डलर र "डलर" अन्त्य चयन गर्नुहोस् केस सेन्ट केस चयन गर्नुहोस् "" सेन्ट = "र नो सेन्ट" केस "एक" सेन्ट = "र एक सेन्ट" केस अन्य सेन्ट = "र" र सेन्ट र "सेन्ट" अन्त्य चयन हिज्जे नम्बर = डलर र amp; Cents End प्रकार्य प्रकार्य GetHundreds(ByVal MyNumber) डिम नतिजा स्ट्रिङको रूपमा यदि Val(MyNumber) = 0 त्यसपछि प्रकार्य MyNumber = Right("000" & MyNumber, 3) बाहिर निस्कनुहोस् ' सय ठाउँमा रूपान्तरण गर्नुहोस्। यदि Mid(MyNumber, 1, 1) "0" तब नतिजा = GetDigit(Mid(MyNumber, 1, 1)) & " सय " अन्त्य यदि ' दश र एक स्थानलाई रूपान्तरण गर्नुहोस्। यदि Mid(MyNumber, 2, 1) "0" तब Result = नतिजा & GetTens(Mid(MyNumber, 2)) अन्यथा परिणाम = नतिजा & GetDigit(Mid(MyNumber, 3)) End यदि GetHundreds = परिणाम अन्त्य प्रकार्य प्रकार्य GetTens(TensText) स्ट्रिङ परिणामको रूपमा मधुरो परिणाम = "" ' अस्थायी प्रकार्य मान शून्य गर्नुहोस्। यदि Val(Left(TensText, 1)) = 1 त्यसपछि ' यदि मान 10-19 को बीचमा छ... केस Val(TensText) केस 10 चयन गर्नुहोस्: नतिजा = "दस" केस 11: नतिजा = "Eleven" केस 12: नतिजा = "बाह्र "केस 13: नतिजा = "तेरह" केस 14: नतिजा = "चौध" केस 15: नतिजा = "पन्ध्र" केस 16: नतिजा = "सोलह" केस 17: नतिजा = "सातह" केस 18: नतिजा = "अठार" केस 19: नतिजा = "उन्नाइस" केस अन्यथा अन्त्य 'अन्य चयन गर्नुहोस्' यदि मान 20-99 बीचमा छ... केस Val(बायाँ(दसपाठ, 1)) केस २: नतिजा = "बीस" केस ३: नतिजा = "तीस" केस ४: नतिजा = "चालीस" केस 5: नतिजा = "पचास" केस 6: नतिजा = "साठ" केस 7: नतिजा = "सत्तरी" केस 8: नतिजा = "असी" केस 9: नतिजा = "नब्बे" केस अन्यथा नतिजा चयन गर्नुहोस् = परिणाम & GetDigit _ (दायाँ(TensText, 1)) ' एक ठाउँ पुन: प्राप्त गर्नुहोस्। End If GetTens = नतिजा अन्त्य प्रकार्य प्रकार्य GetDigit(Digit) केस चयन गर्नुहोस्Val(Digit) केस 1: GetDigit = "One" Case 2: GetDigit = "Two" केस 3: GetDigit = "Three" केस 4: GetDigit = "चार" केस 5: GetDigit = "पाँच" केस 6: GetDigit = " छ" केस 7: GetDigit = "Seven" केस 8: GetDigit = "आठ" केस 9: GetDigit = "नौ" केस अन्य: GetDigit = "" End चयन अन्त्य प्रकार्य

6. Ctrl+S थिच्नुहोस् अद्यावधिक कार्यपुस्तिका बचत गर्न।

   तपाईंले आफ्नो कार्यपुस्तिका पुन: सुरक्षित गर्न आवश्यक हुनेछ। जब तपाइँ म्याक्रोको साथ कार्यपुस्तिका बचत गर्न प्रयास गर्नुहुन्छ तपाईले सन्देश प्राप्त गर्नुहुनेछ " निम्न सुविधाहरू म्याक्रो-मुक्त कार्यपुस्तिकामा बचत गर्न सकिँदैन "

   

   नम्बर क्लिक गर्नुहोस्। नयाँ संवाद, विकल्पको रूपमा बचत गर्नुहोस् रोज्नुहोस्। फिल्डमा " प्रकारको रूपमा बचत गर्नुहोस् " विकल्प छान्नुहोस् " Excel म्याक्रो-सक्षम कार्यपुस्तिका "।

   

मा SpellNumber म्याक्रो प्रयोग गर्नुहोस्। तपाईंको कार्यपत्रहरू

अब तपाईंले आफ्नो एक्सेल कागजातहरूमा प्रकार्य हिज्जे नम्बर प्रयोग गर्न सक्नुहुन्छ। कक्षमा =SpellNumber(A2) प्रविष्ट गर्नुहोस् जहाँ तपाईलाई शब्दहरूमा लेखिएको नम्बर प्राप्त गर्न आवश्यक छ। यहाँ A2 संख्या वा रकम भएको सेलको ठेगाना हो।

यहाँ तपाईंले नतिजा हेर्न सक्नुहुन्छ:

भोइला!

छिटो स्पेल नम्बर प्रकार्यलाई अन्य कक्षहरूमा प्रतिलिपि गर्नुहोस्।

यदि तपाईं पूरै तालिकालाई रूपान्तरण गर्न आवश्यक छ, केवल 1 कक्ष होइन, आफ्नो माउस कर्सरलाई सेलको तल्लो दायाँ कुनामा सूत्रको साथ राख्नुहोस् जबसम्म यो सानो कालो क्रसमा परिणत हुँदैन:

बायाँ क्लिक गर्नुहोस् र यसलाई तान्नुहोस्। सूत्र भर्नको लागि स्तम्भ। नतिजा हेर्नको लागि बटन रिलिज गर्नुहोस्:

नोट। कृपयाध्यानमा राख्नुहोस् कि यदि तपाइँ अर्को सेलको लिङ्कको साथ SpellNumber प्रयोग गर्नुहुन्छ भने, लिखित योग प्रत्येक पटक स्रोत कक्षमा नम्बर परिवर्तन गर्दा अद्यावधिक हुनेछ।

तपाईँ सिधै प्रकार्यमा नम्बर प्रविष्ट गर्न सक्नुहुन्छ, को लागी उदाहरण, =SpellNumber(29.95) (29.95 - बिना उद्धरण चिन्ह र डलर चिन्ह)।

एक्सेलमा नम्बरहरू हिज्जे गर्न म्याक्रो प्रयोग गर्ने बेफाइदाहरू

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

म्याक्रो प्रयोग गर्ने मुख्य बेफाइदा यो हो कि यदि तपाईंले कार्यपुस्तिका अरू कसैलाई पठाउनुभयो भने, यो व्यक्तिले गर्दैन। म्याक्रो कार्यपुस्तिकामा निर्मित नभएसम्म पाठ हेर्नुहोस्। र यदि यो बिल्ट-इन छ भने पनि, तिनीहरूले कार्यपुस्तिकामा म्याक्रोहरू छन् भन्ने अलर्ट प्राप्त गर्नेछन्।

विशिष्ट ऐड-इन प्रयोग गरेर शब्दहरूमा संख्याहरू हिज्जे गर्नुहोस्

एक्सेल प्रयोगकर्ताहरूका लागि जसलाई द्रुत रूपमा रकमहरू हिज्जे गर्न आवश्यक छ तर VBA सिक्न वा उपायहरू पत्ता लगाउन समय छैन, हामीले एउटा विशेष उपकरण सिर्जना गरेका छौं। जसले केही लोकप्रिय मुद्राहरूको लागि रकम-देखि-शब्द रूपान्तरण द्रुत रूपमा गर्न सक्छ। कृपया हाम्रो Ultimate Suite for Excel को पछिल्लो रिलीजमा समावेश गरिएको स्पेल नम्बर एड-इनलाई भेट्नुहोस्।

प्रयोगको लागि तयार हुनुको अलावा, यो उपकरण रकमहरूलाई पाठमा रूपान्तरण गर्नमा साँच्चै लचिलो छ:

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

एड-इनले सबै आधुनिकहरूलाई समर्थन गर्दछ Excel 365, Excel 2029, Excel 2016, Excel 2013, र Excel 2010 सहित संस्करणहरू। कृपया माथि लिङ्क गरिएको उत्पादनको गृह पृष्ठमा अन्य क्षमताहरू अन्वेषण गर्न नहिचकिचाउनुहोस्।

र अब, कार्यमा यो संख्या हिज्जे उपयोगिता हेरौं। :

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

तलको स्क्रिनसटले पूर्वनिर्धारित देखाउँछB2 मा विकल्प र हिज्जे संख्या। कृपया सूत्र पट्टीमा एउटा सूत्र (अधिक सटीक रूपमा, प्रयोगकर्ता-परिभाषित प्रकार्य) याद गर्नुहोस्:

र यो अन्य मुद्राहरू कसरी हिज्जे गर्न सकिन्छ भन्ने द्रुत प्रदर्शन हो:

सुझाव र नोटहरू:

• किनभने हिज्जे नम्बर एड-इन इनभ्वाइस र अन्य वित्तीय कागजातहरू जस्ता वास्तविक जीवन प्रयोगका केसहरू ह्यान्डल गर्न डिजाइन गरिएको थियो, यसले एउटा नम्बर <6 लाई मात्र रूपान्तरण गर्न सक्छ।>एक समयमा।
• संख्याहरूको स्तम्भ हिज्जे गर्न, पहिलो कक्षमा सूत्र घुसाउनुहोस्, र त्यसपछि सूत्रलाई तल प्रतिलिपि गर्नुहोस्।
• यदि त्यहाँ मौका छ भने तपाईंको स्रोत डेटा भविष्यमा परिवर्तन हुन सक्छ, यो नतिजालाई सूत्रको रूपमा घुसाउनु राम्रो हुन्छ, त्यसैले यो मूल संख्या परिवर्तन हुँदा स्वचालित रूपमा अद्यावधिक हुन्छ।
• नतिजालाई सूत्रको रूपमा चयन गर्दा विकल्प, अनुकूलन प्रयोगकर्ता-परिभाषित प्रकार्य (UDF) सम्मिलित गरिएको छ। यदि तपाइँ अल्टिमेट सुइट स्थापना नगरेको कसैसँग आफ्नो कार्यपुस्तिका साझेदारी गर्ने योजना बनाउनुहुन्छ भने, साझेदारी गर्नु अघि सूत्रहरूलाई मानहरूसँग प्रतिस्थापन गर्न नबिर्सनुहोस्।

रूपान्तरणलाई उल्टाउनुहोस् - अंग्रेजी शब्दहरूलाई सङ्ख्याहरूमा

प्रत्यक्ष रूपमा , म कल्पना गर्न सक्दिन किन तपाईंलाई यो आवश्यक पर्न सक्छ। केसमा मात्र... :)

यस्तो देखिन्छ कि एक्सेल MVP, जेरी ल्याथमले यस्तो एक्सेल प्रयोगकर्ता परिभाषित प्रकार्य (UDF) WordsToDigits बनाएको छ। यसले अङ्ग्रेजी शब्दहरूलाई फेरि नम्बरमा रूपान्तरण गर्छ।

तपाईले UDF कोड हेर्न Jerryको WordsToDigits कार्यपुस्तिका डाउनलोड गर्न सक्नुहुन्छ। यहाँ तपाईंले कसरी प्रयोग गर्ने भन्ने उनको उदाहरणहरू पनि पाउनुहुनेछसमारोह।

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