Kā pārvērst ciparu vērtību angļu valodā?

Office Software Excel piedāvā lietotājiem iespēju veikt dažādas darbības izklājlapas laukos. Lietotāja definētu funkciju var izmantot, lai ciparu vērtību pārvērstu par angļu vārdu . Dažas zināšanas par programmēšanas koncepcijām, piemēram, funkcijām un cilpošanas metodēm, palīdzētu saprast un rakstīt funkcijas, bet nav būtiskas. Internetā ir pieejami daudzi resursi, kur funkcijas, ko var izmantot, lai pārveidotu ciparu vērtību angļu valodā, var lejupielādēt un iekļaut Excel darblapās bez maksas.

Lai ciparu vērtību pārvērstu par angļu vārdu, šeit ir vajadzīgā formula :

Tas ir forums no foruma, pateicoties rajput391

Tālāk jūs atradīsiet kodu, kas jāievada Excel lapā:

1. Nospiediet Alt + F11> kopēt un ievietot modulī (ja modulis neuzrāda ievietošanas moduli, noklikšķiniet uz ievietot izvēlnes joslā> Modulis)

2. Alt + Q Saglabājiet kodu un atgriezieties Excel lapā

3. Ievietojiet> funkciju> lietotāja definēts> A1 vai atbilstošu šūnu

 Funkciju vārdi (fig., Izvēles punkts = "punkts") kā virkne Dim skaitlis (14) kā vienāds alfa = Array ("", "viens", "divi", "trīs", "četri", "pieci", "seši") ", Septiņi", "astoņi", "deviņi", "desmit", "vienpadsmit", "trīspadsmit", "četrpadsmit", "piecpadsmit", "sešpadsmit", "septiņpadsmit", "astoņpadsmit", "Deviņpadsmit", "Divdesmit", "Trīsdesmit", "Četrdesmit", "Piecdesmit", "Sešdesmit", "Septiņdesmit", "Astoņdesmit", "Deviņdesmit") figi = Trim (StrReverse (Str (Int (Abs (fig. )))) Attiecībā uz i = 1 uz Len (figi) ciparu (i) = vidus (figi, i, 1) Nākamais i = 2 uz Len (figi) 3. solis Ja cipars (i) = 1 Tad cipars (i) = cipars (i - 1) + 10: cipars (i - 1) = 0 Vēl: ja cipars (i)> 1 Tad cipars (i) = cipars (i) + 18 beigas, ja nākamais i = 1 līdz Len (figi ) Ja (i Mod 3) = 0 Un cipars (i)> 0 Tad vārdi = "simts" un vārdi Ja (i Mod 3) = 1 Un cipars (i) + cipars (i + 1) + cipars (i + 2 )> 0 Tad _ vārdi = Izvēlēties (i / 3, "tūkstoši", "miljoni", "miljardi") un vārdi vārdi = Trim (alfa (cipars (i)) & "" un vārdi Nākamais Ja fig Int (fig. ) Tad figc = StrReverse (figi) Ja figc = 0 Tad figc = "" figd = Trim (WorksheetFunction.Su bstitute (Str (Abs (fig)), figc & ".", "")) vārdi = Trim (vārdi & "" & punkts) i = 1 uz Len (figd) Ja Val (Mid (figd, i, 1 ))> 0 Tad vārdi = vārdi & "" & alfa (Mid (figd, i, 1)) Else: words = words & "Zero" Beigas Ja Nākamais beigas Ja Ja attēls <0 Tad vārdi = "Negatīvs" un vārdi Beigas Funkcija