कुतूहलात सुमा

खाली तुम्हाला VBA मध्ये एक रेडीमेड वापरकर्ता-परिभाषित कार्य मिळेल जे कोणत्याही संख्येचे भाषांतर करते 0 पासून 9 करण्यासाठी त्याच्या शाब्दिक प्रतिनिधित्वामध्ये, म्हणजे शब्दांमधील रकमेमध्ये. वापरण्यापूर्वी, हे कार्य आपल्या पुस्तकात जोडले जाणे आवश्यक आहे. यासाठी:

1. कीबोर्ड शॉर्टकट दाबा ALT + F11व्हिज्युअल बेसिक एडिटर उघडण्यासाठी
2. मेनूद्वारे नवीन रिक्त मॉड्यूल जोडा घाला - मॉड्यूल
3. या फंक्शनचा मजकूर कॉपी आणि पेस्ट करा:

फंक्शन SUM(n म्‍हणून दुहेरी) स्‍ट्रिंग मंद अंक1, Nums2, Nums3, Nums4 म्‍हणून variant Nums1 = Array("", "एक", "दोन", "तीन", "चार", "पाच", "सहा", "सात", "आठ", "नऊ") संख्या2 = अॅरे("", "दहा", "वीस", "तीस", "चाळीस", "पन्नास", "साठ", "सत्तर", _ "ऐंशी" ", "नव्वद") संख्या3 = अॅरे("", "एकशे", "दोनशे", "तीनशे", "चारशे", "पाचशे", "सहाशे", "सातशे", _ " आठशे", "नऊशे") Nums4 = अॅरे("", "एक", "दोन", "तीन", "चार", "पाच", "सहा", "सात", "आठ", नऊ ") Nums5 = Array("दहा" , "अकरा", "बारा", "तेरा", "चौदा", _ "पंधरा", "सोळा", "सतरा", "अठरा", "उणीस") जर n < = 0 नंतर SUMWRITE = "शून्य" एक्झिट फंक्शन एंड जर ' हेल्पर फंक्शन वापरून संख्येला अंकांमध्ये विभाजित करा Class ed = Class(n, 1) dec = Class(n, 2) sot = Class(n, 3) tys = वर्ग (n, 4) dectys = वर्ग(n, 5) sottys = वर्ग(n, 6) mil = वर्ग(n, 7) decmil= वर्ग(n, 8) ' लाखो तपासा केस निवडा decmil केस 1 mil_txt = संख्या5(मिल ) & "दशलक्ष" GoTo www केस 2 ते 9 decmil_txt = संख्या2(decmil) End निवडा केस mil केस 1 mil_txt = Nums1(mil) & "million " केस 2, 3, 4 mil_txt = संख्या1(mil) & "दशलक्ष" केस 5 ते 20 mil_txt = Nums1(mil) & " millions " End www निवडा: sottys_txt = Nums3(sottys) ' हजारो तपासा केस dectys केस 1 tys_txt = Nums5(tys) आणि "हजारों" GoTo eee केस 2 ते 9 dectys = Nums2(dectys) End निवडा केस tys केस 0 निवडा जर dectys > 0 नंतर tys_txt = Nums4(tys) & "हजार" केस 1 tys_txt = Nums4(tys) & "हजार" केस 2, 3, 4 tys_txts = Nums4 & "हजारों " केस 5 ते 9 tys_txt = Nums4(tys) & "हजारों" End निवडा जर dectys = 0 आणि tys = 0 आणि sottys <> 0 नंतर sottys_txt = sottys_txt & "हजार" eee: sot_txt (tys) = 'Nums3 दहा तपासा केस निवडा dec केस 1 ed_txt = Nums5(ed) GoTo rrr केस 2 ते 9 dec_txt = Nums2(dec) End निवडा ed_txt = Nums1 (ed) rrr: 'SUM IN SPEECH = decmil_txt & सह अंतिम पंक्ती तयार करा sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt End Function ' हेल्पर फंक्शन अंकांच्या संख्येतून काढण्यासाठी Private Function Class(M, I) वर्ग = Int(Int(M - (10 ^ I)) * Int(M / ( 10 ^ I))) / 10 ^ (I - 1)) समाप्ती कार्य    

फाइल सेव्ह करा (जर तुमच्याकडे एक्सेल 2007 किंवा 2010 असेल, तर फाइल प्रकार मॅक्रो-सक्षम असणे आवश्यक आहे, म्हणजे xlsm फॉरमॅट!) आणि Excel वर परत या. आता तुम्ही तयार केलेले फंक्शन वर्कशीटच्या कोणत्याही सेलमध्ये नेहमीच्या पद्धतीने समाविष्ट करू शकता - फंक्शन विझार्डद्वारे (बटण f_x सूत्र बार, श्रेणी मध्ये वापरकर्ता परिभाषित) किंवा फक्त सेलमध्ये मॅन्युअली टाइप करून आणि वितर्क म्हणून सेल निर्दिष्ट करून:

आपल्याला प्राप्त झालेल्या मजकूरात पेनी जोडण्याची आवश्यकता असल्यास, आपण थोडे अधिक जटिल बांधकाम वापरू शकता:

 u3d SUM IN RITE (A3) आणि ” घासणे. "&TEXT((A3-पूर्णांक(A100))*00;"XNUMX″)&"cop." 

u3d SUM IN RITE (A3) आणि ” घासणे. "&TEXT((A3-INT(A100))*00;"XNUMX″)&"cop."

नंतर, उदाहरणार्थ, 35,15 क्रमांकासाठी, फंक्शनचा परिणाम "पस्तीस रूबल" सारखा दिसेल. 15 kop.”

• PLEX ॲड-ऑन वरून / इंग्रजीमध्ये रूबल आणि कोपेक्ससह फंक्शनची अधिक शक्तिशाली आवृत्ती
• मॅक्रो म्हणजे काय, मॅक्रो कोड कुठे टाकायचा, कसा वापरायचा