Tässä artikkelissa näytän sinulle kaksi nopeaa ja ilmaista tapaa muuntaa valuuttanumerot englanninkielisiksi sanoiksi Excel 2019, 2016, 2013 ja muissa versioissa.

Microsoft Excel on loistava ohjelma, jolla voit laskea sitä sun tätä. Se on alun perin kehitetty suurten tietomassojen käsittelyyn. Sen avulla voit kuitenkin myös luoda nopeasti ja tehokkaasti kirjanpitoaineistoja, kuten laskuja, arviointeja tai taseita.

Enemmän tai vähemmän vankoissa maksuasiakirjoissa on tarpeen kopioida numeroarvot niiden sanamuodossa. Kirjoitettuja numeroita on paljon vaikeampi väärentää kuin käsin kirjoitettuja. Joku huijari voi yrittää tehdä 3000:sta 8000, kun taas "kolme" on lähes mahdotonta korvata salaa "kahdeksalla".

Sinun ei siis tarvitse vain muuntaa numeroita sanoiksi Excelissä (esim. 123,45 "satakaksikymmentäkolme neljäkymmentäviisi"), vaan myös kirjoittaa dollareita ja senttejä (esim. 29,95 dollaria "kaksikymmentäyhdeksän dollaria ja yhdeksänkymmentäyhdeksän senttiä" ), puntia ja pennejä GBP:lle, euroja ja eurosenttejä EUR:lle jne.

Jopa Excelin uusimmissa versioissa ei ole sisäänrakennettua työkalua numeroiden oikeinkirjoitusta varten, puhumattakaan aiemmista versioista. Mutta juuri silloin Excel on todella hyvä. Voit aina parantaa sen toiminnallisuutta käyttämällä kaavoja kaikissa niiden

yhdistelmiä, VBA-makroja tai kolmannen osapuolen lisäosia.

Alla on kaksi tapaa muuntaa numerot luvuista sanoiksi.

Ja mahdollisesti sinun on muunnettava sanat Excelissä numeroiksi.

Huomautus: Jos etsit numeron muuntaminen tekstiksi , mikä tarkoittaa, että haluat Excelin näkevän numeron tekstinä, se on hieman eri asia. Tätä varten voit käyttää TEXT-funktiota tai muutamia muita tapoja, jotka on kuvattu kohdassa Numeroiden muuttaminen tekstiksi Excelissä.

SpellNumber VBA-makro numeroiden muuntamiseksi sanoiksi

Kuten jo mainitsin, Microsoft ei halunnut lisätä työkalua tähän tehtävään. Kun he kuitenkin näkivät, kuinka monet käyttäjät tarvitsivat sitä, he loivat ja julkaisivat erityisen VBA-makron verkkosivuillaan. Makro tekee sen, mitä sen nimi SpellNumber antaa ymmärtää. Kaikki muut löytämäni makrot perustuvat Microsoftin koodiin.

Löydät makron nimellä "spellnumber formula". Se ei kuitenkaan ole kaava, vaan makrofunktio, tai tarkemmin sanottuna Excelin käyttäjän määrittelemä toiminto (UDF).

Spellnumber-vaihtoehto pystyy kirjoittamaan dollareita ja senttejä. Jos tarvitset eri valuutan, voit vaihtaa " dollari " ja " senttiä " nimellä.

Jos et ole VBA-taitoinen kaveri, alla on kopio koodista. Jos et silti halua tai sinulla ei ole aikaa selvittää tätä, käytä tätä ratkaisua.

1. Avaa työkirja, johon numerot on kirjoitettava.
2. Avaa Visual Basic -editori-ikkuna painamalla Alt+F11.
3. Jos sinulla on useita kirjoja avattuna, tarkista, että tarvittava työkirja on aktiivinen, käyttämällä editorin vasemmassa yläkulmassa olevaa projektiluetteloa (yksi työkirjan elementeistä on korostettu sinisellä).
4. Siirry editorin valikossa kohtaan Lisää -> Moduuli .
5. Sinun pitäisi nähdä ikkuna nimeltä YourBook - Module1. Valitse kaikki alla olevassa kehyksessä oleva koodi ja liitä se tähän ikkunaan.

   Option Explicit 'Main Function Function SpellNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Tuhat " Place(3) = " Miljoona " Place(4) = " Miljardi " Place(5) = " Triljoona " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) If DecimalPlace> 0 Then Cents = HankiKymppiä(Vasen(Keskimmäinen(MyNumber, DecimaaliPlace + 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 = "OneDollar" 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 Function GetHundreds( ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right( "000" & MyNumber,3) ' Muunna sadan paikka. If Mid(OmaLuku, 1, 1) "0" Then Result = GetDigit(Mid(OmaLuku, 1, 1)) & " Sata " End If ' Muunna kympin ja ykkösen paikka. If Mid(OmaLuku, 2, 1) "0" Then Result = Result & GetTens(Mid(OmaLuku, 2)) Else Result = Result & GetDigit(Mid(OmaLuku, 3)) End If GetHundreds = Result End Function Function GetTens(TensText) Dim Result As String Result = ""' Nollaa tilapäisen funktion arvo. If Val(Left(TensText, 1)) = 1 Then ' Jos arvo välillä 10-19... Select Case Val(TensText) Case 10: Tulos = "Kymmenen" Case 11: Tulos = "Yksitoista" Case 12: Tulos = "Kaksitoista" Case 13: Tulos = "Kolmetoista" Case 14: Tulos = "Neljätoista" Case 15: Tulos = "Viisitoista" Case 16: Tulos = "Kuusitoista" Case 17: Tulos = "Seitsemäntoista" Case 18: Tulos = "Kahdeksantoista" Case 19: Tulos ="Nineteen" Case Else End Select Else ' Jos arvo välillä 20-99... Select Case Val(Left(TensText, 1)) Case 2: Tulos = "Twenty " Case 3: Tulos = "Thirty " Case 4: Tulos = "Forty " Case 5: Tulos = "Fifty " Case 6: Tulos = "Sixty " Case 7: Tulos = "Seventy " Case 8: Tulos = "Eighty " Case 9: Tulos = "Ninety " Case Else End Select Tulos = Tulos & GetDigit _ (Right(TensText, 1)) ' Retrieveykkösten paikka. End If GetTens = Tulos End Function Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "Yksi" Case 2: GetDigit = "Kaksi" Case 3: GetDigit = "Kolme" Case 4: GetDigit = "Neljä" Case 5: GetDigit = "Viisi" Case 6: GetDigit = "Kuusi" Case 7: GetDigit = "Seitsemän" Case 8: GetDigit = "Kahdeksan" Case 9: GetDigit = "Yhdeksän" Case Else : GetDigit = "" End Select End Function End Function

6. Tallenna päivitetty työkirja painamalla Ctrl+S.

   Sinun on tallennettava työkirja uudelleen. Kun yrität tallentaa työkirjan makron kanssa, saat ilmoituksen " Seuraavia toimintoja ei voi tallentaa makroista vapaaseen työkirjaan "

   

   Napsauta Ei. Kun näet uuden valintaikkunan, valitse Tallenna nimellä -vaihtoehto. Kentässä " Tallenna tyypiksi " valitse vaihtoehto " Excel-makroilla varustettu työkirja ".

   

Käytä SpellNumber-makroa työarkkeissasi

Nyt voit käyttää funktiota SpellNumber Excel-asiakirjoissasi. Kirjoita =SpellNumber(A2) soluun, johon haluat saada numeron kirjoitettuna sanoin. Tässä A2 on sen solun osoite, jossa numero tai määrä on.

Tässä näet tuloksen:

Voila!

Kopioi SpellNumber-toiminto nopeasti muihin soluihin.

Jos haluat muuntaa koko taulukon, etkä vain yhtä solua, aseta hiiren kursori kaavan sisältävän solun oikeaan alakulmaan, kunnes se muuttuu pieneksi mustaksi ristiksi:

Täytä kaava napsauttamalla vasemmalla painikkeella ja vetämällä sitä sarakkeen poikki. Vapauta painike nähdäksesi tulokset:

Huomaa, että jos käytät SpellNumberia linkin kanssa toiseen soluun, kirjoitettu summa päivittyy aina, kun lähdesolun numeroa muutetaan.

Voit myös syöttää numeron suoraan toimintoon, esimerkiksi, =SpellNumber(29.95) (29,95 - ilman lainausmerkkejä ja dollarimerkkiä).

Makron käyttämisen haitat numeroiden kirjoittamiseen Excelissä

Ensinnäkin sinun on tunnettava VBA:ta, jotta voit muokata koodia tarpeidesi mukaan. Koodi on liimattava jokaiseen työkirjaan, johon aiot tehdä muutoksia. Muussa tapauksessa sinun on luotava mallitiedosto, jossa on makroja, ja määritettävä Excel niin, että se lataa tämän tiedoston jokaisen käynnistyksen yhteydessä.

Makron käytön suurin haittapuoli on se, että jos lähetät työkirjan jollekin toiselle henkilölle, tämä ei näe tekstiä, ellei makroa ole sisällytetty työkirjaan. Ja vaikka makro olisikin sisällytetty työkirjaan, hän saa varoituksen siitä, että työkirjassa on makroja.

Kirjoita numerot sanoiksi käyttämällä erityistä lisäosaa

Excel-käyttäjille, jotka tarvitsevat nopeasti summatietoja, mutta joilla ei ole aikaa opetella VBA:ta tai keksiä kiertoteitä, olemme luoneet erityisen työkalun, joka voi nopeasti suorittaa summan muuntamisen sanoiksi muutamille suosituille valuutoille. Tutustu Spell Number -lisäosaan, joka sisältyy Ultimate Suite for Excel -ohjelmistomme uusimpaan julkaisuun.

Sen lisäksi, että työkalu on käyttövalmis, se on todella joustava muunnettaessa määriä tekstiksi:

• Voit valita yhden seuraavista valuutoista: USD, EUR, GBP, BIT, AUD.
• Kirjoita murto-osa sentteinä, penneinä tai bitti-sentteinä.
• Valitse tulokseksi mikä tahansa tekstin kirjainlaji: pienaakkoset, YLÄKIRJOITUS, otsikkokirjain tai lausekekirjain.
• Kirjoita desimaaliosa eri tavoin.
• Sisällytä tai jätä pois nolla senttiä.

Lisäosa tukee kaikkia nykyaikaisia versioita, mukaan lukien Excel 365, Excel 2029, Excel 2016, Excel 2013 ja Excel 2010. Tutustu muihin ominaisuuksiin tuotteen kotisivulla, johon on linkki yllä.

Ja nyt, katsotaanpa tätä numeron oikeinkirjoituksen apuohjelmaa toiminnassa:

1. Valitse tyhjä solu tulokseksi.
2. On Ablebits välilehdellä, kohdassa Apuohjelmat ryhmää, napsauta Loitsun numero .
3. Vuonna Vuodon numero avautuvassa valintaikkunassa määritä seuraavat asiat:
   • Sillä Valitse numerosi Valitse solu, joka sisältää summan, jonka haluat kirjoittaa tekstinä.
   • Määritä haluttu tällä hetkellä , kirjainkotelo ja tapa, jolla desimaaliosa numero on kirjoitettava oikein.
   • Määritä, sisällytetäänkö nollasentit vai ei.
   • Valitse, lisätäänkö tulos arvona vai kaavana.
4. Valintaikkunan alareunassa, esikatselu Jos olet tyytyväinen siihen, miten numerosi on kirjoitettu, napsauta painiketta. Loitsu . Muuten kokeile eri asetuksia.

Alla olevassa kuvakaappauksessa näkyvät oletusvalinnat ja kirjoitettu numero B2:ssa. Huomaa kaava (tarkemmin sanottuna käyttäjän määrittelemä funktio) kaavarivillä:

Ja tämä on nopea esimerkki siitä, miten muut valuutat voidaan kirjoittaa:

Vinkkejä ja huomautuksia:

• Koska Loitsun numero lisäosa on suunniteltu käsittelemään tosielämän käyttötapauksia, kuten laskuja ja muita talousasiakirjoja, se voi muuntaa vain laskuja ja muita talousasiakirjoja. yksi numero kerrallaan.
• Tavata numerosarake , lisää kaava ensimmäiseen soluun ja kopioi kaava alaspäin.
• Jos on mahdollista, että lähdetietosi voivat muuttua tulevaisuudessa, on parasta, että lisää tulos kaavana , joten se päivittyy automaattisesti alkuperäisen numeron muuttuessa.
• Kun valitset tulos kaavana vaihtoehto, mukautettu käyttäjän määrittelemä toiminto (Jos aiot jakaa työkirjasi jonkun sellaisen henkilön kanssa, jolla ei ole Ultimate Suitea asennettuna, muista korvata kaavat arvoilla ennen jakamista.

Käänteinen muuntaminen - Englannin kielen sanat numeroiksi

Suoraan sanottuna en osaa kuvitella, mihin sitä tarvitsisit, mutta kaiken varalta... :)

Näyttää siltä, että Excel MVP, Jerry Latham, on luonut tällaisen Excelin käyttäjän määrittelemän toiminnon (UDF), kuten WordsToDigits . Se muuntaa englanninkieliset sanat takaisin numeroiksi.

Voit ladata Jerryn WordsToDigits-työkirjan nähdäksesi UDF-koodin. Täältä löydät myös hänen esimerkkejään funktion käytöstä.

Voit nähdä, miten toiminto toimii arkilla " Näytteen merkinnät ", jossa voit myös syöttää omia esimerkkejäsi. Jos aiot käyttää WordsToDigits-toimintoa asiakirjoissasi, ota huomioon, että tällä toiminnolla on rajoituksia. Se ei esimerkiksi tunnista murtolukuja, jotka on syötetty sanoina. Löydät kaikki yksityiskohdat osoitteesta " Tiedot " arkki.