U ovom članku ću vam pokazati dva brza i besplatna načina za pretvaranje brojeva valuta u engleske riječi u Excelu 2019, 2016, 2013 i drugim verzijama.

Microsoft Excel je odličan program za izračunavanje toga i toga. Prvobitno je razvijen za obradu velikih nizova podataka. Međutim, omogućava brzo i efikasno kreiranje računovodstvenih zapisa kao što su fakture, evaluacije ili bilansi.

U više ili manje solidnim platnim dokumentima potrebno je duplirati numeričke vrijednosti u obliku riječi. Mnogo je teže krivotvoriti otkucane brojeve nego one napisane rukom. Neki prevaranti mogu pokušati napraviti 8000 od 3000, dok je gotovo nemoguće potajno zamijeniti "tri" sa "osam".

Dakle, ono što vam treba nije samo pretvaranje brojeva u riječi u Excel-u (npr. 123,45 u "sto dvadeset tri, četrdeset pet"), ali navedite dolare i cente (npr. 29,95 dolara kao "dvadeset devet dolara i devedeset devet centi"), funte i pene za GBP, eure i eurocente za EUR, itd.

Čak i najnovije verzije Excela nemaju ugrađeni alat za pisanje brojeva, a da ne spominjemo ranije verzije. Ali tada je Excel zaista dobar. Uvijek možete poboljšati njegovu funkcionalnost koristeći formule u svim njihovim

kombinacijama, VBA makroe ili dodatke treće strane.

U nastavku ćete pronaći dva načina za pretvaranje brojeva iz brojke u riječi

I, možda, možda ćete trebatipretvoriti riječi u brojeve u Excelu

Napomena. Ako tražite pretvorbu broja u tekst , što znači da želite da Excel vidi vaš broj kao tekst, to je malo drugačija stvar. Za ovo možete koristiti funkciju TEXT ili nekoliko drugih načina opisanih u Kako promijeniti brojeve u tekst u Excelu.

SpellNumber VBA makro za pretvaranje brojeva u riječi

Kao što sam već spomenuo , Microsoft nije želio dodati alat za ovaj zadatak. Međutim, kada su vidjeli koliko je korisnika to potrebno, kreirali su i objavili poseban VBA makro na svojoj web stranici. Makro radi ono što mu ime SpellNumber sugerira. Svi ostali makroi na koje sam naišao su bazirani na Microsoftovom kodu.

Možete pronaći makro koji se spominje kao "formula broja pravopisa". Međutim, to nije formula, već makro funkcija, ili da budemo precizniji Excel korisnički definirana funkcija (UDF).

Opcija spellnumber može pisati dolare i cente. Ako vam je potrebna drugačija valuta, možete promijeniti " dollar " i " cent " imenom svoje valute.

Ako niste VBA pametni tip , ispod ćete naći kopiju koda. Ako i dalje ne želite ili nemate vremena da ovo riješite, koristite ovo rješenje.

1. Otvorite radnu svesku u kojoj trebate spelovati brojeve.
2. Pritisnite Alt +F11 za otvaranje prozora uređivača Visual Basica.
3. Ako imate nekoliko otvorenih knjiga, provjerite je li potrebna radna knjiga aktivna pomoćulista projekata u gornjem lijevom kutu uređivača (jedan od elemenata radne knjige je označen plavom bojom).
4. U izborniku uređivača idite na Insert -> Module .
5. Trebali biste vidjeti prozor pod nazivom Vaša knjiga - Modul1. Odaberite sav kod u okviru ispod i zalijepite ga u ovaj prozor.

   Opcija Eksplicitna 'Glavna funkcija Funkcija SpellNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Mjesto(9) As String Mjesto(2) = " Hiljadu " Mjesto (3) = " Million " Mjesto(4) = " Billion " Mjesto(5) = " Trilion " MojBroj = Trim(Str(Moj broj)) DecimalnoPlace = InStr(Moj broj, "." ) Ako DecimalnoPlace > 0 Zatim centi = GetTens(Levo(Sredina(Moj broj, DecimalnoPlace + 1) & _ "00" , 2)) Moj Broj = Trim(Levo(Moj broj, DecimalnoMjesto - 1)) Kraj ako je Count = 1 Uradi dok moj broj "" Temp = GetHundreds(Desno(Moj broj, 3)) Ako Temp "" Onda dolari = Temp & Mjesto(broj) & Dolari ako Len(moj broj) > 3 Zatim Moj Broj = Lijevo(Moj broj, Len(Moj broj) - 3) Drugo Moj Broj = "" Kraj Ako Broji = Broji + 1 petlja Odaberi slučaj Dolari Slučaj "" Dolari = "Nema dolara" Slučaj "Jedan" Dolar = "Jedan dolar" Case Else Dollars = dolari & " Dollars" Kraj Odaberi Odaberi Case Cents Case "" Cents = " and No Cents" Case "One" Cents = " and One Cent" Case Else Cents = " and " & Centi & " Centi" Kraj Odaberi broj pravopisa = dolari & Cents End Funkcija Funkcija GetHundreds(ByVal MyNumber) Zatamnite rezultat kao niz Ako je Val(MyNumber) = 0 Zatim Izađite iz funkcije MojBroj = Desno( "000" & Moj broj, 3) ' Pretvorite mjesto stotine. Ako je sredina(moj broj, 1, 1) "0" onda je rezultat = GetDigit(sredina(moj broj, 1, 1)) & " Hundred " End If ' Pretvorite desetice i jedinice. Ako je sredina(moj broj, 2, 1) "0" onda je rezultat = rezultat & GetTens(Mid(Moj broj, 2)) Else Rezultat = Rezultat & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Rezultat Kraj Funkcija Funkcija GetTens(TensText) Zatamni rezultat kao string Rezultat = "" ' Poništi privremenu vrijednost funkcije. Ako je Val(Left(TensText, 1)) = 1 Onda ' Ako je vrijednost između 10-19... Odaberite Case Val(TensText) Slučaj 10: Rezultat = "Deset" Slučaj 11: Rezultat = "Jedanaest" Slučaj 12: Rezultat = "Dvanaest " Slučaj 13: Rezultat = "Trinaest" Slučaj 14: Rezultat = "Četrnaest" Slučaj 15: Rezultat = "Petnaest" Slučaj 16: Rezultat = "Šesnaest" Slučaj 17: Rezultat = "Sedamnaest" Slučaj 18: Rezultat = "Osamnaest" Slučaj 19: Rezultat = "Devetnaest" Case Else End Select Else ' Ako je vrijednost između 20-99... Odaberite Case Val(Left(TensText, 1)) Slučaj 2: Rezultat = "Dvadeset" Slučaj 3: Rezultat = "Thirty" Slučaj 4: Rezultat = "Četrdeset" Slučaj 5: Rezultat = "Pedeset" Slučaj 6: Rezultat = "Šezdeset" Slučaj 7: Rezultat = "Sedamdeset" Slučaj 8: Rezultat = "Osamdeset" Slučaj 9: Rezultat = "Devedeset" Slučaj Drugi Kraj Odaberite rezultat = Rezultat & GetDigit _ (Desno(TensText, 1)) ' Povrati jedno mjesto. End If GetTens = Rezultat Kraj Funkcija Funkcija GetDigit(Digit) Odaberite velika i mala slovaVal(Digit) Slučaj 1: GetDigit = "Jedan" Slučaj 2: GetDigit = "Dva" Slučaj 3: GetDigit = "Tri" Slučaj 4: GetDigit = "Četiri" Slučaj 5: GetDigit = "Pet" Slučaj 6: GetDigit = " Šest" Slučaj 7: GetDigit = "Sedam" Slučaj 8: GetDigit = "Osam" Slučaj 9: GetDigit = "Devet" Slučaj Ostalo: GetDigit = "" Kraj Odaberi Kraj funkcija

6. Pritisnite Ctrl+S da sačuvate ažuriranu radnu svesku.

   Morat ćete ponovo sačuvati svoju radnu svesku. Kada pokušate da sačuvate radnu svesku sa makroom, dobićete poruku " Sledeće funkcije se ne mogu sačuvati u radnoj svesci bez makroa "

   

   Kliknite na Ne. Kada vidite novi dijalog, odaberite opciju Sačuvaj kao. U polju " Sačuvaj kao tip " odaberite opciju " Radna sveska sa omogućenim makroima za Excel ".

   Vidi_takođe: Kako umetnuti brojeve stranica u Excel
   

Koristi makro SpellNumber u vaši radni listovi

Sada možete koristiti funkciju SpellNumber u vašim Excel dokumentima. Unesite =SpellNumber(A2) u ćeliju u kojoj trebate dobiti broj napisan riječima. Ovdje je A2 adresa ćelije sa brojem ili iznosom.

Ovdje možete vidjeti rezultat:

Voila!

Brzo kopirajte funkciju SpellNumber u druge ćelije.

Ako trebate pretvoriti cijelu tablicu, a ne samo 1 ćeliju, postavite pokazivač miša u donji desni ugao ćelije s formulom dok se ne pretvori u mali crni križ:

Kliknite lijevom tipkom miša i povucite je preko stupac za popunjavanje formule. Otpustite dugme da vidite rezultate:

Napomena. Molim teimajte na umu da ako koristite SpellNumber sa vezom na drugu ćeliju, napisani zbroj će se ažurirati svaki put kada se promijeni broj u izvornoj ćeliji.

Također možete unijeti broj direktno u funkciju, za na primjer, =SpellNumber(29.95) (29,95 - bez navodnika i znaka dolara).

Nedostaci korištenja makroa za sricanje brojeva u Excel-u

Prvo, morate znati VBA da biste izmijenili kod u skladu sa vašim potrebe. Potrebno je zalijepiti kod za svaku radnu svesku, gdje planirate da ga promijenite. U suprotnom, morat ćete kreirati datoteku predloška s makroima i konfigurirati Excel da učita ovu datoteku pri svakom pokretanju.

Glavni nedostatak korištenja makronaredbe je da ako pošaljete radnu knjigu nekom drugom, ta osoba neće pogledajte tekst osim ako makro nije ugrađen u radnu svesku. Čak i ako je ugrađen, dobiće upozorenje da postoje makroi u radnoj svesci.

Specite brojeve u riječi pomoću posebnog dodatka

Za korisnike Excela koji trebaju brzo spelovati zbrojeve, ali nemaju vremena da nauče VBA ili pronađu rješenja, kreirali smo poseban alat koji može brzo izvršiti konverziju iznosa u riječi za nekoliko popularnih valuta. Ispunite dodatak Spell Number uključen u najnovije izdanje našeg Ultimate Suite for Excel.

Osim što je spreman za upotrebu, alat je zaista fleksibilan u pretvaranju iznosa u tekst:

• Možete odabrati jedan odsljedeće valute: USD, EUR, GBP, BIT, AUD.
• Napišite razlomak u centima, penijama ili bitcentima.
• Odaberite bilo koja velika i mala slova za rezultat: mala slova, VELIKA SLOVENA , Velika i mala slova u naslovu ili velika i mala rečenica.
• Napišite decimalni dio na različite načine.
• Uključite ili izostavite nula centi.

Dodatak podržava sve moderne verzije uključujući Excel 365, Excel 2029, Excel 2016, Excel 2013 i Excel 2010. Slobodno istražite druge mogućnosti na početnoj stranici proizvoda na kojoj je povezan gore.

A sada, pogledajmo ovaj uslužni program za pravopis u akciji :

1. Odaberite praznu ćeliju za rezultat.
2. Na kartici Ablebits , u grupi Uslužni programi , kliknite na Broj pravopisa .
3. U dijaloškom prozoru Broj prolivanja koji se pojavi, konfigurirajte sljedeće stvari:
   • Za okvir Odaberite svoj broj , odaberite ćeliju koja sadrži iznos koji želite da bude napisan kao tekst.
   • Odredite željeni trenutno , velika i mala slova i način na koji je decimala dio broja treba biti napisan.
   • Definirajte hoćete li uključiti nula centi ili ne.
   • Odaberite hoćete li umetnuti rezultat kao vrijednost ili formulu.
4. Na dnu prozora dijaloga, pregledajte rezultat. Ako ste zadovoljni načinom na koji je vaš broj napisan, kliknite na Spell . U suprotnom, pokušajte s drugačijim postavkama.

Snimak ekrana ispod pokazuje zadane postavkeizbori i napisani broj u B2. Obratite pažnju na formulu (točnije, korisnički definiranu funkciju) u traci formule:

A ovo je brza demonstracija kako se druge valute mogu ispisati:

Savjeti i napomene:

• Budući da je dodatak Spell Number dizajniran za rukovanje stvarnim slučajevima upotrebe kao što su fakture i drugi finansijski dokumenti, može pretvoriti samo jedan broj odjednom.
• Da biste sricali stupac brojeva , umetnite formulu u prvu ćeliju, a zatim kopirajte formulu dolje.
• Ako postoji šansa da vaši izvorni podaci se mogu promijeniti u budućnosti, najbolje je umetnuti rezultat kao formulu , tako da se automatski ažurira kako se originalni broj promijeni.
• Kada odaberete rezultat kao formulu opcija, prilagođena korisnički definirana funkcija (UDF) je umetnuta. Ako planirate podijeliti svoju radnu knjigu s nekim ko nema instaliran Ultimate Suite, ne zaboravite zamijeniti formule vrijednostima prije dijeljenja.

Obrnuta konverzija - engleske riječi u brojeve

Iskreno , ne mogu zamisliti zašto bi vam to moglo zatrebati. Za svaki slučaj... :)

Čini se da je Excel MVP, Jerry Latham, kreirao takvu funkciju koju definira korisnik Excel (UDF) kao WordsToDigits . Konvertuje engleske riječi natrag u broj.

Možete preuzeti Jerryjevu radnu knjigu WordsToDigits da vidite UDF kod. Ovdje ćete također pronaći njegove primjere kako koristitifunkcija.

Možete vidjeti kako funkcija funkcionira na listu " Sample Entries ", gdje ćete također moći unijeti svoje primjere. Ako planirate da koristite WordsToDigits u svojim dokumentima, imajte na umu da ova funkcija ima ograničenja. Na primjer, ne prepoznaje razlomke unesene u riječi. Sve detalje ćete pronaći na listu " Informacije ".