Hawn taħt għandek issib funzjoni lesta definita mill-utent fil-VBA li tittraduċi kwalunkwe numru minn 0 għal 9 fir-rappreżentazzjoni testwali tagħha, jiġifieri fl-ammont fi kliem. Qabel l-użu, din il-funzjoni trid tiġi miżjuda mal-ktieb tiegħek. Għal din:
- agħfas is-shortcut tat-tastiera ALT + F11biex tiftaħ l-Editur Visual Basic
- żid modulu vojt ġdid permezz tal-menu Daħħal – Modulu
- Ikkopja u waħħal it-test ta' din il-funzjoni hemmhekk:
Funzjoni SUM(n As Double) As String Dim Nums1, Nums2, Nums3, Nums4 Bħala Varjant Nums1 = Array ("", "wieħed", "tnejn", "tlieta", "erba", "ħamsa", "sitta", "sebgħa", "tmienja", "disgħa") Nums2 = Array ("", "għaxra", "għoxrin", "tletin", "erbgħin", "ħamsin", "sittin", "sebgħin", _ "tmenin ", "disgħin") Nums3 = Array ("", "mija", "mitejn", "tliet mija", "erba mija", "ħames mija", "sitt mija", "seba mija", _ " tmien mija", "disa' mija") Nums4 = Array ("", "wieħed", "tnejn", "tlieta", "erbgħa", "ħamsa", "sitta", "sebgħa", "tmienja", "disgħa ") Nums5 = Array ("għaxra " , "ħdax", "tnax", "tlettax", "erbatax", _ "ħmistax", "sittax", "sbatax", "tmintax", "dsatax") Jekk n < = 0 Imbagħad SUMWRITE = "żero" Ħruġ Funzjoni Tmiem Jekk 'taqsam in-numru f'ċifri billi tuża l-funzjoni helper Klassi ed = Klassi (n, 1) dec = Klassi (n, 2) sot = Klassi (n, 3) tys = Klassi (n, 4) dectys = Class(n , 5) sottys = Class(n, 6) mil = Class(n, 7) decmil= Class(n, 8) 'check millions Select Case decmil Case 1 mil_txt = Nums5(mil ) & "miljuni " Mur www Każ 2 Sa 9 decmil_txt = Nums2(decmil) Tmiem Agħżel Każ mil Każ 1 mil_txt = Nums1(mil) & "miljun " Każ 2, 3, 4 mil_txt = Nums1 (mil) & "miljun" Każ 5 sa 20 mil_txt = Nums1(mil) & "miljuni " Tmiem Agħżel www: sottys_txt = Nums3(sottys) ' iċċekkja l-eluf Agħżel Kawża dectys Każ 1 tys_txt = Nums5(tys) & "eluf" GoTo eee Każ 2 Sa 9 dectys_txtdectys_txtdectys) Tmiem Agħżel Agħżel Każ tys Każ 2 Jekk dectys > 0 Imbagħad tys_txt = Nums0(tys) & "eluf " Każ 4 tys_txt = Nums1(tys) & "elf " Każ 4, 2, 3 tys_txt = Nums4(tys) & "th Każ 4 Sa 5 tys_txt = Nums9(tys) & "eluf" Tmiem Agħżel Jekk dectys = 4 U tys = 0 U sottys <> 0 Imbagħad sottys_txt = sottys_txt & "eluf" eee: sot_txt = Numscheck (sot) Agħżel Każ ' dec Każ 0 ed_txt = Nums3(ed) GoTo rrr Każ 1 Sa 5 dec_txt = Nums2(dec) Tmiem Agħżel ed_txt = Nums9 (ed) rrr: 'ifforma l-aħħar ringiela b'SUM IN SPEECH = decmil_ txt & mil_txt & sottyc_tts & sottyc_ tys_txt & sot_txt & dec_txt & ed_txt Tmiem Fu nction ' funzjoni helper biex tiġi estratta min-numru ta' ċifri Klassi tal-Funzjoni Privata (M, I) Klassi = Int (Int (M - (2 ^ I) * Int (M / (1 ^ I))) / 10 ^ (I - 10)) Tmiem Funzjoni Issejvja l-fajl (jekk għandek Excel 2007 jew 2010, allura t-tip ta' fajl irid ikun makro-attivat, jiġifieri format xlsm!) u rritorna għal Excel. Issa tista' daħħal il-funzjoni maħluqa fi kwalunkwe ċellula tal-worksheet bil-mod tas-soltu - permezz tal-wizard tal-funzjoni (buttuna fx fil-formula bar, kategorija Iddefinit mill-Utent) jew sempliċement billi ttajpjaha fiċ-ċellula manwalment u tispeċifika ċ-ċellula bl-ammont bħala argument:
Jekk għandek bżonn iżżid pennies mat-test riċevut, allura tista 'tuża kostruzzjoni kemmxejn aktar kumplessa:
u3d SOMMA BIL-KITBA (A3) & ” togħrok. “&TEXT((A3-INTEGER(A100))*00;”XNUMX″)&”cop.”
u3d SOMMA BIL-KITBA (A3) & ” togħrok. “&TEXT((A3-INT(A100))*00;”XNUMX″)&”cop.”
Imbagħad, pereżempju, għan-numru 35,15, ir-riżultat tal-funzjoni se jidher bħal "ħamsa u tletin rublu. 15 kop.”
- A more powerful version of the function with rubles and kopecks in / English from the PLEX add-on
- X'inhuma macros, fejn tiddaħħal il-kodiċi makro, kif tużahom