സുമ കൗതുകത്തിൽ

ഏത് നമ്പറും വിവർത്തനം ചെയ്യുന്ന 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 = ക്ലാസ് (n, 4) dectys = Class(n, 5) sottys = Class(n, 6) mil = Class(n, 7) decmil= ക്ലാസ്(n, 8) 'ദശലക്ഷക്കണക്കിന് പരിശോധിക്കുക കേസ് decmil കേസ് തിരഞ്ഞെടുക്കുക 1 mil_txt = Nums5(mil ) & "millions " GoTo www Case 2 മുതൽ 9 decmil_txt = Nums2(decmil) അവസാനം തിരഞ്ഞെടുക്കുക കേസ് മിൽ കേസ് 1 mil_txt = Nums1(mil) & "million" Case 2, 3, 4 mil_txt = Nums1(mil) & "million" കേസ് 5 മുതൽ 20 mil_txt = Nums1(mil) & "millions" അവസാനം തിരഞ്ഞെടുക്കുക www: sottys_txt = Nums3(sottys) ' ആയിരക്കണക്കിന് തിരഞ്ഞെടുക്കുക കേസ് dectys Case 1 tys_txt = Nums5(tys) & "ആയിരങ്ങൾ" GoTo eee Case 2 Totx9 Nums2(dectys) അവസാനം തിരഞ്ഞെടുക്കുക Case tys Case 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(sot_txt =) പത്ത് പരിശോധിക്കുക കേസ് ഡിസം കേസ് 3 ed_txt = Nums1(ed) GoTo rrr Case 5 മുതൽ 2 dec_txt = Nums9(dec) അവസാനം തിരഞ്ഞെടുക്കുക ed_txt = Nums2 (ed) rrr: 'SUM IN SPEECH = miltxt & decmil_ ഉപയോഗിച്ച് അവസാന വരി രൂപപ്പെടുത്തുക sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt എൻഡ് ഫംഗ്ഷൻ 'ഹെൽപ്പർ ഫംഗ്ഷൻ അക്കങ്ങളുടെ എണ്ണത്തിൽ നിന്ന് വേർതിരിച്ചെടുക്കാൻ സ്വകാര്യ ഫംഗ്ഷൻ ക്ലാസ്(M, I) Class = Int(M - (1 ^ I) * Int(M / (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
• എന്താണ് മാക്രോകൾ, മാക്രോ കോഡ് എവിടെ ചേർക്കണം, അവ എങ്ങനെ ഉപയോഗിക്കാം