În acest articol vă voi arăta două modalități rapide și gratuite de a converti numerele valutare în cuvinte în limba engleză în Excel 2019, 2016, 2013 și alte versiuni.

Microsoft Excel este un program excelent pentru a calcula asta și aia. Inițial, a fost dezvoltat pentru a procesa matrici mari de date. Cu toate acestea, permite, de asemenea, crearea rapidă și eficientă de înregistrări contabile, cum ar fi facturi, evaluări sau bilanțuri.

În documentele de plată mai mult sau mai puțin solide este necesar să se dubleze valorile numerice cu forma lor verbală. Este mult mai greu să falsifici numerele dactilografiate decât cele scrise de mână. Un escroc poate încerca să facă 8000 din 3000, în timp ce este aproape imposibil să înlocuiești în secret "trei" cu "opt".

Așadar, nu trebuie doar să convertiți numere în cuvinte în Excel (de exemplu, 123.45 în "o sută douăzeci și trei, patruzeci și cinci"), ci să scrieți dolari și cenți (de exemplu, 29,95 dolari ca "douăzeci și nouă de dolari și nouăzeci și nouă de cenți" ), lire și pence pentru GBP, euro și eurocenți pentru EUR etc.

Chiar și cele mai recente versiuni de Excel nu au un instrument încorporat pentru ortografierea numerelor, ca să nu mai vorbim de versiunile anterioare. Dar acesta este momentul în care Excel este cu adevărat bun. Puteți oricând să-i îmbunătățiți funcționalitatea folosind formule în toate

combinații, macro-uri VBA sau suplimente de la terți.

Mai jos veți găsi două moduri de a converti numere din cifre în cuvinte

Și, eventual, este posibil să aveți nevoie să convertiți Cuvinte în Numere în Excel

Notă: Dacă sunteți în căutarea transformare din număr în text , ceea ce înseamnă că doriți ca Excel să vadă numărul ca text, este un lucru puțin diferit. Pentru aceasta, puteți utiliza funcția TEXT sau alte câteva modalități descrise în Cum să schimbați numerele în text în Excel.

SpellNumber Macro VBA pentru a converti numere în cuvinte

După cum am menționat deja, Microsoft nu a dorit să adauge un instrument pentru această sarcină. Cu toate acestea, când au văzut câți utilizatori aveau nevoie de el, au creat și au publicat macro VBA specială pe site-ul lor. Macroul face ceea ce sugerează numele său SpellNumber. Toate celelalte macrouri pe care le-am întâlnit se bazează pe codul Microsoft.

Puteți găsi macroul menționat ca fiind "spellnumber formula". Cu toate acestea, nu este o formulă, ci o funcție macro sau, mai exact Excel Funcție definită de utilizator (UDF).

Opțiunea de scriere a numerelor de ortografie este capabilă să scrie dolari și cenți. Dacă aveți nevoie de o monedă diferită, puteți schimba " dolar " și " cent " cu numele celui pe care îl aveți.

Dacă nu vă pricepeți la VBA, mai jos veți găsi o copie a codului. Dacă totuși nu doriți sau nu aveți timp să rezolvați acest lucru, vă rugăm să utilizați această soluție.

1. Deschideți registrul de lucru în care trebuie să scrieți numerele.
2. Apăsați Alt+F11 pentru a deschide fereastra editorului Visual Basic.
3. Dacă aveți mai multe registre deschise, verificați dacă registrul de lucru necesar este activ cu ajutorul listei de proiecte din colțul din stânga sus al editorului (unul dintre elementele registrului de lucru este evidențiat cu albastru).
4. În meniul editorului mergeți la Introduceți -> Modul .
5. Ar trebui să vedeți o fereastră numită YourBook - Module1. Selectați tot codul din cadrul de mai jos și lipiți-l în această fereastră.

   Option Explicit 'Funcția principală Function Function 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, "." ) 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 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) ' Convertiți locul sutelor. If Mid(MyNumber, 1, 1) "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If ' Convertiți locul zecilor și al unilor. 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 = ""' Anulați valoarea temporară a funcției. Dacă Val(Left(TensText, 1)) = 1 Atunci ' Dacă valoarea este cuprinsă între 10-19... Selectați cazul Val(TensText) Cazul 10: Rezultat = "Zece" Cazul 11: Rezultat = "Unsprezece" Cazul 12: Rezultat = "Doisprezece" Cazul 13: Rezultat = "Treisprezece" Cazul 14: Rezultat = "Paisprezece" Cazul 15: Rezultat = "Cincisprezece" Cazul 16: Rezultat = "Șaisprezece" Cazul 17: Rezultat = "Șaptesprezece" Cazul 18: Rezultat = "Optsprezece" Cazul 19: Rezultat ="Nouăsprezece" Case Else End Select Else ' Dacă valoarea este cuprinsă între 20-99... Select Case Val(Left(TensText, 1)) Case 2: Rezultat = "Douăzeci " Case 3: Rezultat = "Treizeci " Case 4: Rezultat = "Patruzeci " Case 5: Rezultat = "Cincizeci " Case 6: Rezultat = "Șaizeci " Case 7: Rezultat = "Șaptezeci " Case 8: Rezultat = "Optzeci " Case 9: Rezultat = "Nouăzeci " Case Else End Select Result = Rezultat & GetDigit _ (Right(TensText, 1)) ' Recuperăun loc. 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

6. Apăsați Ctrl+S pentru a salva registrul de lucru actualizat.

   Va trebui să salvați din nou registrul de lucru. Atunci când încercați să salvați registrul de lucru cu o macro, veți primi mesajul " Următoarele caracteristici nu pot fi salvate în registrul de lucru fără macrouri "

   

   Faceți clic pe No. Când apare o nouă fereastră de dialog, alegeți opțiunea Save as. În câmpul " Salvați ca tip " alege opțiunea " Caietul de lucru cu macrouri Excel ".

   

Utilizați macroul SpellNumber în foile de lucru

Acum puteți utiliza funcția Număr de vrajă în documentele Excel. Introduceți =SpellNumber(A2) în celula în care trebuie să obțineți numărul scris în cuvinte. Aici A2 este adresa celulei cu numărul sau suma.

Aici puteți vedea rezultatul:

Voila!

Copiați rapid funcția SpellNumber în alte celule.

Dacă trebuie să convertiți întregul tabel, nu doar o singură celulă, plasați cursorul mouse-ului în colțul din dreapta jos al celulei cu formula până când acesta se transformă într-o mică cruce neagră:

Faceți clic stânga și trageți-l pe coloană pentru a completa formula. Eliberați butonul pentru a vedea rezultatele:

Notă. Rețineți că, dacă utilizați SpellNumber cu o legătură către o altă celulă, suma scrisă va fi actualizată de fiecare dată când numărul din celula sursă este modificat.

De asemenea, puteți introduce numărul direct în funcție, de exemplu, =SpellNumber(29.95) (29,95 - fără ghilimele și fără semnul dolarului).

Dezavantajele utilizării macro pentru a scrie numere în Excel

În primul rând, trebuie să cunoașteți VBA pentru a modifica codul în funcție de nevoile dvs. Este necesar să lipiți codul pentru fiecare registru de lucru în care intenționați să îl modificați. În caz contrar, va trebui să creați un fișier șablon cu macro-uri și să configurați Excel pentru a încărca acest fișier la fiecare pornire.

Principalul dezavantaj al utilizării unei macro este că, dacă trimiteți registrul de lucru altcuiva, această persoană nu va vedea textul decât dacă macroul este încorporat în registrul de lucru. Și chiar dacă este încorporat, va primi o alertă că există macrouri în registrul de lucru.

Scrieți numerele în cuvinte folosind un add-in special

Pentru utilizatorii Excel care au nevoie să silabisească rapid sumele, dar nu au timp să învețe VBA sau să găsească soluții de rezolvare, am creat un instrument special care poate efectua rapid conversia sumă-cuvânt pentru câteva monede populare. Vă rugăm să faceți cunoștință cu add-in-ul Spell Number inclus în cea mai recentă versiune a suitei noastre Ultimate Suite pentru Excel.

Pe lângă faptul că este gata de utilizare, instrumentul este foarte flexibil în ceea ce privește convertirea sumelor în text:

• Puteți selecta una dintre următoarele valute: USD, EUR, GBP, BIT, AUD.
• Scrieți partea fracționară în cenți, penny sau bitcents.
• Alegeți orice tip de text pentru rezultat: minuscule, MAJUSCULE, MAJUSCULE de titlu sau MAJUSCULE de propoziție.
• Scrieți partea zecimală în diferite moduri.
• Includeți sau omiteți zero cenți.

Add-in-ul este compatibil cu toate versiunile moderne, inclusiv Excel 365, Excel 2029, Excel 2016, Excel 2013 și Excel 2010. Nu ezitați să explorați alte capacități de pe pagina de pornire a produsului legată mai sus.

Și acum, să vedem această utilitate de ortografie a numerelor în acțiune:

1. Selectați o celulă goală pentru rezultat.
2. Pe Ablebits în fila Utilități grup, faceți clic pe Număr de vrajă .
3. În Număr de deversare în fereastra de dialog care apare, configurați următoarele lucruri:
   • Pentru Selectați numărul dvs. alegeți celula care conține suma pe care doriți să o scrieți ca text.
   • Precizați valoarea dorită în prezent , cazul literelor și modul în care partea zecimală a numărului ar trebui să fie ortografiat.
   • Se definește dacă se include sau nu zero cenți.
   • Alegeți dacă doriți să inserați rezultatul ca valoare sau ca formulă.
4. În partea de jos a ferestrei de dialog, previzualizare Dacă sunteți mulțumit de modul în care este scris numărul dvs., faceți clic pe Vraja În caz contrar, încercați alte setări.

Captura de ecran de mai jos demonstrează opțiunile implicite și numărul scris în B2. Vă rugăm să observați o formulă (mai exact, o funcție definită de utilizator) în bara de formule:

Și aceasta este o demonstrație rapidă a modului în care pot fi exprimate alte monede:

Sfaturi și note:

• Deoarece Număr de vrajă a fost conceput pentru a gestiona cazuri de utilizare în viața reală, cum ar fi facturile și alte documente financiare, acesta poate converti doar un număr la un moment dat.
• Pentru a scrie un coloană de numere , introduceți o formulă în prima celulă, apoi copiați formula în jos.
• Dacă există posibilitatea ca datele sursă să se schimbe în viitor, este mai bine să introduceți rezultatul sub formă de formulă , astfel încât se actualizează automat pe măsură ce numărul original se modifică.
• Atunci când alegeți rezultatul ca formulă o opțiune, o opțiune personalizată funcție definită de utilizator (UDF) este inserat. Dacă intenționați să partajați registrul de lucru cu cineva care nu are instalat Ultimate Suite, nu uitați să înlocuiți formulele cu valori înainte de partajare.

Conversia inversă - transformare a cuvintelor englezești în numere

Sincer, nu-mi pot imagina de ce ați avea nevoie de ea. În caz că... :)

Se pare că Excel MVP, Jerry Latham, a creat o astfel de funcție definită de utilizator Excel (UDF), cum ar fi WordsToDigits Convertește cuvintele englezești în numere.

Puteți descărca caietul de lucru WordsToDigits al lui Jerry pentru a vedea codul UDF. Aici veți găsi, de asemenea, exemplele sale de utilizare a funcției.

Puteți vedea cum funcționează această funcție pe foaia " Exemple de intrări ", unde veți putea, de asemenea, să introduceți propriile exemple. Dacă intenționați să folosiți WordsToDigits în documentele dumneavoastră, vă informăm că această funcție are restricții. De exemplu, nu recunoaște fracțiile introduse în cuvinte. Veți găsi toate detaliile pe pagina " Informații " foaie.