Sådan konverteres en numerisk værdi til et engelsk ord?

Office Software Excel giver brugerne mulighed for at udføre forskellige operationer på dataene i regnearkets felter. En brugerdefineret funktion kan bruges til at konvertere en numerisk værdi til et engelsk ord . Visse kendskab til programmeringskoncepter som funktioner og looping teknikker vil hjælpe med at forstå og skrive funktionerne, men er ikke afgørende. Der findes mange ressourcer på internettet, hvor funktioner, der kan bruges til at konvertere en numerisk værdi til et engelsk ord, kan downloades og inkluderes gratis i Excel-regnearkene.

At konvertere en numerisk værdi til et engelsk ord, her er den formel, du skal bruge :

Dette er et indlæg fra forummet takket være rajput391

Nedenfor finder du koden, der skal indtastes i dit Excel-ark:

1. Tryk på Alt + F11> kopi og pate i modul (hvis modulet ikke viser indsætsmodul, klik på indsæt i menulinjen> Modul)

2. Alt + Q Gem kode og returner til Excel-ark

3. Indsæt> funktion> brugerdefineret> A1 eller relevant celle

 Funktionsord (fig., Valgfri punkt = "Point") Som String Dim-ciffer (14) Som integer alpha = Array ("", "One", "Two", "Three", "Four", "Five", "Six ", " Syv ", " otte ", " ni ", " ti ", " elleve ", " tolv ", " tretten ", " fjorten ", " femten ", " seksten ", " sytten " "Nitten", "Tyve", "Tredive", "Fyrre", "Femogtyve", "Sixty", "Halvfjerds", "Eighty", "Ninety") figi = Trim (StrReverse )))) For i = 1 Til Len (figi) ciffer (i) = Mid (figi, i, 1) Næste For i = 2 Til Len (figi) Trin 3 Hvis ciffer (i) = 1 Så ciffer (i) = ciffer (i - 1) + 10 ciffer (i - 1) = 0 Else: Hvis ciffer (i)> 1 Så ciffer (i) = ciffer (i) + 18 Afslut hvis næste For i = 1 Til Len ) Hvis (jeg Mod 3) = 0 Og ciffer (i)> 0 Så ord = "hundred" & ord Hvis (i Mod 3) = 1 Og ciffer (i) + ciffer (i + 1) + ciffer )> 0 Så _ ord = Vælg (i / 3, "tusind", "million", "milliarder") & ordord = Trim (alfa (ciffer (i)) & "" & ord) Næste Hvis fig Int ) Så figc = StrReverse (figi) Hvis figc = 0 Så figc = "" figd = Trim (WorksheetFunction.Su b = ordre (ord & "" og punkt) For i = 1 til Len (figd) Hvis Val (Mid (figd, i, 1) ))> 0 Så ord = ord & "" & alfa (Mid (figd, jeg, 1)) Andet: ord = ord & "Nul" Slut Hvis næste ende Hvis Hvis fig <0 Så ord = "Negativ" & ord Slut Fungere