Miten numeerinen arvo muunnetaan englanninkieliseksi sanaksi?
Office-ohjelmisto Excel tarjoaa käyttäjille mahdollisuuden suorittaa erilaisia operaatioita laskentataulukon kentissä. Käyttäjän määrittelemää toimintoa voidaan käyttää numeerisen arvon muuntamiseen englanninkieliseksi sanaksi . Osa ohjelmointikäsitteiden, kuten toimintojen ja silmukointitekniikoiden, tuntemus auttaisi ymmärtämään ja kirjoittamaan tehtäviä, mutta ei ole välttämätöntä. Internetissä on monia resursseja, joissa funktiot, joita voidaan käyttää numeerisen arvon muuntamiseen englanninkieliseksi sanaksi, voidaan ladata ja sisällyttää Excel-laskentataulukoihin ilmaiseksi. 
Jos haluat muuntaa numeerisen arvon englanninkieliseksi sanaksi, tässä on kaava, jota tarvitset :
Tämä on viesti foorumilta, kiitos rajput391
Alla on Excel-arkille syötettävä koodi:
1. Paina Alt + F11> kopioi ja lähetä moduuliin (jos moduuli ei näytä lisämoduulia, napsauta valikkorivin lisäys> Moduuli)
2. Alt + Q Tallenna koodi ja palaa Excel-arkille
3. Aseta> toiminto> käyttäjän määrittämä> A1 tai vastaava solu
Toiminnalliset sanat (kuva, valinnainen kohta = "piste") merkkijonoina (14) Integer alpha = Array ("", "One", "Two", "Three", "Four", "Five", "Six") ", Seitsemän", "kahdeksan", "yhdeksän", "kymmenen", "yksitoista", "kaksitoista", "kolmetoista", "neljätoista", "viisitoista", "kuusitoista", "seitsemäntoista", "kahdeksantoista", "Yhdeksäntoista", "kaksikymmentä", "kolmekymmentä", "neljäkymmentä", "viisikymmentä", "kuusikymmentä", "seitsemänkymmentä", "kahdeksankymmentä", "yhdeksänkymmentä") "figi = trim (StrReverse (Str (Int (Abs) )))) I = 1 kohtaan Len (figi) numero (i) = Mid (figi, i, 1) Seuraava i = 2 To Len (figi) Vaihe 3 Jos numero (i) = 1 Sitten numero (i) = numero (i - 1) + 10: numero (i - 1) = 0 Muut: Jos numero (i)> 1 Sitten numero (i) = numero (i) + 18 Loppu Jos seuraava i = 1 Leniin (figi ) Jos (i Mod 3) = 0 Ja numero (i)> 0 Sitten sanat = "sata" ja sanat Jos (i Mod 3) = 1 Ja numero (i) + numero (i + 1) + numero (i + 2 )> 0 Sitten _ sanat = Valitse (i / 3, "tuhat", "miljoona", "miljardi") & sanat sanat = Trim (alpha (numero (i)) & "" & sanat) Seuraava Jos fig Int (kuva ) Sitten figc = StrReverse (figi) Jos figc = 0 Sitten figc = "" figd = Trim (WorksheetFunction.Su bstitute (Str (Abs (kuva)), figc & ".", "")) sanat = Trim (sanat & "" & piste) i = 1: lle Len (kuva) Jos Val (Mid (kuva, i, 1) ))> 0 Sitten sanat = sanat & "" & alpha (Mid (kuva, i, 1)) Else: words = words & "Zero" End Jos seuraava pää Jos If kuva <0 Sitten sanat = "Negative" ja sanat End Toimia