Spodaj boste našli že pripravljeno uporabniško definirano funkcijo v VBA, ki prevede poljubno število od 0 na 9 v njen besedilni prikaz, torej v količino v besedah. Pred uporabo morate to funkcijo dodati svoji knjigi. Za to:
- pritisnite bližnjico na tipkovnici ALT + F11da odprete urejevalnik Visual Basic
- dodajte nov prazen modul prek menija Vstavi – Modul
- kopirajte in prilepite besedilo te funkcije tja:
Funkcija SUM(n kot dvojno) kot niz Dim Nums1, Nums2, Nums3, Nums4 kot različica Nums1 = Array("", "one", "two", "three", "four", "five", "six", "sedem", "osem", "devet") Nums2 = Array("", "deset", "dvajset", "trideset", "štirideset", "petdeset", "šestdeset", "sedemdeset", _ "osemdeset" ", "devetdeset") Nums3 = Array("", "sto", "dvesto", "tristo", "štiristo", "petsto", "šeststo", "sedemsto", _ " osemsto", "devetsto") Nums4 = Array("", "ena", "dva", "tri", "štiri", "pet", "šest", "sedem", "osem", "devet" ") Nums5 = Array("deset ", "enajst", "dvanajst", "trinajst", "štirinajst", _ "petnajst", "šestnajst", "sedemnajst", "osemnajst", "devetnajst") Če je n < = 0 Nato SUMWRITE = "nič" Izhod iz funkcije Konec Če 'število razdeli na števke s pomožno funkcijo Razred ed = Razred(n, 1) dec = Razred(n, 2) sot = Razred(n, 3) tys = Razred (n, 4) dectys = Razred(n, 5) sottys = Razred(n, 6) mil = Razred(n, 7) decmil= Razred(n, 8) 'preverite milijone Izberite Case decmil Primer 1 mil_txt = Nums5(mil ) & "millions " GoTo www Case 2 To 9 decmil_txt = Nums2(decmil) End Select Select Case mil Case 1 mil_txt = Nums1(mil) & "million " Case 2, 3, 4 mil_txt = Nums1(mil) & "million " Case 5 To 20 mil_txt = Nums1(mil) & "millions " End Select www: sottys_txt = Nums3(sottys) ' preveri tisoče Izberite Case dectys Case 1 tys_txt = Nums5(tys) & "thousands " GoTo eee Case 2 To 9 dectys_txt = Nums2(dectys) End Select Select Case tys Case 0 If dectys > 0 Then tys_txt = Nums4(tys) & "thousands " Case 1 tys_txt = Nums4(tys) & "thousand " Case 2, 3, 4 tys_txt = Nums4(tys) & "thousands" Case 5 To 9 tys_txt = Nums4(tys) & "thousands " End Select If dectys = 0 In tys = 0 And sottys <> 0 Then sottys_txt = sottys_txt & "thousands" eee: sot_txt = Nums3(sot) ' preveri desetice Izberite Case dec Case 1 ed_txt = Nums5(ed) GoTo rrr Case 2 To 9 dec_txt = Nums2(dec) End Select ed_txt = Nums1 (ed) rrr: 'tvorite zadnjo vrstico s SUM IN SPEECH = decmil_ txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt End Function ' pomočna funkcija za izločanje iz števila števk Zasebna funkcija Class(M, I) Class = Int(Int(M - (10 ^ I) * Int(M / ( 10 ^ I))) / 10 ^ (I - 1)) Končna funkcija Shranite datoteko (če imate Excel 2007 ali 2010, potem mora biti vrsta datoteke omogočena za makro, tj. format xlsm!) in se vrnite v Excel. Zdaj lahko ustvarjeno funkcijo vstavite v katero koli celico delovnega lista na običajen način – prek čarovnika za funkcije (gumb fx v vrstici formule kategorija Uporabnik definiran) ali preprosto tako, da ga ročno vnesete v celico in podate celico s količino kot argumentom:
Če morate prejetemu besedilu dodati penije, lahko uporabite nekoliko bolj zapleteno konstrukcijo:
u3d PISNO VSETA (A3) & ” rub. “&BESEDILO((A3-CELO(A100))*00;”XNUMX″)&”policaj.”
u3d PISNO VSETA (A3) & ” rub. “&BESEDILO((A3-INT(A100))*00;”XNUMX″)&”policaj.”
Potem bo na primer za številko 35,15 rezultat funkcije videti kot "petintrideset rubljev". 15 kop."
- Zmogljivejša različica funkcije z rublji in kopejkami v / angleščini iz dodatka PLEX
- Kaj so makri, kam vstaviti kodo makra, kako jih uporabljati