Ankstesniame straipsnyje aš paaiškinau, kaip konvertuoti skaičių į žodžius „Excel“ naudojant VBA. Norėdami tai padaryti, aš parašiau keletą kodų eilučių. Bet aš niekada neįsivaizdavau, kad galime paversti skaičius į žodžius tiesiog naudodami „Excel“ formules. Tačiau vienas iš mūsų „Excelforum“ vartotojų tai padarė. Niekada neįsivaizdavau, kad galime paversti skaičius žodžiais.
Ši formulė naudojama skaičiui konvertuoti į Amerikos valiutą. Ši formulė gali konvertuoti skaičius iš diapazono centų į milijardus. Skaičius taip pat gali būti dviejų dešimtųjų tikslumu.
Šis vartotojas, turintis Id HaroonSid, parašė beprotišką formulę. Formulė yra puslapio ilgio ir, jei dabar ją paminėsiu, ji apims visą įrašą. Taigi, tai paminėjau įrašo pabaigoje. Norėdami atsisiųsti formulę, galite atsisiųsti žemiau esantį „Excel“ failą.
Skaičius į žodžius
Formulė yra per ilga paaiškinti, bet galiu paaiškinti logiką. Ši formulė nustato, kiek laiko yra skaičius. Tada ji naudoja funkciją PASIRINKTI, kad skaičiai būtų pakeisti žodžiais. Bet tai nėra taip paprasta. Ši formulė nustato vieną kartą, dešimtis, šimtus, tūkstančius, milijonus ir milijardus. Jis nustato, kuris numeris yra skyriuje. Kitas sudėtingumas yra toks. Skaičius 12 gali būti vienas ar du dideliais skaičiais arba dvylika. Tai prideda daug sudėtingumo. Tačiau šis žmogus sugebėjo išspręsti šį sudėtingumą ir priversti šią formulę veikti efektyviai.
Taigi dabar aš paminėju formulę. Ši formulė taikoma B2. Bet koks skaičius, parašytas B2, bus paverstas žodžiais. Ši formulė konvertuoja skaičius į Amerikos valiutos dolerius, bet jūs galite pakoreguoti jį, kad konvertuotumėte į bet kurią valiutą ar vienetą, tiesiog surasdami ir pakeisdami „dolerius“ ir „centus“. Pavyzdžiui, jei norite konvertuoti skaičius į Indijos rupijas ir Paise, tiesiog suraskite ir pakeiskite.
Taigi laikykitės kėdės. Štai formulė.
Formulė skaičiui konvertuoti į žodžius:
| = IF (ARBA (LEN (FLOOR (B2,1))) = 13, FLOOR (B2,1) 1, CHOOSE (MID (TEXT (INT (B2), REPT (0,12)), 3,1) +1 , "", "-vienas", "-du", "-trys", "-keturi", "-penki", "-šeši", "-septyni", "-aštuoni", "-devyni"), IF (VALUE (MID (TEXT (INT (B2), REPT (0,12)), 2,1)) = 0, CHOOSE (MID (TEXT (INT (B2), REPT (0,12)), 3, 1) +1, "", "vienas", "du", "trys", "keturi", "penki", "šeši", "septyni", "aštuoni", "devyni"), "")), IF (B2> = 10^9, "milijardas", ""), PASIRINKITE (MID (TEXT (INT (B2), REPT (0,12)), 4,1) +1, "", "šimtas" , „du šimtai“, „trys šimtai“, „keturi šimtai“, „penki šimtai“, „šeši šimtai“, „septyni šimtai“, „aštuoni šimtai“, „devyni šimtai“), PASIRINKITE (MID (TEXT (INT ( B2), REPT (0,12)), 5,1) +1, "", PASIRINKITE (MID (TEKSTAS (INT (B2), REPT (0,12)), 6,1) +1, "dešimt" , „vienuolika“, „dvylika“, „trylika“, „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"), IF (VALUE (MID (TEXT (INT (B2), REPT (0,12)), 5,1))> 1, PASIRINKITE (MID (TEXT (INT (B2), REPT (0,12)), 6,1) +1, "", "-vienas", "-du", "-trys", "-keturi", " -penki ","-šeši ","-septyni ","-aštuoni ","-devyni "), IF (VALUE (MID (TEXT (INT (B2)), REPT (0,12) )), 5,1)) = 0, PASIRINKITE (MID (TEXT (INT (B2), REPT (0,12)), 6,1) +1, "", "one", "two", "three "," keturi "," penki "," šeši "," septyni "," aštuoni "," devyni "," "))), IF (VALUE (MID (TEXT (INT (B2))), REPT (0,12) )), 4,3))> 0, "milijonas", ""), PASIRINKITE (MID (TEXT (INT (B2), REPT (0,12)), 7,1) +1, "", "one šimtas “,„ du šimtai “,„ trys šimtai “,„ keturi šimtai “,„ penki šimtai “,„ šeši šimtai “,„ septyni šimtai “,„ aštuoni šimtai “,„ devyni šimtai “), PASIRINKITE (MID (TEKSTAS ( INT (B2), REPT (0,12)), 8,1) +1, "", PASIRINKITE (MID (TEXT (INT (B2), REPT (0,12)), 9,1) +1, " dešimt “,„ vienuolika “,„ dvylika “,„ trylika “,„ 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 "), IF (VALUE (MID (TEXT (INT (B2), REPT (0,12)), 8,1))> 1, PASIRINKITE (MID (TEXT (INT (B2), REPT (0,12)), 9,1) +1, "", "-vienas", "-du", "-trys", "-keturi" , "-penki", "-šeši", "-septyni", "-aštuoni", "-devyni"), IF (VALUE (MID (TEXT (INT (B2), REPT (0,12)), 8, 1)) = 0, PASIRINKITE (MID (TEXT (INT (B2), REPT (0,12)), 9,1) +1, "", "one", "two", "three", "four" , „penki“, „šeši“, „septyni“, „aštuoni“, „devyni“), „“)), IF (VALUE (MID (TEXT (INT (B2)), REPT (0,1 2)), 7,3)), "tūkstantis", ""), PASIRINKITE (MID (TEKSTAS (INT (B2), REPT (0,12)), 10,1) +1, "", "šimtas “,„ du šimtai “,„ trys šimtai “,„ keturi šimtai “,„ penki šimtai “,„ šeši šimtai “,„ septyni šimtai “,„ aštuoni šimtai “,„ devyni šimtai “), PASIRINKITE (MID (TEXT (INT (B2), REPT (0,12)), 11,1) +1, "", PASIRINKITE (MID (TEKSTAS (INT (B2), REPT (0,12)), 12,1) +1, "dešimt “,„ vienuolika “,„ dvylika “,„ trylika “,„ 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“), JEI (VERTĖ (TURTAS (TEKSTAS (ĮVESTIS (B2)), REPT (0,12)), 11,1))> 1 , PASIRINKITE (MID (TEXT (INT (B2), REPT (0,12)), 12,1) +1, "", "-vienas", "-du", "-trys", "-keturi", „-penkis“, „-šešis“, „-septynis“, „-aštuonis“, „-devynis“), IF (VALUE (MID (TEXT (INT (B2), REPT (0,12)), 11,1 )) = 0, PASIRINKITE (MID (TEXT (INT (B2), REPT (0,12)), 12,1) +1, "", "one", "two", "three", "four", „penki“, „šeši“, „septyni“, „aštuoni“, „devyni“), „“))), „“, „“) ir IF (PAGRINDAS (B2,1)> 1, „doleris“, „doleris“) ")) & IF (ISERROR (FIND (". ", B2,1))," "," ir "& PROPER (IF (LEN (LEFT (TRIM (MID (SUPSTITUTE (Sheet1! B2,".) ", REPT (" ", 255)), 255 200)), 2)) = 1, PASIRINKITE (1*Kairė (T RIM (MID (PAKEITIS (1 lapas! B2, ".", REPT ("", 255)), 255 200)), 2), "dešimt", "dvidešimt", "trisdešimt", "keturiasdešimt", "penkiasdešimt", „šešiasdešimt“, „septyniasdešimt“, „aštuoniasdešimt“, „devyniasdešimt“) ir „centai“, „“) & KONCENTAUOTI REPT ("", 255)), 255 200)), 2)), REPT (0,12)), 11,1) +1, "", PASIRINKITE (MID (TEXT (INT (LEFT (TRIM (MID (PAKEITIMAS)) (1 lapas! B2, ".", REPT ("", 255)), 255 200)), 2)), REPT (0,12)), 12,1) +1, "dešimt", "vienuolika", " dvylika “,„ trylika “,„ keturiolika “,„ penkiolika “,„ šešiolika “,„ septyniolika “,„ aštuoniolika “,„ devyniolika “) ir„ centai “,„ dvidešimt “,„ trisdešimt “,„ keturiasdešimt “,„ penkiasdešimt “ "," šešiasdešimt "," septyniasdešimt "," aštuoniasdešimt "," devyniasdešimt "), IF (VALUE (MID (TEXT (INT (LEFT (TRIM (MID (SUPSTITUTE (Sheet1! B2,".)), REPT ("", 255)), 255,200)), 2)), REPT (0,12)), 11,1))> 1, PASIRINKITE (MID (TEXT (INT (LEFT (TRIM (MID (PAKEITIS (1 lapas! B2, "))). ", REPT (" ", 255)), 255 200)), 2)), REPT (0,12)), 12,1) +1," ","-vienas ","-du ","-trys ","-keturi ","-penki ","-šeši ","-septyni ","-aštuoni ","-devyni ") ir" centai ", IF (LEFT (TRIM (MID (PAKEITIS (1 lapas! B2) , ".", REPT ("", 255)), 255 200)), 2) = "01", "vienas centas", IF (LEFT (TRIM (MID (PAKEITIS (1 lapas! B2, ".")), REPT ( "", 255)), 255 200)), 1) = "0", PASIRINKITE (MID (TEXT (INT (LEFT (TRIM (MID (SUPSTITUTE (Sheet1! B2, ".)), REPT (", 255)) , 255,200)), 2)), REPT (0,12)), 12,1) +1, "", "vienas", "du", "trys", "keturi", "penki", "šeši" , „septyni“, „aštuoni“, „devyni“) ir „centai“, „“)))))))) |
Taigi taip, tai yra formulė. Ar jums patinka? Tikiuosi, kad tai jums naudinga. Jei nenorite to naudoti, naudokite VBA metodą, norėdami konvertuoti skaičius į žodžius. Jei turite kokių nors abejonių dėl šio straipsnio arba turite kitų su „Excel“ susijusių klausimų, paklauskite to ir komentarų skiltyje.
Kaip konvertuoti skaičių į žodžius „Excel“ rupijomis : Mes galime sukurti pasirinktinę „Excel“ formulę, kad skaičiai būtų paversti žodžiais Indijos rupijomis. Sukūriau šią pasirinktinę funkciją, kad skaičiai būtų paversti žodžiais Indijos rupijomis. Galite atsisiųsti makro failą
13 „Excel“ spartinimo metodų | „Excel“ yra pakankamai greita, kad idealios sąlygos su įprastos konfigūracijos kompiuteriu per 1 sekundę apskaičiuotų 6,6 milijono formulių. Tačiau kartais pastebime, kad „Excel“ failai skaičiuojami lėčiau nei sraigės. Šio lėtesnio veikimo priežastys yra daug. Jei galime juos identifikuoti, galime greičiau apskaičiuoti formules.
Centruokite „Excel“ lapą horizontaliai ir vertikaliai „Excel“ puslapyje : „Microsoft Excel“ leidžia suderinti darbalapį puslapyje, galite pakeisti paraštes, nurodyti pasirinktines paraštes arba centruoti darbalapį horizontaliai arba vertikaliai puslapyje. Puslapio paraštės yra tušti tarpai tarp darbalapio duomenų ir atspausdinto puslapio kraštų
Padalinkite ląstelę įstrižai „Microsoft Excel 2016“ : Norėdami skaidyti langelius įstrižai, naudojame langelio formatavimą ir įterpiame į langelį įstrižai skiriančią liniją. Tai vizualiai atskiria ląsteles įstrižai.
Kaip įterpti varnelę „Excel 2016“ : Norėdami įterpti varnelę „Excel“ langelyje, naudojame „Excel“ simbolius. Nustatykite šriftus į sparnus ir naudokite formulę Char (252), kad gautumėte varnelės simbolį.
Kaip išjungti „Scroll Lock“ programoje „Excel“ : „Excel“ rodyklių klavišai perkelia langelį aukštyn, žemyn, kairėn ir dešinėn. Tačiau ši funkcija taikoma tik tada, kai „Excel“ slinkties užraktas yra išjungtas. „Scroll Lock“ programoje „Excel“ naudojama slinkti aukštyn, žemyn, kairėn ir dešinėn darbalapį, o ne langelį. Taigi šis straipsnis padės jums patikrinti slinkties užrakto būseną ir kaip ją išjungti?
Ką daryti, jei „Excel“ pertraukos nuorodos neveikia : Kai dirbame su keliais „Excel“ failais ir darbui atlikti naudojame formulę, tyčia ar netyčia sukuriame nuorodas tarp skirtingų failų. Įprastas formulės nuorodas galima lengvai sulaužyti naudojant parinktį „Nutraukti nuorodas“.
Populiarūs straipsniai:
50 „Excel“ nuorodų, skirtų produktyvumui padidinti | Greičiau atlikite savo užduotį. Šie 50 sparčiųjų klavišų leis dar greičiau dirbti naudojant „Excel“.
Kaip naudotis „Excel VLOOKUP“ funkcija| Tai yra viena iš dažniausiai naudojamų ir populiariausių „Excel“ funkcijų, naudojama norint ieškoti vertės iš įvairių diapazonų ir lapų.
Kaip naudotis „Excel“ Funkcija COUNTIF| Naudodami šią nuostabią funkciją, suskaičiuokite reikšmes su sąlygomis. Norint suskaičiuoti konkrečią vertę, nereikia filtruoti duomenų. Skaitiklio funkcija yra būtina norint paruošti prietaisų skydelį.
Kaip naudoti „SUMIF“ funkciją „Excel“ | Tai dar viena esminė prietaisų skydelio funkcija. Tai padeda apibendrinti vertes konkrečiomis sąlygomis.