සුමා කුතුහලයෙන්

ඕනෑම අංකයක් පරිවර්තනය කරන VBA හි සූදානම් කළ පරිශීලක-නිර්වචනය කළ කාර්යයක් ඔබට පහතින් සොයාගත හැකිය 0 සිට 9 කිරීමට එහි පාඨමය නිරූපණයට, එනම් වචනවල ප්‍රමාණයෙන්. භාවිතයට පෙර, මෙම කාර්යය ඔබේ පොතට එක් කළ යුතුය. මේ වෙනුවෙන්:

1. යතුරුපුවරු කෙටිමඟ ඔබන්න ALT + F11දෘශ්‍ය මූලික සංස්කාරකය විවෘත කිරීමට
2. මෙනුව හරහා නව හිස් මොඩියුලයක් එක් කරන්න ඇතුල් කරන්න - මොඩියුලය
3. මෙම ශ්‍රිතයේ පෙළ එහි පිටපත් කර අලවන්න:

ශ්‍රිතය SUM(n ලෙස දෙගුණයක්) String Dim Nums1 ලෙස, Nums2, Nums3, Nums4 ප්‍රභේද අංක1 ලෙස = Array("", "එක", "දෙක", "තුන", "හතර", "පහ", "හය", "හත", "අට", "නවය") අංක2 = අරාව("", "දස", "විසි", "තිස්", "හතළිස්", "පනස්", "හැට", "හැත්තෑ", _ "අසූ ", "අනූ") Nums3 = Array("", "එකසිය", "දෙසිය", "තුන්සිය", "හාරසිය", "පන්සිය", "හයසිය", "හත්සිය", _ " අටසියයක්", "නවසියයක්") Nums4 = Array("", "එක", "දෙක", "තුන", "හතර", "පහ", "හය", "හත්", "අට", "නවය" ") Nums5 = Array("දහය" , "එකොළොස්", "දොළහ", "දහතුන", "දාහතර", _ "පහළහ", "දහසය", "දාහත", "දහඅට", "දහනවය") නම් 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= Class(n, 8) 'මිලියන පිරික්සන්න Case decmil Case 1 mil_txt = Nums5(mil ) & "මිලියන " GoTo www නඩුව 2 සිට 9 decmil_txt = Nums2(decmil) අවසානය තෝරන්න නඩුව mil Case 1 mil_txt = Nums1(mil) & "million" Case 2, 3, 4 mil_txt = Nums1(mil) & "million" නඩුව 5 සිට 20 mil_txt = Nums1(mil) සහ "මිලියන" අවසානය තෝරන්න www: sottys_txt = Nums3(sottys) ' දහස් ගණනක් පරීක්ෂා කරන්න සිද්ධි වෙනස් කරන්න නඩුව 1 tys_txt = Nums5(tys) & "දහස්" GoTo eee Case 2 Totx9 dectys_ Nums2(dectys) අවසානය තෝරන්න Case tys Case 0 නම් dectys > 0 එවිට tys_txt = Nums4(tys) & "දහස්" නඩුව 1 tys_txt = Nums4(tys) & "දහස්" නඩුව 2, 3, 4 tys4(සංඛ්‍යා =) & "දහස්" නඩුව 5 සිට 9 දක්වා tys_txt = Nums4(tys) & "දහස්" අවසන් තෝරන්න නම් dectys = 0 සහ tys = 0 සහ sottys <> 0 එවිට sottys_txt = sottys_txt & "දහස්" ee: sot3(sot_txt =) දස පරීක්ෂා කරන්න සිද්ධි දෙසැම්බර් නඩුව 1 ed_txt = Nums5(ed) GoTo rrr Case 2 සිට 9 dec_txt = Nums2(dec) අවසානය තෝරන්න ed_txt = Nums1 (ed) rrr: 'SUM IN SPEECH = miltxt & decmil_ සමඟ අවසාන පේළිය සාදන්න sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt End Function ' උපකාරක ශ්‍රිතය ඉලක්කම් ගණනින් උපුටා ගැනීම සඳහා පුද්ගලික ක්‍රියා පන්තිය(M, I) Class = Int(Int(M - (10 ^ I)) * Int(M / (M /) 10 ^ I))) / 10 ^ (I - 1)) අවසන් කාර්යය    

ගොනුව සුරකින්න (ඔබ සතුව Excel 2007 හෝ 2010 තිබේ නම්, ගොනු වර්ගය මැක්‍රෝ-සක්‍රීය කළ යුතුය, එනම් xlsm ආකෘතිය!) සහ Excel වෙත ආපසු යන්න. දැන් ඔබට සාමාන්‍ය ආකාරයෙන් වැඩ පත්‍රිකාවේ ඕනෑම කොටුවකට සාදන ලද ශ්‍රිතය ඇතුළත් කළ හැකිය - ක්‍රියාකාරී විශාරද (බොත්තම) හරහා f_x සූත්‍ර තීරුවේ, ප්‍රවර්ගය පරිශීලක අර්ථ දක්වා ඇත) හෝ සරලව එය සෛලය තුළ අතින් ටයිප් කිරීමෙන් සහ තර්කයක් ලෙස ප්‍රමාණය සමඟ කොටුව නියම කිරීමෙන්:

ඔබට ලැබුණු පෙළට සතයක් එකතු කිරීමට අවශ්‍ය නම්, ඔබට තරමක් සංකීර්ණ ඉදිකිරීමක් භාවිතා කළ හැකිය:

 u3d එකතුව ලිඛිතව (A3) සහ ” අඹරන්න. “&TEXT((A3-INTEGER(A100))*00;”XNUMX″)&”cop.” 

u3d එකතුව ලිඛිතව (A3) සහ ” අඹරන්න. "&TEXT((A3-INT(A100))*00;"XNUMX″)&"කොප්."

උදාහරණයක් ලෙස, අංක 35,15 සඳහා, ශ්‍රිතයේ ප්‍රති result ලය “රූබල් තිස් පහක් ලෙස පෙනෙනු ඇත. 15 kop."

• A more powerful version of the function with rubles and kopecks in / English from the PLEX add-on
• මැක්‍රෝස් යනු කුමක්ද, මැක්‍රෝ කේතය ඇතුළත් කළ යුත්තේ කොතැනද, ඒවා භාවිතා කරන්නේ කෙසේද