కర్సివ్ లో సుమ

క్రింద మీరు VBAలో ​​ఏదైనా సంఖ్యను అనువదించే రెడీమేడ్ యూజర్-డిఫైన్డ్ ఫంక్షన్‌ను కనుగొంటారు 0 నుండి 9 వరకు దాని వచన ప్రాతినిధ్యంలో, అంటే పదాలలో మొత్తంలో. ఉపయోగించే ముందు, ఈ ఫంక్షన్ తప్పనిసరిగా మీ పుస్తకానికి జోడించబడాలి. దీని కొరకు:

1. కీబోర్డ్ సత్వరమార్గాన్ని నొక్కండి ALT + F11విజువల్ బేసిక్ ఎడిటర్‌ని తెరవడానికి
2. మెను ద్వారా కొత్త ఖాళీ మాడ్యూల్ జోడించండి చొప్పించు - మాడ్యూల్
3. ఈ ఫంక్షన్ యొక్క వచనాన్ని అక్కడ కాపీ చేసి అతికించండి:

ఫంక్షన్ SUM(n రెట్టింపు) స్ట్రింగ్ డిమ్ సంఖ్యలు1, సంఖ్యలు2, సంఖ్యలు3, సంఖ్యలు4 వేరియంట్ సంఖ్యలు1 = అర్రే("", "ఒకటి", "రెండు", "మూడు", "నాలుగు", "ఐదు", "ఆరు", "ఏడు", "ఎనిమిది", "తొమ్మిది") సంఖ్యలు2 = అర్రే("", "పది", "ఇరవై", "ముప్పై", "నలభై", "యాభై", "అరవై", "డెబ్బై", _ "ఎనభై ", "తొంభై") సంఖ్యలు3 = అర్రే("", "వంద", "రెండు వందలు", "మూడు వందలు", "నాలుగు వందలు", "ఐదు వందలు", "ఆరు వందలు", "ఏడు వందలు", _ " ఎనిమిది వందలు", "తొమ్మిది వందలు") సంఖ్యలు4 = అర్రే("", "ఒకటి", "రెండు", "మూడు", "నాలుగు", "ఐదు", "ఆరు", "ఏడు", "ఎనిమిది", "తొమ్మిది" ") సంఖ్యలు5 = అర్రే("పది " , "పదకొండు", "పన్నెండు", "పదమూడు", "పద్నాలుగు", _ "పదిహేను", "పదహారు", "పదిహేడు", "పద్దెనిమిది", "పంతొమ్మిది") అయితే n < = 0 అప్పుడు SUMWRITE = "సున్నా" నిష్క్రమణ ఫంక్షన్ ముగింపు ఉంటే 'హెల్పర్ ఫంక్షన్ ఉపయోగించి సంఖ్యను అంకెలుగా విభజించండి Class ed = Class(n, 1) dec = Class(n, 2) sot = Class(n, 3) tys = Class (n, 4) dectys = Class(n , 5) sottys = Class(n, 6) mil = Class(n, 7) decmil= క్లాస్(n, 8) 'మిలియన్స్ చెక్ చేయండి కేస్ decmil కేస్ 1 mil_txt = Nums5(mil) ) & "మిలియన్స్ " GoTo www కేస్ 2 నుండి 9 decmil_txt = Nums2(decmil) ముగింపు ఎంచుకోండి కేస్ మిల్ కేస్ 1 mil_txt = Nums1(mil) & "million" కేస్ 2, 3, 4 mil_txt = Nums1(mil) & "million" కేస్ 5 నుండి 20 mil_txt = Nums1(mil) & "millions" ముగింపు ఎంచుకోండి www: sottys_txt = Nums3(sottys) ' వేలని తనిఖీ చేయండి కేస్ డిక్టీస్ కేస్ 1 tys_txt = Nums5(tys) & "వేలాది" GoTo eee Case 2 Totx9 dectys Nums2(dectys) ముగింపు ఎంచుకోండి కేస్ tys కేస్ 0 అయితే dectys > 0 ఆపై tys_txt = Nums4(tys) & "వేలాది" కేస్ 1 tys_txt = Nums4(tys) & "వెయ్యి" కేస్ 2, 3, 4 tys_txt =) & "వేలాది" కేస్ 4 నుండి 5 tys_txt = Nums9(tys) & "వేలాది" ముగింపు ఎంచుకోండి ఉంటే dectys = 4 మరియు tys = 0 మరియు sottys <> 0 అప్పుడు sottys_txt = sottys_txt & "వేలాది" ee: sot0(st_txt =) పదాలను తనిఖీ చేయండి కేస్ డిసెంబరు కేస్ 3 ed_txt = Nums1(ed) GoTo rrr కేస్ 5 నుండి 2 dec_txt = Nums9(dec) ముగింపు ఎంచుకోండి ed_txt = Nums2 (ed) rrr: 'SUM IN SPEECH = milttx decmil_తో చివరి వరుసను రూపొందించండి sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt ఎండ్ ఫంక్షన్ 'అంకెల సంఖ్య నుండి సంగ్రహించడానికి సహాయక ఫంక్షన్ ప్రైవేట్ ఫంక్షన్ క్లాస్ (M, I) Class = Int(Int(M - (1 ^ I)) * Int(M / 10 ^ I))) / 10 ^ (I - 10)) ముగింపు ఫంక్షన్    

ఫైల్‌ను సేవ్ చేయండి (మీకు Excel 2007 లేదా 2010 ఉంటే, ఫైల్ రకం తప్పనిసరిగా స్థూల-ప్రారంభించబడి ఉండాలి, అంటే xlsm ఫార్మాట్!) మరియు Excelకి తిరిగి వెళ్లండి. ఇప్పుడు మీరు సృష్టించిన ఫంక్షన్‌ను వర్క్‌షీట్‌లోని ఏదైనా సెల్‌లోకి సాధారణ పద్ధతిలో చొప్పించవచ్చు - ఫంక్షన్ విజార్డ్ (బటన్ ద్వారా f_x ఫార్ములా బార్‌లో, వర్గం వినియోగాదారునిచే నిర్వచించబడినది) లేదా సెల్‌లో మాన్యువల్‌గా టైప్ చేసి, సెల్‌ను ఆర్గ్యుమెంట్‌గా మొత్తంతో పేర్కొనడం ద్వారా:

మీరు అందుకున్న వచనానికి పెన్నీలను జోడించాల్సిన అవసరం ఉంటే, మీరు కొంచెం క్లిష్టమైన నిర్మాణాన్ని ఉపయోగించవచ్చు:

 u3d SUM ఇన్ రైట్ (A3) & ”రబ్. “&TEXT((A3-INTEGER(A100))*00;”XNUMX″)&”కాప్.” 

u3d SUM ఇన్ రైట్ (A3) & ”రబ్. “&TEXT((A3-INT(A100))*00;”XNUMX″)&”కాప్.”

అప్పుడు, ఉదాహరణకు, 35,15 సంఖ్య కోసం, ఫంక్షన్ యొక్క ఫలితం “ముప్పై ఐదు రూబిళ్లు. 15 కాప్."

• A more powerful version of the function with rubles and kopecks in / English from the PLEX add-on
• మాక్రోలు అంటే ఏమిటి, మాక్రో కోడ్‌ను ఎక్కడ చొప్పించాలి, వాటిని ఎలా ఉపయోగించాలి