Ngezansi uzothola umsebenzi owenziwe ngomumo ochazwe ngumsebenzisi ku-VBA ohumusha noma iyiphi inombolo kusuka ku-0 kuya ku-9 ekumeleleni kwayo ngokombhalo, okungukuthi enanini lamagama. Ngaphambi kokusebenzisa, lo msebenzi kufanele wengezwe encwadini yakho. Kwalokhu:
- cindezela isinqamuleli sekhibhodi I-ALT + F11ukuvula i-Visual Basic Editor
- engeza imojuli entsha engenalutho ngemenyu Faka – Imojula
- kopisha futhi unamathisele umbhalo walo msebenzi lapho:
Umsebenzi I-SUM(n Ngokuphindwe Kabili) Njengeyunithi Yezinhlamvu Efiphala Izinombolo1, Izinombolo2, Izinombolo3, Izinombolo4 Njengezinombolo Ezihlukile1 = Uhlu("", "okukodwa", "okubili", "okuthathu", "okune", "okuhlanu", "isithupha", "isikhombisa", "isishiyagalombili", "isishiyagalolunye") Izinombolo2 = Izinhlu("", "ishumi", "amashumi amabili", "amashumi amathathu", "amashumi amane", "amashumi amahlanu", "amashumi ayisithupha", "amashumi ayisikhombisa", _ "amashumi ayisishiyagalombili ", "amashumi ayisishiyagalolunye") Izinombolo3 = Uhlu("", "ikhulu", "amakhulu amabili", "amakhulu amathathu", "amakhulu amane", "amakhulu amahlanu", "amakhulu ayisithupha", "amakhulu ayisikhombisa", _ " amakhulu ayisishiyagalombili", "amakhulu ayisishiyagalolunye") Nums4 = Uhlu("", "one", "two", "three", "four", "five", "isithupha", "isikhombisa", "isishiyagalombili", "ayisishiyagalolunye ") Nums5 = Array("ishumi " , "ishumi nanye", "ishumi nambili", "ishumi nantathu", "ishumi nane", _ "ishumi nanhlanu", "ishumi nesithupha", "ishumi nesikhombisa", "ishumi nesishiyagalombili", "ishumi nesishiyagalolunye") Uma n < = 0 Bese SUMWRITE = "zero" Phuma Ekupheleni Komsebenzi Uma 'uhlukanisa inombolo ngamadijithi usebenzisa umsebenzi womsizi Ikilasi ed = Ikilasi(n, 1) dec = Ikilasi(n, 2) sot = Ikilasi(n, 3) tys = Ikilasi (n, 4) dectys = Ikilasi(n , 5) sotty = Ikilasi(n, 6) mil = Ikilasi(n, 7) decmil= Ikilasi(n, 8) 'hlola izigidi Khetha Ikesi decmil Ikesi 1 mil_txt = Nums5(mil ) & "izigidi " GoTo www Case 2 To 9 decmil_txt = Nums2(decmil) End Khetha Khetha Ikesi mil Ikesi 1 mil_txt = Nums1(mil) & "isigidi" Icala 2, 3, 4 mil_txt = Nums1(mil) & "isigidi" Ikesi 5 ukuya ku-20 mil_txt = Nums1(mil) & "izigidi" Qeda Khetha www: sottys_txt = Nums3(sottys) ' hlola izinkulungwane Khetha Case dectys Ikesi 1 tys_txt = Nums5(tys) & "izinkulungwane" GoTo eee Case 2 To 9 dectys_txt (Nums_txt) Qeda Khetha Khetha Ikesi tys 2 Uma dectys > 0 Bese tys_txt = Nums0(tys) & "izinkulungwane" Ikesi 4 tys_txt = Nums1(tys) & "inkulungwane" Icala 4, 2, 3 tys_txt = Nums4(izinkulungwane) & " Ikesi 4 kuya ku-5 tys_txt = Nums9(tys) & "izinkulungwane" Qeda Khetha If dectys = 4 And tys = 0 And sottys <> 0 Bese sottys_txt = sottys_txt & "izinkulungwane" eee: sot_txt = Nums0(sot) Khetha 'isheke dec Case 3 ed_txt = Nums1(ed) GoTo rrr Case 5 To 2 dec_txt = Nums9(dec) End Khetha ed_txt = Nums2 (ed) rrr: 'yakha umugqa wokugcina nge-SUM IN SPEECH = decmil_ txt & mil_detxxt & sotty_detxt & sotty_detxt tys_txt & sot_txt & dec_txt & ed_txt End Fu nction ' umsebenzi womsizi ozokhishwa enanini lamadijithi Ikilasi Lomsebenzi Oyimfihlo(M, I) Ikilasi = I-Int(M - (1 ^ I) * Int(M / (10 ^ I))) / 10 ^ (I - 10)) Qeda umsebenzi Londoloza ifayela (uma une-Excel 2007 noma 2010, khona-ke uhlobo lwefayela kufanele lunikwe amandla amakhulu, okungukuthi ifomethi ye-xlsm!) bese ubuyela ku-Excel. Manje usungakwazi ukufaka umsebenzi owenziwe kunoma iyiphi iseli yekhasi lokusebenzela ngendlela evamile - ngokusebenzisa iwizadi yomsebenzi (inkinobho fx kubha yefomula, isigaba Ukuchazwa Komsebenzisi) noma ngokumane uyithayiphe kuseli mathupha futhi ucacise iseli nenani njengempikiswano:
Uma udinga ukwengeza amapeni embhalweni owamukelwe, ungasebenzisa ukwakhiwa okuyinkimbinkimbi:
i-u3d SUM IN WRITE (A3) & ” rub. "&TEXT((A3-INTEGER(A100))*00;"XNUMX″)&"iphoyisa."
i-u3d SUM IN WRITE (A3) & ” rub. "&TEXT((A3-INT(A100))*00;"XNUMX″)&"iphoyisa."
Khona-ke, isibonelo, inombolo 35,15, umphumela umsebenzi izobukeka "ruble amashumi amathathu nanhlanu. Amaphesenti angu-15."
- A more powerful version of the function with rubles and kopecks in / English from the PLEX add-on
- Ayini ama-macros, lapho ungafaka khona ikhodi ye-macro, ukuthi ungayisebenzisa kanjani