Ka tlase u tla fumana mosebetsi o hlophisitsoeng o hlalositsoeng ke mosebelisi ho VBA o fetolelang nomoro efe kapa efe ho tloha 0 ho ea 9 tlhalosong ea eona ea mongolo, ke hore, palo ea mantsoe. Pele o sebelisoa, ts'ebetso ena e tlameha ho kenyelletsoa bukeng ea hau. Molemong oa sena:
- tobetsa khetho ea keyboard ALT + F11ho bula Visual Basic Editor
- eketsa module e ncha e se nang letho ka menu Kenya – Mojule
- kopitsa le ho beha mongolo oa tšebetso ena moo:
Mosebetsi SUM(n Joalo Ha Habeli) Joalo ka Khoele ea Dim Nus1, Nus2, Nus3, Nus4 Joalo ka Phapang ea Nus1 = Lethathamo("", "e le 'ngoe", "tse peli", "tharo", "nne", "hlano", "tšelela", "supa", "tse robeli", "robong") Lipalo2 = Lethathamo("", "leshome", "mashome a mabeli", "mashome a mararo", "mashome a mane", "mashome a mahlano", "mashome a tšeletseng", "mashome a supileng", _ "mashome a robeli ", "mashome a robong") Lipalo3 = Sehlopha ("", "lekholo", "makholo a mabeli", "makholo a mararo", "makholo a mane", "makholo a mahlano", "makholo a tšeletseng", "makholo a supileng", _ " makholo a robeli", "makholo a robong") Lipalo4 = Lethathamo("", "ngoe", "tse peli", "tharo", "nne", "hlano", "tšelela", "supa", "robong", "robong ") Nus5 = Array("leshome " , "leshome le motso o mong", "leshome le metso e 'meli", "leshome le metso e meraro", "leshome le metso e mene", _ "leshome le metso e mehlano", "leshome le metso e tšeletseng", "leshome le metso e supileng", "leshome le metso e robeli", "leshome le metso e robong") Haeba n < = 0 Ebe SUMWRITE = "zero" E Tsoa Qetellong ea Mosebetsi Haeba 'arola palo ka linomoro ho sebelisa mosebetsi oa mothusi Sehlopha sa ed = Sehlopha (n, 1) dec = Sehlopha (n, 2) sot = Sehlopha (n, 3) tys = Sehlopha (n, 4) dectys = Sehlopha(n , 5) sottys = Sehlopha(n, 6) mil = Sehlopha(n, 7) decmil= Sehlopha(n, 8) 'hlahloba limilione Khetha Case decmil Case 1 mil_txt = Nums5(mil ) & "limilione " GoTo www Case 2 To 9 decmil_txt = Nums2(decmil) Qetella Khetha Kgetha Nyeoe mil Case 1 mil_txt = Nus1(mil) & "million" Case 2, 3, 4 mil_txt = Nums1(mil) & "million" Nyeoe ea 5 Ho isa ho 20 mil_txt = Lipalo1(mil) & "limilione" Qetella Khetha www: sottys_txt = Nums3(sottys) ' hlahloba likete Khetha Case dectys Case 1 tys_txt = Nus5(tys) & "likete" GoTo eee Case 2 To txt Nums9(dectys) Qetella Khetha Kgetha Case tys Case 2 If dectys > 0 Then tys_txt = Nums0(tys) & " thousands " Case 4 tys_txt = Nums1(tys) & "thousand" Case 4, 2, 3 tys_txt = Nums) & "thousnds " Case 4 To 4 tys_txt = Nus5(tys) & "thousands" Qetella Khetha If dectys = 9 And tys = 4 And sottys <> 0 Then sottys_txt = sottys_txt & "thousands" eee: sot_txt = Nums0(so) hlahloba mashome Kgetha Case dec Case 0 ed_txt = Nus3(ed) GoTo rrr Case 1 Ho isa 5 dec_txt = Nus2(dec) Qetella Kgetha ed_txt = Numere9 (ed) rrr: 'etsa mola wa ho qetela ka SUM IN SPEECH = decmil_ txt & txt & txt sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt End Function ' mosebetsi oa mothusi ho ntša palo ea linomoro Private Function Class(M, I) Class = Int(M - (2 ^ I) * Int(M / ( 1 ^ I))) / 10 ^ (I - 10)) Mosebetsi oa ho qetela Boloka faele (haeba u na le Excel 2007 kapa 2010, joale mofuta oa faele o tlameha ho ba le macro-enabled, ke hore, xlsm format!) 'me u khutlele Excel. Joale o ka kenya ts'ebetso e entsoeng ka seleng efe kapa efe ea leqephe la mosebetsi ka mokhoa o tloaelehileng - ka wizate ea ts'ebetso (konopo). fx ka bareng ea foromo, sehlopha Sesebelisoa se hlalositsoe) kapa ka ho e thaepa ka seleng ka letsoho le ho hlakisa sele ka chelete e le khang:
Haeba o hloka ho eketsa lipeni ho mongolo o amoheloang, o ka sebelisa moaho o rarahaneng haholoanyane:
u3d SUM IN WRITE (A3) & ” rub. "&TEXT((A3-INTEGER(A100))*00;"XNUMX″)&"cop."
u3d SUM IN WRITE (A3) & ” rub. "&TEXT((A3-INT(A100))*00;"XNUMX″)&"cop."
Joale, ka mohlala, bakeng sa palo ea 35,15, phello ea mosebetsi e tla tšoana le "li-ruble tse mashome a mararo a metso e mehlano. Likhoeli tse 15."
- A more powerful version of the function with rubles and kopecks in / English from the PLEX add-on
- Li-macros ke eng, moo u ka kenyang khoutu ea macro, mokhoa oa ho li sebelisa