V tem članku vam bom pokazal dva hitra in brezplačna načina za pretvorbo valutnih številk v angleške besede v Excelu 2019, 2016, 2013 in drugih različicah.

Microsoft Excel je odličen program za izračun tega in onega. Sprva je bil razvit za obdelavo velikih podatkovnih nizov. Vendar omogoča tudi hitro in učinkovito ustvarjanje računovodskih evidenc, kot so računi, vrednotenje ali bilance stanja.

V bolj ali manj trdnih plačilnih dokumentih je treba številčne vrednosti podvajati z njihovo besedno obliko. Natipkane številke je veliko težje ponarediti kot tiste, ki so napisane z roko. Neki prevarant lahko poskuša iz 3000 narediti 8000, medtem ko je skoraj nemogoče na skrivaj zamenjati "tri" z "osem".

Zato v Excelu ne potrebujete le pretvorbe številk v besede (npr. 123,45 v "sto triindvajset triinštirideset petinštirideset"), temveč tudi črkovanje dolarjev in centov (npr. 29,95 USD kot "devetindvajset dolarjev in devetindevetdeset centov" ), funtov in penijev za GBP, evrov in eurocentov za EUR itd.

Tudi najnovejše različice programa Excel nimajo vgrajenega orodja za črkovanje številk, da ne govorimo o prejšnjih različicah. Toda takrat je Excel resnično dober. Vedno lahko izboljšate njegovo funkcionalnost z uporabo formul v vseh njihovih

kombinacij, makrov VBA ali dodatkov tretjih oseb.

Spodaj sta navedena dva načina za pretvorbo številk iz številk v besede.

Morda boste morali pretvoriti besede v številke v programu Excel.

Opomba: Če iščete pretvorba številke v besedilo , kar pomeni, da želite, da Excel vašo številko vidi kot besedilo, je to nekoliko druga stvar. Za to lahko uporabite funkcijo TEXT ali nekaj drugih načinov, opisanih v poglavju Kako spremeniti številke v besedilo v Excelu.

Makro SpellNumber VBA za pretvorbo številk v besede

Kot sem že omenil, Microsoft ni želel dodati orodja za to opravilo. Ko pa so videli, koliko uporabnikov ga potrebuje, so ustvarili in na svojem spletnem mestu objavili poseben makro VBA. Makro naredi to, kar nakazuje njegovo ime SpellNumber. Vsi drugi makri, na katere sem naletel, temeljijo na Microsoftovi kodi.

Makro lahko najdete pod imenom "spellnumber formula". Vendar to ni formula, temveč makro funkcija, natančneje Excel Uporabniško opredeljena funkcija (UDF).

Z možnostjo črkovne številke lahko zapišete dolarje in cente. Če potrebujete drugo valuto, lahko spremenite " dolar " in " cent " z imenom svojega.

Če niste vešči VBA, spodaj najdete kopijo kode. Če še vedno ne želite ali nimate časa, da bi to uredili, uporabite to rešitev.

1. Odprite delovni zvezek, v katerem morate črkovati številke.
2. Pritisnite Alt+F11, da odprete okno urejevalnika Visual Basic.
3. Če imate odprtih več knjig, preverite, ali je potreben delovni zvezek aktiven na seznamu projektov v levem zgornjem kotu urejevalnika (eden od elementov delovnega zvezka je označen z modro barvo).
4. V meniju urejevalnika pojdite na Vstavite -> Modul .
5. Pojavi se okno z imenom YourBook - Module1. Izberite vso kodo v spodnjem okvirju in jo prilepite v to okno.

   Option Explicit 'Glavna funkcija Funkcija SpellNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Tisoč " Place(3) = " Milijon " Place(4) = " Milijarda " Place(5) = " Trilijon " 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 = "OneDolar" Primer Drugače Dolarji = Dolarji & " Dolarji" Konec Select Select Primer Centi Primer "" Centi = " in brez centov" Primer "En" Centi = " in en cent" Primer Drugače Centi = " in " & Centi & " Centi" Konec Select Črkovno število = Dolarji & Centi Konec Function Funkcija GetHundreds( ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right( "000" & MyNumber,3) ' Pretvori mesto stotink: If Mid(MyNumber, 1, 1) "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If ' Pretvori mesto desetink in enic: If Mid(MyNumber, 2, 1) "0" Then Result = Result & GetTens(Mid(MyNumber, 2)) Else Result = Result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function Function GetTens(TensText) Dim Result As String Result = ""' Izniči vrednost začasne funkcije. If Val(Left(TensText, 1)) = 1 Then ' Če je vrednost med 10-19... Select Case Val(TensText) Case 10: Rezultat = "Deset" Case 11: Rezultat = "Enajst" Case 12: Rezultat = "Dvanajst" Case 13: Rezultat = "Trinajst" Case 14: Rezultat = "Štirinajst" Case 15: Rezultat = "Petnajst" Case 16: Rezultat = "Šestnajst" Case 17: Rezultat = "Sedemnajst" Case 18: Rezultat = "Osemnajst" Case 19: Rezultat ="Devetnajst" Primer Else End Select Else ' Če je vrednost med 20-99... Select Case Val(Left(TensText, 1)) Primer 2: Rezultat = "Dvajset " Primer 3: Rezultat = "Trideset " Primer 4: Rezultat = "Štirideset " Primer 5: Rezultat = "Petdeset " Primer 6: Rezultat = "Šestdeset " Primer 7: Rezultat = "Sedemdeset " Primer 8: Rezultat = "Osemdeset " Primer 9: Rezultat = "Devetdeset " Primer Else End Select Rezultat = Result & GetDigit _ (Right(TensText, 1)) ' PridobiEnd If GetTens = Rezultat End Function Function Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "Ena" Case 2: GetDigit = "Dva" Case 3: GetDigit = "Tri" Case 4: GetDigit = "Štiri" Case 5: GetDigit = "Pet" Case 6: GetDigit = "Šest" Case 7: GetDigit = "Sedem" Case 8: GetDigit = "Osem" Case 9: GetDigit = "Devet" Case Else : GetDigit = "" End Select End Function

6. Pritisnite kombinacijo tipk Ctrl+S, da shranite posodobljeni delovni zvezek.

   Delovni zvezek boste morali ponovno shraniti. Ko poskušate shraniti delovni zvezek z makrom, se prikaže sporočilo " Naslednjih funkcij ni mogoče shraniti v delovnem zvezku brez makrov "

   Poglej tudi: Excelov nadomestni znak: iskanje in nadomeščanje, filtriranje, uporaba v formulah z besedilom in številkami
   

   Kliknite Ne. Ko se prikaže novo pogovorno okno, izberite možnost Shrani kot. V polju " Shrani kot vrsto " izberite možnost " Delovni zvezek Excel z omogočenimi makri ".

   

Uporabite makro SpellNumber v delovnih listih

Zdaj lahko uporabite funkcijo SpellNumber v dokumentih Excel. Vnesite =Črkovno število (A2) v celico, v kateri želite dobiti število, zapisano z besedami. Tukaj je A2 naslov celice s številom ali zneskom.

Tukaj si lahko ogledate rezultat:

Voila!

Hitro kopirajte funkcijo SpellNumber v druge celice.

Če želite pretvoriti celotno tabelo in ne le eno celico, postavite kazalec miške v spodnji desni kot celice s formulo, dokler se ne spremeni v majhen črn križec:

Z levim klikom in vlečenjem po stolpcu izpolnite formulo. Spustite gumb, da si ogledate rezultate:

Opomba: Upoštevajte, da se zapisana vsota posodobi vsakič, ko se spremeni številka v izvorni celici, če uporabite funkcijo SpellNumber s povezavo na drugo celico.

Številko lahko vnesete tudi neposredno v funkcijo, na primer, =Črkovno število(29.95) (29,95 - brez narekovajev in znaka dolarja).

Slabosti uporabe makra za črkovanje številk v Excelu

Najprej morate poznati program VBA, da lahko kodo spremenite v skladu s svojimi potrebami. Kodo je treba prilepiti za vsak delovni zvezek, kjer jo nameravate spremeniti. V nasprotnem primeru boste morali ustvariti datoteko predloge z makri in Excel nastaviti tako, da bo to datoteko naložil ob vsakem zagonu.

Glavna pomanjkljivost uporabe makrov je, da če delovni zvezek pošljete nekomu drugemu, ta ne bo videl besedila, razen če je makro vgrajen v delovni zvezek. In tudi če je vgrajen, bo dobil opozorilo, da so v delovnem zvezku makri.

črkovanje številk v besede s posebnim dodatkom

Za uporabnike programa Excel, ki potrebujejo hitro črkovanje zneskov, vendar nimajo časa za učenje VBA ali iskanje obvoznic, smo ustvarili posebno orodje, ki lahko hitro izvede pretvorbo zneskov v besede za nekaj priljubljenih valut. Spoznajte dodatek Črkovanje zneskov, ki je vključen v najnovejšo izdajo našega paketa Ultimate Suite za Excel.

Poleg tega, da je orodje pripravljeno za uporabo, je zelo prilagodljivo pri pretvorbi zneskov v besedilo:

• Izberete lahko eno od naslednjih valut: USD, EUR, GBP, BIT, AUD.
• Delni del napišite v centih, penezih ali bitnih centih.
• Izberite katero koli velikost besedila za rezultat: male črke, velike črke, velikost naslova ali velikost stavka.
• Decimalni del napišite na različne načine.
• Vključite ali izpustite ničelne cente.

Dodatek podpira vse sodobne različice, vključno z Excel 365, Excel 2029, Excel 2016, Excel 2013 in Excel 2010. Na domači strani izdelka, ki je povezana zgoraj, si lahko ogledate druge možnosti.

Zdaj pa si oglejmo, kako deluje ta pripomoček za črkovanje številk:

1. Izberite prazno celico za rezultat.
2. Na Ablebits v zavihku Storitve skupino, kliknite Številka uroka .
3. V Številka razlitja v pogovornem oknu, ki se prikaže, konfigurirajte naslednje stvari:
   • Za Izberite svojo številko izberite celico z zneskom, ki ga želite zapisati kot besedilo.
   • Določite želeni trenutno , velikost črk in način, kako decimalni del številke je treba zapisati.
   • Določite, ali naj se vključijo ničelni centi ali ne.
   • Izberite, ali želite rezultat vstaviti kot vrednost ali formulo.
4. Na dnu pogovornega okna, predogled Če ste zadovoljni z načinom zapisa številke, kliknite Čar . V nasprotnem primeru poskusite z različnimi nastavitvami.

Spodnja slika zaslona prikazuje privzete izbire in zapisano številko v B2. Opazite formulo (natančneje, uporabniško opredeljeno funkcijo) v vrstici formul:

To je kratek prikaz, kako je mogoče zapisati druge valute:

Nasveti in opombe:

• Ker je Številka uroka dodatek je bil zasnovan za uporabo v resničnih primerih uporabe, kot so računi in drugi finančni dokumenti, lahko pretvori le ena številka naenkrat.
• Črkovanje stolpec številk , vstavite formulo v prvo celico in jo nato kopirajte navzdol.
• Če obstaja možnost, da se bodo izvorni podatki v prihodnosti spremenili, je najbolje, da vstavite rezultat kot formulo zato se samodejno posodablja, ko se prvotna številka spremeni.
• Pri izbiri rezultat kot formula možnost po meri uporabniško definirana funkcija (UDF). Če nameravate delovni zvezek deliti z nekom, ki nima nameščenega paketa Ultimate Suite, ne pozabite pred deljenjem zamenjati formul z vrednostmi.

Obratna pretvorba - angleške besede v številke

Odkrito povedano, ne morem si predstavljati, zakaj bi ga potrebovali. Za vsak primer... :)

Zdi se, da je Jerry Latham, MVP programa Excel, ustvaril takšno uporabniško opredeljeno funkcijo (UDF) programa Excel kot WordsToDigits . Angleške besede pretvori nazaj v številke.

Prenesete lahko Jerryjev delovni zvezek WordsToDigits in si ogledate kodo UDF. Tu boste našli tudi njegove primere uporabe funkcije.

Delovanje funkcije si lahko ogledate na listu " Vzorčni vnosi ", kjer boste lahko vnesli tudi svoje primere. Če nameravate v svojih dokumentih uporabiti funkcijo WordsToDigits, vas obveščamo, da ima ta funkcija omejitve. Na primer, ne prepozna ulomkov, vnesenih z besedami. Vse podrobnosti boste našli na " Informacije " list.