Kaip konvertuoti skaitmeninę vertę į anglų kalbos žodį?

„Office“ programinės įrangos „Excel“ programa vartotojams suteikia galimybę atlikti įvairias operacijas su skaičiuoklės laukuose esančiais duomenimis. Naudotojo apibrėžta funkcija gali būti naudojama skaitmeninei vertei konvertuoti į anglišką žodį . Žinios apie programavimo sąvokas, pvz., Funkcijas ir kilpinimo metodus, padėtų suprasti ir rašyti funkcijas, bet tai nėra būtina. Internete yra daug išteklių, kuriuose funkcijos, kurios gali būti naudojamos skaitmeninei vertei konvertuoti į anglišką žodį, gali būti parsisiųsti ir įtrauktos į „Excel“ darbalapius nemokamai.

Jei norite konvertuoti skaitmeninę vertę į anglišką žodį, čia yra formulė, kurios reikia :

Tai yra pranešimas iš forumo, dėka rajput391

Žemiau rasite kodą, kurį norite įvesti „Excel“ lape:

1. Paspauskite Alt + F11> nukopijuokite ir įklijuokite į modulį (jei modulis nerodo įterpimo modulio, spustelėkite Įterpti meniu juostoje> Modulis)

2. Alt + Q Išsaugokite kodą ir grįžkite į „Excel“ lapą

3. Įterpti> funkciją> vartotojo apibrėžtą> A1 arba atitinkamą langelį

 Funkciniai žodžiai (pav., Pasirinktinis taškas = „taškas“) kaip eilutė Dim skaitmuo (14) kaip vientisas alfa = Array („“, „vienas“, „du“, „trys“, „keturi“, „penki“, „šeši“). „, Septyni“, „aštuoni“, „devyni“, „dešimt“, „vienuolika“, „dvylika“, „trylikos“, „keturiolika“, „penkiolika“, „šešiolika“, „septyniolika“, „aštuoniolika“, "Devyniolika", "Dvidešimt", "Trisdešimt", "Keturiasdešimt", "Penkiasdešimt", "Šešiasdešimt", "Septyniasdešimt", "Aštuoniasdešimt", "Devyniasdešimt") figi = Trim (StrReverse (Str (Int (Abs (fig. )))) Dėl i = 1 į Len (figi) skaitmenį (i) = vidurio (figi, i, 1) Kitas i = 2 į Len (figi) 3 žingsnis Jei skaitmenys (i) = 1 tada skaitmenys (i) = skaitmuo (i - 1) + 10: skaitmenys (i - 1) = 0 Kitas: Jei skaitmenys (i)> 1 Tada skaitmenys (i) = skaitmenys (i) + 18 Pabaiga Jei sekanti i = 1 į Len (figi ) Jei (i Mod 3) = 0 Ir skaitmuo (i)> 0 Tada žodžiai = "šimtai" ir žodžiai Jei (i Mod 3) = 1 Ir skaitmenys (i) + skaitmenys (i + 1) + skaitmuo (i + 2 )> 0 Tada _ žodžiai = Pasirinkti (i / 3, "tūkstančiai", "milijonai", "milijardai") ir žodžius žodžius = Trim (alfa (skaitmuo (i)) & "" ir žodžiai) Kitas Jei fig Int (fig. ) Tada figc = StrReverse (figi) Jei figc = 0 Tada figc = "" figd = Trim (WorksheetFunction.Su bstitute (Str (Abs (fig)), figc & ".", "")) žodžiai = Trim (žodžiai & "" & taškas) i = 1 į Len (figd) Jei Val (Mid (figd, i, 1 ))> 0 Tada žodžiai = žodžiai & "" & alfa (viduryje (figd, i, 1)) Else: words = words & "Zero" pabaiga Jei Next End Jei Jei figas <0 Tada žodžiai = "Negative" ir žodžiai End Funkcija