Kako pretvoriti številsko vrednost v angleško besedo?
Programska oprema za Office Excel ponuja uporabnikom možnost izvajanja različnih operacij podatkov na poljih preglednice. Uporabniško definirano funkcijo lahko uporabite za pretvorbo številske vrednosti v angleško besedo . Nekaj znanja o programskih konceptih, kot so funkcije in tehnike zanka, bi pomagalo razumeti in pisati funkcije, vendar ni nujno. Na internetu je na voljo veliko virov, kjer lahko funkcije, ki se uporabljajo za pretvorbo številske vrednosti v angleško besedo, brezplačno prenesete in vključite v delovne liste programa Excel. 
Za pretvorbo številske vrednosti v angleško besedo je tukaj formula, ki jo boste potrebovali :
To je post iz foruma, zahvaljujoč rajput391
Spodaj boste našli kodo za vnos v Excelovem listu:
1. Pritisnite tipke Alt + F11> Kopiraj in pašite v modulu (če modul ne prikaže vstavljenega modula, kliknite vstavi v menijsko vrstico> Modul)
2. Alt + Q Shranite kodo in se vrnite v Excelov list
3. Vstavite> funkcijo> uporabniško določeno> A1 ali ustrezno celico
Funkcijske besede (fig, izbirna točka = "točka") kot niz Dim Dim (14) Kot Integer alpha = Array ("", "One", "Two", "Three", "Four", "Five", "Six") ", " Sedem ", " osem ", " devet ", " deset ", " enajst ", " dvanajst ", " trinajst ", " štirinajst ", " petnajst ", " šestnajst ", " sedemnajst ", " osemnajst ", "Devetnajst", "Dvajset", "Trideset", "Štirideset", "Petdeset", "Šestdeset", "Sedemdeset", "Osemdeset", "Devetdeset") figi = Trim (StrReverse (Str (Int (Abs (fig)) )))) Za i = 1 K Len (figi) cifra (i) = Mid (figi, i, 1) Naprej Za i = 2 K Len (figi) Korak 3 Če je cifra (i) = 1, potem cifra (i) = številka (i - 1) + 10: števka (i - 1) = 0 Druge: če je številka (i)> 1, potem je številka (i) = številka (i) + 18 konec, če je naslednja Za i = 1 do Len (slika ) Če (i Mod 3) = 0 in števka (i)> 0 Nato besede = "sto" & besede Če (i Mod 3) = 1 In števka (i) + številka (i + 1) + številka (i + 2) )> 0 Potem _ words = Izberi (i / 3, "tisoč", "milijon", "milijard") & besede besede = Trim (alfa (cifra (i)) & besede »Naslednji Če fig Int (fig) ) Nato figc = StrReverse (figi) Če figc = 0 Torej figc = "" figd = Trim (WorksheetFunction.Su) bstitute (Str (Abs (fig)), figc & ".", "")) besede = Trim (besede & "" & točka) Za i = 1 K Len (figd) Če Val (Mid (figd, i, 1 Torej besede = besede & alpha (Mid (figd, i, 1)) Else: words = words & "Zero" End Če Next End If Če je fig <0 Nato besede = "Negative" & words End Funkcija