Ako previesť číselnú hodnotu na anglické slovo?

Aplikácia Office Software Excel ponúka užívateľom možnosť vykonávať rôzne operácie s údajmi v poliach tabuľky. Funkciu definovanú používateľom možno použiť na konverziu číselnej hodnoty na anglické slovo . Niektoré znalosti programovacích konceptov, ako sú funkcie a techniky loopingu, by pomohli pochopiť a zapísať funkcie, ale nie sú nevyhnutné. Existuje mnoho zdrojov, ktoré sú dostupné na internete a kde funkcie, ktoré možno použiť na konverziu číselnej hodnoty na anglické slovo, je možné stiahnuť a zahrnúť do pracovných hárkov programu Excel zadarmo.

Ak chcete konvertovať číselnú hodnotu na anglické slovo, tu je vzorec, ktorý budete potrebovať :

Toto je príspevok z fóra, vďaka rajput391

Nižšie nájdete kód, ktorý chcete zadať do hárku programu Excel:

1. Stlačte Alt + F11> kopírovať a pate v module (ak modul nezobrazuje vložený modul, kliknite na vložiť na lište menu> Modul)

2. Alt + Q Uložiť kód a vrátiť sa do hárku programu Excel

3. Vložte> function> user defined> A1 alebo príslušnú bunku

 Funkčné slová (obr., Voliteľný bod = "bod") As String Dim číslica (14) Ako Integer alpha = Array ("", "One", "Two", "Three", "Four", "Five", "Six", "Six" ", " Sedem ", " Osem ", " Deväť ", " Desať ", " Jedenásť ", " Dvanásť ", " Trinásť ", " Štrnásť ", " Pätnásť ", " Šestnásť ", " Sedemnásť ", " Osemnásť ", "Devätnásť", "Dvadsať", "Tridsať", "Štyridsať", "Päťdesiat", "Šesťdesiat", "Sedemdesiat", "Osemdesiat", "Deväťdesiat" figi = Trim (StrReverse (Str (Int (Ab) (obr. ))))) Pre i = 1 To Len (figi) číslica (i) = Mid (figi, i, 1) Ďalej Pre i = 2 To Len (obr) Krok 3 Ak číslica (i) = 1 Potom číslica (i) = číslica (i - 1) + 10: číslica (i - 1) = 0 Else: Ak číslica (i)> 1 Potom číslica (i) = číslica (i) + 18 End If Next Pre i = 1 To Len (obr. ) Ak (i Mod 3) = 0 A číslica (i)> 0 Potom slová = "sto" & slová Ak (i Mod 3) = 1 A číslica (i) + číslica (i + 1) + číslica (i + 2) )> 0 Potom _ words = Vyberte (i / 3, "tisíc", "milión", "miliarda") & slová slov = Orezať (alfa (číslica (i)) a "" & slová "Ďalej Ak je obr. ) Potom figc = StrReverse (obri) Ak figc = 0 Potom figc = "" figd = Orezanie (WorksheetFunction.Su bstitute (Str (Abs (obr.)), figc & ".", "")) slová = Orezať (slová & "" & bod) Pre i = 1 To Len (obrd) Ak Val (Stred (obr, i, 1) ))> 0 Potom slová = slová & "" & alfa (Mid (figd, i, 1)) Else: words = words & "Nula" End If Next End If Ak fig <0 Potom slová = "Negative" & words End funkcie