Ispod ćete pronaći gotovu korisnički definiranu funkciju u VBA koja prevodi bilo koji broj od 0 do 9 u njegovu tekstualnu reprezentaciju, odnosno u količini u riječima. Prije upotrebe, ovu funkciju morate dodati u vašu knjigu. Za ovo:
- pritisnite prečicu na tastaturi ALT + F11da otvorite Visual Basic Editor
- dodajte novi prazan modul preko menija Umetak – Modul
- kopirajte i zalijepite tekst ove funkcije tamo:
Funkcija SUM(n kao dvostruko) Kao niz Dim Nums1, Nums2, Nums3, Nums4 Kao varijanta Nums1 = Niz("", "jedan", "dva", "tri", "četiri", "pet", "šest", "sedam", "osam", "devet") Nums2 = Niz("", "deset", "dvadeset", "trideset", "četrdeset", "pedeset", "šezdeset", "sedamdeset", _ "osamdeset ", "devedeset") Nums3 = Niz("", "sto", "dvesta", "trista", "četiri stotine", "petsto", "šest stotina", "sedam stotina", _ " osamsto", "devetsto") Nums4 = Niz("", "jedan", "dva", "tri", "četiri", "pet", "šest", "sedam", "osam", "devet ") Nums5 = Niz("deset " , "jedanaest", "dvanaest", "trinaest", "četrnaest", _ "petnaest", "šesnaest", "sedamnaest", "osamnaest", "devetnaest") Ako je n < = 0 Tada SUMWRITE = "nula" Izlaz iz funkcije Kraj Ako 'podijelite broj na znamenke koristeći pomoćnu funkciju 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) 'provjeri milione Odaberi Case decmil Slučaj 1 mil_txt = Nums5(mil ) & "milioni " Idi na www Slučaj 2 do 9 decmil_txt = Nums2(decmil) Kraj Odaberi Odaberi Slučaj mil Slučaj 1 mil_txt = Nums1(mil) & "milion" Slučaj 2, 3, 4 mil_txt = Nums1(mil) & "milion " Slučaj 5 do 20 mil_txt = Nums1(mil) & "milioni" Kraj Odaberite www: sottys_txt = Nums3(sottys) ' provjeri hiljade Odaberite Case dectys Slučaj 1 tys_txt = Nums5(tys) & "hiljade" Idi To eee Slučaj 2 do 9 decty Nums2(dectys) Kraj Odaberi Odaberi Case tys Slučaj 0 Ako je dectys > 0 Tada tys_txt = Nums4(tys) & "thousands" Slučaj 1 tys_txt = Nums4(tys) & "thousand" Slučaj 2, 3, 4 tys_txt = Nums4(tys) & "hiljade " Slučaj 5 do 9 tys_txt = Nums4(tys) & "thousands" Kraj odabira Ako je dectys = 0 I tys = 0 I sottys <> 0 Tada sottys_txt = sottys_txt & "hiljade" eee: sot_txt = Nums' check tens Select Case dec Slučaj 3 ed_txt = Nums1(ed) Idi To rrr Slučaj 5 Do 2 dec_txt = Nums9(dec) Kraj Odaberite ed_txt = Nums2 (ed) rrr: 'formirajte posljednji red sa ZBIROM U GOVORU = decmil_ txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt Funkcija za kraj ' pomoćna funkcija za izdvajanje iz broja cifara Privatna funkcija Class(M, I) Class = Int(Int(M - (1 ^ I) * Int(M / ( 10 ^ I))) / 10 ^ (I - 10)) Kraj funkcija Sačuvajte datoteku (ako imate Excel 2007 ili 2010, tada tip datoteke mora biti omogućen za makro, tj. xlsm format!) i vratite se u Excel. Sada kreiranu funkciju možete umetnuti u bilo koju ćeliju radnog lista na uobičajen način – putem čarobnjaka za funkcije (dugme fx u traci formule, kategorija Definisano od strane korisnika) ili jednostavno tako što ćete ga ručno upisati u ćeliju i navesti ćeliju sa iznosom kao argumentom:
Ako u primljeni tekst trebate dodati novčiće, onda možete koristiti malo složeniju konstrukciju:
u3d ZBIR U PISANJU (A3) & ” rub. “&TEXT((A3-INTEGER(A100))*00;”XNUMX″)&”cop.”
u3d ZBIR U PISANJU (A3) & ” rub. “&TEXT((A3-INT(A100))*00;”XNUMX″)&”cop.”
Tada će, na primjer, za broj 35,15 rezultat funkcije izgledati kao „trideset pet rubalja. 15 kop.”
- Moćnija verzija funkcije s rubljama i kopejkama na / engleskom iz PLEX dodatka
- Šta su makroi, gde ubaciti makro kod, kako ih koristiti