U ovom ću vam članku 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 izvrstan program za izračunavanje ovoga i onoga. U početku je razvijen za obradu velikih nizova podataka. Međutim, također omogućuje brzo i učinkovito stvaranje računovodstvenih zapisa poput faktura, procjena ili bilanci.

U više ili manje čvrstim dokumentima o plaćanju potrebno je duplicirati numeričke vrijednosti s njihovim oblikom riječi. Puno je teže krivotvoriti otkucane brojeve nego one napisane rukom. Neki prevarant može pokušati napraviti 8000 od 3000, dok je gotovo nemoguće potajno zamijeniti "tri" s "osam".

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

Čak ni najnovije verzije Excela nemaju ugrađeni alat za sricanje brojeva, a da ne spominjemo ranije verzije. Ali tada je Excel stvarno dobar. Uvijek možete poboljšati njegovu funkcionalnost pomoću formula u svim njihovim

kombinacijama, VBA makronaredbama ili dodacima trećih strana.

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

I, moguće, možda ćete moratipretvoriti riječi u brojeve u programu Excel

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

VBA makronaredba SpellNumber 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 to korisnika treba, izradili su i objavili poseban VBA makro na svojoj web stranici. Makro radi ono što sugerira njegov naziv SpellNumber. Sve druge makronaredbe na koje sam naišao temelje se na Microsoftovom kodu.

Možete pronaći makronaredbu spomenutu kao "formula broja čarolije". Međutim, to nije formula, već makro funkcija, ili da budemo precizniji Excel korisnička funkcija (UDF).

Opcija spellnumber može pisati dolare i cente. Ako vam je potrebna druga valuta, možete promijeniti " dollar " i " cent " s nazivom vaše valute.

Ako niste stručnjak za VBA , ispod ćete pronaći kopiju koda. Ako još uvijek ne želite ili nemate vremena to riješiti, upotrijebite ovo rješenje.

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

   Opcija Eksplicitno 'Glavna funkcija Funkcija SpellNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) Ako 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 & Mjesto(broj) & Dollars If Len(MyNumber) > 3 Zatim MojBroj = Lijevo(MojBroj, Len(MojBroj) - 3) Else MojBroj = "" 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 Odaberite Case Cents Case "" Cents = " and No Cents" Case "One" Cents = " and One Cent" Case Else Cents = " and " & Centi & " 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) ' Pretvori mjesto stotica. Ako je Mid(MyNumber, 1, 1) "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If ' Pretvorite mjesto desetica i jedinica. If Mid(MyNumber, 2, 1) "0" Then Result = Result & GetTens(Mid(MyNumber, 2)) Else Result = Rezultat & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function Function GetTens(TensText) Dim Result As String Result = "" ' Poništi vrijednost privremene funkcije. 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" " 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 Odaberite Else ' Ako je vrijednost između 20-99… Odaberite Case Val(Left(TensText, 1)) Slučaj 2: Rezultat = "Dvadeset" Slučaj 3: Rezultat = "Trideset" 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 Else End Odaberite rezultat = Rezultat & GetDigit _ (Right(TensText, 1)) ' Dohvati jedno mjesto. End If GetTens = Rezultat End Funkcija Funkcija GetDigit(Digit) Odaberi 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" Drugi slučaj: GetDigit = "" Kraj Odaberite Kraj funkcije

   Vidi također: Kako izbrisati posebne / neželjene znakove u Excelu
6. Pritisnite Ctrl+S za spremanje ažurirane radne knjige.

   Morat ćete ponovno spremiti svoju radnu knjižicu. Kada pokušate spremiti radnu knjigu s makronaredbom, dobit ćete poruku " Sljedeće značajke ne mogu se spremiti u radnu knjigu bez makronaredbi "

   

   Kliknite Ne. Kada vidite novi dijaloški okvir, odaberite opciju Spremi kao. U polju " Spremi kao vrstu " odaberite opciju " Radna knjiga s omogućenim makronaredbama programa Excel ".

   

Koristite makronaredbu SpellNumber u vaši radni listovi

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

Ovdje možete vidjeti rezultat:

Voila!

Brzo kopirajte funkciju SpellNumber u druge ćelije.

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

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

Napomena. Molimimajte na umu da ako koristite SpellNumber s vezom na drugu ćeliju, napisani zbroj ažurirat će se svaki put kada se promijeni broj u izvornoj ćeliji.

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

Nedostaci korištenja makronaredbe za sricanje brojeva u Excelu

Prvo, morate poznavati VBA kako biste izmijenili kod prema vašem potrebe. Potrebno je zalijepiti kod za svaku radnu knjižicu, gdje ga planirate mijenjati. U suprotnom, morat ćete stvoriti datoteku predloška s makronaredbama i konfigurirati Excel za učitavanje ove datoteke pri svakom pokretanju.

Glavni nedostatak korištenja makronaredbe je da ako radnu knjigu pošaljete nekom drugom, ta osoba neće vidjeti tekst osim ako je makro ugrađen u radnu knjigu. Čak i ako je ugrađen, dobit će upozorenje da u radnoj knjizi postoje makronaredbe.

Sričite brojeve u riječi pomoću posebnog dodatka

Za korisnike programa Excel koji trebaju brzo sricati zbrojeve, ali nemaju vremena naučiti VBA ili pronaći zaobilazna rješenja, stvorili smo poseban alat koji može brzo izvršiti konverziju iznosa u riječi za nekoliko popularnih valuta. Upoznajte se s dodatkom Spell Number koji je uključen u najnovije izdanje našeg Ultimate Suite for Excel.

Osim što je spreman za upotrebu, alat je stvarno 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 mala slova za rezultat: mala slova, VELIKA SLOVA , velika i mala slova u naslovu ili velika i mala slova u rečenici.
• Piši decimalni dio na različite načine.
• Uključi ili izostavi 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 s gornjom vezom.

A sada, pogledajmo ovaj uslužni program za sricanje brojeva na djelu :

1. Odaberite praznu ćeliju za rezultat.
2. Na kartici Ablebits , u grupi Utilities kliknite Spell Number .
3. U dijaloškom prozoru Spill Number 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 željeno trenutno , veliko slovo i način decimale dio broja treba sricati.
   • Definirajte želite li uključiti nula centi ili ne.
   • Odaberite želite li umetnuti rezultat kao vrijednost ili formulu.
4. Na dnu dijaloškog prozora pregledajte rezultat. Ako ste zadovoljni načinom na koji je vaš broj napisan, kliknite Speluj . U protivnom pokušajte s drugim postavkama.

Snimka zaslona u nastavku prikazuje zadane postavkeizbore 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 napisati:

Savjeti i bilješke:

• Budući da je dodatak Spell Number dizajniran za rukovanje slučajevima iz stvarnog života kao što su fakture i drugi financijski 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 mogućnost da Vaši izvorni podaci mogu se promijeniti u budućnosti, najbolje je umetnuti rezultat kao formulu , tako da se automatski ažurira kako se mijenja izvorni broj.
• Kada odaberete rezultat kao formulu , umetnuta je prilagođena korisnički definirana funkcija (UDF). Ako planirate podijeliti svoju radnu knjigu s nekim tko nema instaliran Ultimate Suite, ne zaboravite zamijeniti formule vrijednostima prije dijeljenja.

Obrnuto pretvaranje - engleske riječi u brojeve

Iskreno govoreći , ne mogu zamisliti zašto bi ti to moglo trebati. Za svaki slučaj… :)

Čini se da je MVP programa Excel, Jerry Latham, stvorio takvu funkciju Excel User Defined (UDF) kao WordsToDigits . Pretvara engleske riječi natrag u brojeve.

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 radi na listu " Unosi uzoraka ", gdje ćete također moći unijeti vlastite primjere. Ako planirate koristiti WordsToDigits u svojim dokumentima, imajte na umu da ova funkcija ima ograničenja. Na primjer, ne prepoznaje razlomke unesene riječima. Sve pojedinosti pronaći ćete na listu " Informacije ".