Hogyan lehet egy numerikus értéket angolra konvertálni?

Az Office Szoftver Excel segítségével a felhasználók különféle műveleteket hajthatnak végre a táblázatban lévő adatokon. A felhasználó által definiált függvény numerikus érték angol nyelvre történő konvertálására használható. Bizonyos ismeretek a programozási fogalmakról, mint például a funkciók és a hurok technikák segítenek megérteni és írni a funkciókat, de nem feltétlenül szükséges. Számos erőforrás áll rendelkezésre az interneten, ahol a numerikus érték angol nyelvre történő konvertálására használható funkciók ingyenesen letölthetők és beilleszthetők az Excel munkalapokba.

A numerikus érték angol szóra való konvertálásához itt van a következő képlet :

Ez egy fórum a fórumból, köszönhetően a rajput391-nek

Az alábbiakban megtalálja az Excel-lapba beírandó kódot:

1. Nyomja meg az Alt + F11> másolás és elmentés a modulban (ha a modul nem mutat beillesztési modult, kattintson a beillesztésre a menüsorban> Modul)

2. Alt + Q A kód mentése és az Excel lapra való visszatérés

3. Helyezzen be> függvény> felhasználó által definiált> A1 vagy releváns cellát

 Funkciószavak (ábra, opcionális pont = "pont") karakterláncként (14) Integer alpha = Array ("", "One", "Two", "Three", "Four", "Five", "Six"). ", Hét", "nyolc", "tíz", "tizenegy", "tizennégy", "tizennégy", "tizenöt", "tizenhat", "tizenhét", "tizennyolc", "Tizenkilenc", "húsz", "harminc", "negyven", "ötven", "hatvan", "hetven", "nyolcvan", "kilencven") "figi = trim (StrReverse (Str (Int (Abs) (ábra) )))) I = 1 - Len (figi) számjegy (i) = Közép (figi, i, 1) Következő i = 2 - Len (figi) 3. lépés Ha számjegy (i) = 1 Ezután számjegy (i) = szám (i - 1) + 10: szám (i - 1) = 0 Else: Ha a szám (i)> 1 Ezután a számjegy (i) = szám (i) + 18 Vége Ha a következő: i = 1 - Len (figi ) Ha (i Mod 3) = 0 és számjegy (i)> 0 Majd szavak = "száz" és szavak Ha (i Mod 3) = 1 És számjegy (i) + számjegy (i + 1) + számjegy (i + 2 )> 0 majd _ szó = Válasszon (i / 3, "ezer", "millió", "milliárd") & szavak szavak = Trim (alpha (szám (i)) & "" és szavak) Következő Ha fig Int (fig ) Ezután figc = StrReverse (figi) Ha figc = 0 Ezután figc = "" figd = Trim (WorksheetFunction.Su bstitute (Str (Abs (fig)), figc & ".", "")) szavak = Trim (szavak & "" & pont) i = 1-re Len (figd) Ha Val (Mid (figd, i, 1) ))> 0 Ezután a szavak = szavak & "" & alpha (Mid (figd, i, 1)) Else: words = words & "Zero" End Ha a következő vége Ha ha <ábra <0 Ezután a szavak = "Negatív" és a szavak vége Funkció