Selles artiklis näitan teile kahte kiiret ja tasuta viisi, kuidas konverteerida valuutanumbreid inglise sõnadesse Excel 2019, 2016, 2013 ja muudes versioonides.

Microsoft Excel on suurepärane programm selle ja selle arvutamiseks. See on algselt välja töötatud suurte andmemassiivide töötlemiseks. Siiski võimaldab see ka raamatupidamisdokumentide, näiteks arvete, hindamise või bilansside kiiret ja tõhusat koostamist.

Enam-vähem soliidsetes maksedokumentides on vaja numbrilisi väärtusi dubleerida nende sõnalise vormiga. Masintrükitud numbreid on palju raskem võltsida kui käsitsi kirjutatud numbreid. Mõni pettur võib proovida 3000-st teha 8000, samas kui "kolm" on peaaegu võimatu salaja asendada "kaheksa" sõnaga "kaheksa".

Seega ei ole vaja Excelis mitte ainult teisendada numbreid sõnadesse (nt 123,45 "sajaks kahekümne kolmeks ja neljakümne viieks"), vaid kirjutada dollarid ja sendid (nt 29,95 dollarit "kahekümne üheksa dollariks ja üheksakümne üheksaks sendiks" ), naelad ja pennid GBP, eurod ja eurosentid EUR jne. jaoks.

Isegi Exceli uusimatel versioonidel ei ole sisseehitatud tööriista numbrite õigekirja kirjutamiseks, rääkimata varasematest versioonidest. Aga just siis on Excel tõesti hea. Alati saab parandada selle funktsionaalsust, kasutades valemeid kõigis oma

kombinatsioone, VBA makroid või kolmanda osapoole lisasid.

Järgnevalt leiate kaks võimalust, kuidas teisendada numbreid arvudest sõnadesse

Ja võimalik, et teil on vaja konverteerida sõnad Excelis numbriteks.

Märkus. Kui otsite numbri teisendamine tekstiks , mis tähendab, et soovite, et Excel näeks teie numbrit tekstina, on see natuke teine asi. Selleks saate kasutada funktsiooni TEXT või mõnda muud võimalust, mida on kirjeldatud peatükis Kuidas muuta numbrid tekstiks Excelis.

SpellNumber VBA makro numbrite teisendamiseks sõnadeks

Nagu ma juba mainisin, ei tahtnud Microsoft selle ülesande jaoks tööriista lisada. Kui nad aga nägid, kui paljud kasutajad seda vajavad, lõid nad spetsiaalse VBA makro ja avaldasid selle oma veebilehel. Makro teeb seda, mida selle nimi SpellNumber ütleb. Kõik teised makrod, mille peale ma sattusin, põhinevad Microsofti koodil.

Makro, mida mainitakse kui "spellnumber formula". See ei ole siiski valem, vaid makrofunktsioon, täpsemalt öeldes Exceli kasutaja määratletud funktsioon (UDF).

Spellnumber valikuga on võimalik kirjutada dollareid ja sente. Kui vajate teistsugust valuutat, saate muuta " dollar " ja " senti " koos oma nimega.

Kui te ei ole VBA-ga kursis, leiate allpool koodikoopia. Kui te siiski ei taha või ei ole aega selle lahendamiseks, kasutage seda lahendust.

1. Avage töövihik, kus on vaja numbreid kirjutada.
2. Vajutage Alt+F11, et avada Visual Basici redaktsiooniaken.
3. Kui teil on avatud mitu raamatut, kontrollige, et vajalik töövihik on aktiivne, kasutades redaktori vasakus ülanurgas asuvat projektide nimekirja (üks töövihiku elementidest on sinisega esile tõstetud).
4. Toimetaja menüüs mine Sisesta -> Moodul .
5. Te peaksite nägema akent nimega YourBook - Module1. Valige kogu allolevas raamis olev kood ja kleepige see sellesse aknasse.

   Option Explicit 'Main Function Funktsioon SpellNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Tuhat " Place(3) = " Miljon " Place(4) = " Miljard " Place(5) = " Trillion " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) If DecimalPlace> 0 Then Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2))) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp "" Then Dollars = Temp & Place(Count) & Dollars If Len(MyNumber)> 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One".Dollar" Case Else Dollars = Dollars & " Dollars" End Select Select Case Cents Case "" Cents = " and No Cents" Case "One" Cents = " and One Cent" Case Else Cents = " and " & Cents & " Cents" End Select SpellNumber = Dollars & Cents End Function GetHundreds( ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right( "000" & MyNumber,3) ' Konverteeri sajakohad. If Mid(Minuarv, 1, 1) "0" Then Result = GetDigit(Mid(Minuarv, 1, 1)) & " Sada " End If ' Konverteeri kümneste ja ühete kohad. If Mid(Minuarv, 2, 1) "0" Then Result = Result & GetTens(Mid(Minuarv, 2)) Else Result = Result & GetDigit(Mid(Minuarv, 3)) End If GetHundreds = Result End Function Function GetTens(TensText) Dim Result As String Result = ""' Tühista ajutise funktsiooni väärtus. If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19... Select Case Val(TensText) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Twelve" Case 13: Result = "Thirteen" Case 14: Result = "Fourteen" Case 15: Result = "Fifteen" Case 16: Result = "Sixteen" Case 17: Result = "Seventeen" Case 18: Result = "Eighteen" Case 19: Result = "Eighteen" Case 19: Result ="Üheksateist" Case Else End Select Else ' Kui väärtus vahemikus 20-99... Select Case Val(Left(TensText, 1)) Case 2: Result = "Kakskümmend " Case 3: Result = "Kolmkümmend " Case 4: Result = "Nelikümmend " Case 5: Result = "Viiskümmend " Case 6: Result = "Kuuekümmend " Case 7: Result = "Seitsekümmend " Case 8: Result = "Kaheksakümmend " Case 9: Result = "Üheksakümmend " Case Else End Select Result = Result & GetDigit _ (Right(TensText, 1)) ' Retrieveüks koht. End If GetTens = Result End Function Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "One" Case 2: GetDigit = "Two" Case 3: GetDigit = "Three" Case 4: GetDigit = "Four" Case 5: GetDigit = "Five" Case 6: GetDigit = "Six" Case 7: GetDigit = "Seven" Case 8: GetDigit = "Eight" Case 9: GetDigit = "Nine" Case Else : GetDigit = "" End Select End Function End Function

6. Vajutage Ctrl+S, et salvestada uuendatud töövihik.

   Te peate oma töövihiku uuesti salvestama. Kui proovite salvestada makroga töövihikut, saate teate " Järgmisi funktsioone ei saa salvestada makrovabas töövihikusse "

   

   Vajutage nuppu No. Kui ilmub uus dialoog, valige valik Save as. Väljal " Salvesta tüübina " vali valik " Exceli makrofunktsiooniga töövihik ".

   

Kasutage SpellNumber makrot oma töölehtedel

Nüüd saate kasutada funktsiooni SpellNumber oma Exceli dokumentides. Sisestage =SpellNumber(A2) sellesse lahtrisse, kuhu on vaja saada sõnadega kirjutatud number. Siin A2 on selle lahtri aadress, kus on number või summa.

Siin näete tulemust:

Voila!

SpellNumber-funktsiooni kiire kopeerimine teistesse lahtritesse.

Kui teil on vaja konverteerida kogu tabel, mitte ainult 1 lahter, asetage hiirekursor valemi sisaldava lahtri paremasse alumisse nurka, kuni see muutub väikeseks mustaks ristiks:

Klõpsake vasakuga ja lohistage seda üle veeru, et täita valem. Vabastage nupp, et näha tulemusi:

Märkus. Pidage meeles, et kui kasutate SpellNumber'i koos lingiga teisele lahtrisse, uuendatakse kirjutatud summat iga kord, kui lähtekohas olev number muutub.

Võite sisestada numbri ka otse funktsiooni, näiteks, =SpellNumber(29.95) (29,95 - ilma jutumärkide ja dollarimärgita).

Makro kasutamise puudused numbrite kirjutamiseks Excelis

Kõigepealt peate te tundma VBA-d, et muuta koodi vastavalt oma vajadustele. On vaja kleepida kood iga töövihiku jaoks, kus te kavatsete seda muuta. Vastasel juhul peate looma makrotega mallifaili ja seadistama Exceli nii, et see fail laadiks iga kord käivitamisel.

Makro kasutamise peamine puudus on see, et kui sa saadad töövihiku kellelegi teisele, ei näe see inimene teksti, kui makro ei ole töövihikusse sisse ehitatud. Ja isegi kui see on sisse ehitatud, saab ta hoiatuse, et töövihikus on makro.

Kirjutage numbrid sõnadesse, kasutades spetsiaalset lisaarvutit

Exceli kasutajatele, kellel on vaja kiiresti kirjutada summasid, kuid kellel ei ole aega VBA-d õppida või välja mõelda ümberehitusi, oleme loonud spetsiaalse tööriista, mis suudab kiiresti teostada summa sõnadesse teisendamist mõne populaarse valuuta puhul. Palun tutvuge Spell Number add-iniga, mis on lisatud meie Ultimate Suite for Exceli viimasele versioonile.

Lisaks sellele, et see tööriist on kasutusvalmis, on see ka väga paindlik summade teisendamisel tekstiks:

• Saate valida ühe järgmistest valuutadest: USD, EUR, GBP, BIT, AUD.
• Kirjutage murdosa sentides, pennides või bitsentides.
• Valige tulemuse jaoks ükskõik milline tekstiliige: väike, ÜLEMINE KASU, tiitlikasu või lauselõik.
• Kirjutage kümnendosa erinevalt.
• Lisada või jätta ära null senti.

Lisavõimalus toetab kõiki kaasaegseid versioone, sealhulgas Excel 365, Excel 2029, Excel 2016, Excel 2013 ja Excel 2010. Tutvuge julgelt muude võimalustega toote koduleheküljel, millele on viidatud eespool.

Ja nüüd näeme seda numbrite kirjutamise abivahendit praktikas:

1. Valige tulemuseks tühi lahter.
2. On Ablebits vahekaardil Kommunaalteenused rühma, klõpsake Loitsunumber .
3. In the Lekke number ilmuvas dialoogiaknas seadistage järgmised asjad:
   • Sest Valige oma number valige lahter, mis sisaldab summat, mida soovite tekstina kirja panna.
   • Määrake soovitud praegu , kirja puhul ja viis, kuidas kümnendikosa number tuleks kirjutada.
   • Määrake, kas lisada nullasendid või mitte.
   • Valige, kas sisestada tulemus väärtusena või valemina.
4. Dialoogiakna allosas, eelvaade tulemus. Kui olete rahul, kuidas teie number on kirjutatud, klõpsake Spell . muidu proovige erinevaid seadeid.

Allpool olev ekraanipilt näitab vaikimisi valikuid ja kirjutatud numbrit B2. Palun märkige valemit (täpsemalt, kasutaja määratud funktsiooni) valemiribal:

Ja see on kiire näide sellest, kuidas teisi valuutasid saab välja kirjutada:

Näpunäited ja märkused:

• Kuna Loitsunumber add-in on loodud tegelike kasutusjuhtumite, näiteks arvete ja muude finantsdokumentide töötlemiseks, saab see ainult konverteerida üks number korraga.
• Et kirjutada numbrite veerg , sisestage valem esimesse lahtrisse ja seejärel kopeerige valem alla.
• Kui on võimalus, et teie lähteandmed võivad tulevikus muutuda, siis on kõige parem sisestada tulemus valemina , nii et see uuendatakse automaatselt, kui algne number muutub.
• Valides tulemus kui valem valik, kohandatud kasutaja määratud funktsioon (UDF) on sisestatud. Kui kavatsete jagada oma töövihikut kellegagi, kellel ei ole Ultimate Suite'i paigaldatud, ärge unustage enne jagamist valemite asendamist väärtustega.

Pöördeline teisendamine - inglise keele sõnad numbriteks

Ausalt öeldes ei kujuta ma ette, miks sul seda vaja võiks olla. Igaks juhuks... :)

Tundub, et Exceli MVP, Jerry Latham, lõi sellise Exceli kasutaja määratletud funktsiooni (UDF) nagu WordsToDigits See teisendab ingliskeelsed sõnad tagasi numbriteks.

UDF-koodi vaatamiseks saate alla laadida Jerry töövihiku WordsToDigits. Siit leiate ka tema näited funktsiooni kasutamise kohta.

Saate näha, kuidas funktsioon töötab lehel " Näidise kanded ", kus saate sisestada ka oma näiteid. Kui te kavatsete kasutada WordsToDigits'i oma dokumentides, siis palun arvestage, et sellel funktsioonil on piirangud. Näiteks ei tunnista see sõnadesse sisestatud murdarvu. Kõik üksikasjad leiate " Teave " leht.