Dacă ai o coloană cu valori numerice în foaia ta de calcul și trebuie să le convertești în cuvintele echivalente în engleză, probabil te întrebi cum să o faci. Excel nu are o formulă care să poată face acest lucru direct, dar există câteva soluții pe care le poți folosi, inclusiv WPS AI, care convertește numerele în cuvinte printr-un simplu prompt. În acest articol, îți vom arăta cum să convertești numerele în cuvinte în Excel.
Partea 1: Cum să convertești numerele în cuvinte în Excel folosind VBA

Foaia ta Excel este plină de numere și acum imaginează-ți că aceste numere se transformă magic în cuvinte. Aceasta este puterea macrocomenzii SpellNumber în lumea fermecătoare a Excel. Haideți să aruncăm o privire simplă la modul de adăugare a acestei macrocomenzi, pregătind terenul pentru magia care urmează.
Exemplu: Transformarea numerelor în cuvinte
Ai o coloană de numere în coloana A, de la 1 la 10. Vrei să convertești aceste numere în cuvinte, adăugând o notă elegantă datelor tale. Haideți să vedem cum să adaugi macrocomanda SpellNumber pentru a realiza acest lucru, în pregătirea pentru următorul pas.
Pasul 1. Deschide Excel și navighează la fila „Developer” (Dezvoltator). Dacă nu vezi această filă, nu te teme! Poate fi activată cu ușurință în opțiunile Excel.


Pasul 2. Fă clic pe „Visual Basic” pentru a deschide editorul VBA.

Pasul 3. În editorul VBA, navighează la „Insert” (Inserare) și selectează „Module” (Modul). Aici se va desfășura magia.

Pasul 4. Copiază și inserează codul macrocomenzii SpellNumber din linkurile noastre de referință de mai jos în modul.
Function SpellNumber(ByVal MyNumber) 'Update by Extendoffice Dim xStr As String Dim xFNum As Integer Dim xStrPoint Dim xStrNumber Dim xPoint As String Dim xNumber As String Dim xP() As Variant Dim xDP Dim xCnt As Integer Dim xResult, xT As String Dim xLen As Integer On Error Resume Next xP = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ") xNumber = Trim(str(MyNumber)) xDP = InStr(xNumber, ".") xPoint = "" xStrNumber = "" If xDP > 0 Then xPoint = " point " xStr = Mid(xNumber, xDP + 1) xStrPoint = Left(xStr, Len(xNumber) - xDP) For xFNum = 1 To Len(xStrPoint) xStr = Mid(xStrPoint, xFNum, 1) xPoint = xPoint & GetDigits(xStr) & " " Next xFNum xNumber = Trim(Left(xNumber, xDP - 1)) End If xCnt = 0 xResult = "" xT = "" xLen = 0 xLen = Int(Len(str(xNumber)) / 3) If (Len(str(xNumber)) Mod 3) = 0 Then xLen = xLen - 1 Do While xNumber <> "" If xLen = xCnt Then xT = GetHundredsDigits(Right(xNumber, 3), False) Else If xCnt = 0 Then xT = GetHundredsDigits(Right(xNumber, 3), True) Else xT = GetHundredsDigits(Right(xNumber, 3), False) End If End If If xT <> "" Then xResult = xT & xP(xCnt) & xResult End If If Len(xNumber) > 3 Then xNumber = Left(xNumber, Len(xNumber) - 3) Else xNumber = "" End If xCnt = xCnt + 1 Loop xResult = xResult & xPoint SpellNumber = xResult End Function Function GetHundredsDigits(xHDgt, xB As Boolean) Dim xRStr As String Dim xStrNum As String Dim xStr As String Dim xI As Integer Dim xBB As Boolean xStrNum = xHDgt xRStr = "" On Error Resume Next xBB = True If Val(xStrNum) = 0 Then Exit Function xStrNum = Right("000" & xStrNum, 3) xStr = Mid(xStrNum, 1, 1) If xStr <> "0" Then xRStr = GetDigits(Mid(xStrNum, 1, 1)) & "Hundred " Else If xB Then xRStr = "and " xBB = False Else xRStr = " " xBB = False End If End If If Mid(xStrNum, 2, 2) <> "00" Then xRStr = xRStr & GetTenDigits(Mid(xStrNum, 2, 2), xBB) End If GetHundredsDigits = xRStr End Function Function GetTenDigits(xTDgt, xB As Boolean) Dim xStr As String Dim xI As Integer Dim xArr_1() As Variant Dim xArr_2() As Variant Dim xT As Boolean xArr_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ") xArr_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ") xStr = "" xT = True On Error Resume Next If Val(Left(xTDgt, 1)) = 1 Then xI = Val(Right(xTDgt, 1)) If xB Then xStr = "and " xStr = xStr & xArr_1(xI) Else xI = Val(Left(xTDgt, 1)) If Val(Left(xTDgt, 1)) > 1 Then If xB Then xStr = "and " xStr = xStr & xArr_2(Val(Left(xTDgt, 1))) xT = False End If If xStr = "" Then If xB Then xStr = "and " End If End If If Right(xTDgt, 1) <> "0" Then xStr = xStr & GetDigits(Right(xTDgt, 1)) End If End If GetTenDigits = xStr End Function Function GetDigits(xDgt) Dim xStr As String Dim xArr_1() As Variant xArr_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ") xStr = "" On Error Resume Next xStr = xArr_1(Val(xDgt)) GetDigits = xStr End Function |
|---|
Pasul 5. Închide editorul VBA și întoarce-te la foaia ta de calcul Excel.

Experiența mea cu adăugarea macrocomenzii SpellNumber:
Integrarea macrocomenzii SpellNumber în Excel a fost surprinzător de ușoară. Am urmat pașii către fila Developer și editorul VBA, unde am adăugat codul macrocomenzii pentru scrierea în litere a sumelor folosită în contabilitate. M-a intrigat cum numerele se pot transforma în text. Totuși, am învățat să fiu precaut; macrocomenzile necesită precizie pentru a evita perturbarea foii de calcul. Faptul că aveam o copie de rezervă și am înțeles structura VBA a ajutat. Această experiență deschide ușa către mai multe posibilități în Excel, combinând logica cu creativitatea.
Foile tale de calcul Excel devin o pânză pentru magia lingvistică. În Partea a 2-a, îți oferim cheia pentru a debloca macrocomanda SpellNumber, un instrument puternic care transformă datele tale numerice într-o simfonie elocventă de cuvinte. Navighează prin exemple practice care luminează calea către măiestrie și privește cum datele tale se transformă sub ochii tăi, ghidate de măiestria acestei macrocomenzi remarcabile.
Exemplu: Transformarea datelor numerice în cuvinte
Pasul 1. Deschide foaia de calcul Excel cu datele numerice pe care vrei să le transformi.
Pasul 2. Selectează o coloană din apropiere. Să folosim coloana B pentru cuvintele transformate.
Pasul 3. În prima celulă a coloanei B, introdu =SpellNumber(A1).

Pasul 4. Apasă Enter și urmărește cum numărul din celula A1 se transformă elegant în cuvinte în celula B1.
Pasul 5. Pentru a transforma mai multe numere, trage formula în jos, lăsând macrocomanda SpellNumber să-și facă magia.

Experiența mea în utilizarea macrocomenzii SpellNumber:
Testarea macrocomenzii SpellNumber a adus o perspectivă proaspătă pe măsură ce numerele s-au transformat în cuvinte, dând o notă inedită datelor mele. Procesul a fost simplu, dezvăluindu-și potențialul de a îmbunătăți comunicarea. Totuși, este necesar un avertisment: precizia contează. Un pas greșit minor ar putea duce la rezultate neașteptate. Familiarizarea cu macrocomanda și validarea atentă a datelor introduse sunt esențiale pentru o experiență fără probleme.
Partea 2: Cum să convertești numerele în cuvinte în Excel fără VBA
Navigarea în peisajul complicat al VBA ar putea părea descurajantă, dar nu te teme – deoarece există o cale mai simplă pentru a realiza performanța încântătoare de a converti numerele în cuvinte. Această abordare alternativă, utilizând o funcție definită de utilizator, oferă o metodă simplificată care păstrează aceeași transformare atrăgătoare. Explorând pașii următori, descoperim această tehnică inovatoare, permițându-ți să infuzezi fără probleme datele tale cu farmecul liric al cuvintelor, evitând în același timp complexitățile VBA.
Avantajele utilizării macrocomenzii SpellNumber:
1. Ușurința în utilizare: Funcția definită de utilizator oferă simplitate. Nu sunt necesare cunoștințe VBA, ceea ce o face accesibilă unui public mai larg.
2. Accesibilitate universală: Spre deosebire de macrocomenzile care trebuie integrate în fiecare registru de lucru, funcția călătorește împreună cu foaia de calcul, asigurând o partajare fără probleme.
3. Fără alerte pentru macrocomenzi: Spune adio alertelor deranjante privind macrocomenzile atunci când partajezi registrele de lucru. Funcția operează în fundal, transformând elegant numerele în cuvinte.
Dezavantajele utilizării macrocomenzii SpellNumber în Excel:
1. Competență în VBA: Macrocomenzile necesită abilități VBA pentru personalizare, ceea ce îi poate limita pe cei nefamiliarizați cu programarea.
2. Specifică registrului de lucru: Macrocomenzile trebuie copiate sau construite în fiecare registru de lucru, adăugând complexitate și eforturi de întreținere.
3. Alerte pentru macrocomenzi: Partajarea unui registru de lucru cu macrocomenzi poate declanșa alerte, putând ridica probleme de securitate.
Acum, haideți să o luăm pe drumul cel mai pitoresc și să fim martorii măiestriei acestei metode (folosind combinații de formule disponibile în Excel) printr-un exemplu practic.
Cum să convertești numerele în cuvinte în Excel fără VBA
Exemplu: Transformarea numerelor în cuvinte folosind o formulă
Pasul 1. Deschide foaia de calcul Excel cu datele numerice pe care dorești să le transformi.

Pasul 2. Selectează o coloană adiacentă numerelor. Să folosim coloana B pentru cuvintele transformate.
Pasul 3. În prima celulă a coloanei B, introdu formula
=IF(OR(LEN(FLOOR(A1,1))=13,FLOOR(A1,1)<=0),"out of="" range="">1,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),3,1)+1,""," one"," two"," three"," four"," five"," six"," seven"," eight"," nine"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),2,1))=0,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),3,1)+1,"","one","two","three","four","five","six","seven","eight","nine"),"")),IF(A1>=10^9," billion ",""),CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),4,1)+1,"","one hundred ","two hundred ","three hundred ","four hundred ","five hundred ","six hundred ","seven hundred ","eight hundred ","nine hundred "),CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),5,1)+1,"",CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),6,1)+1,"ten","eleven","twelve","thirteen","fourteen","fifteen","sixteen","seventeen","eighteen","nineteen"),"twenty","thirty","forty","fifty","sixty","seventy","eighty","ninety"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),5,1))>1,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),6,1)+1,""," one"," two"," three"," four"," five"," six"," seven"," eight"," nine"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),5,1))=0,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),6,1)+1,"","one","two","three","four","five","six","seven","eight","nine"),"")),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),4,3))>0," million ",""),CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),7,1)+1,"","one hundred ","two hundred ","three hundred ","four hundred ","five hundred ","six hundred ","seven hundred ","eight hundred ","nine hundred "),CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),8,1)+1,"",CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),9,1)+1,"ten","eleven","twelve","thirteen","fourteen","fifteen","sixteen","seventeen","eighteen","nineteen"),"twenty","thirty","forty","fifty","sixty","seventy","eighty","ninety"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),8,1))>1,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),9,1)+1,""," one"," two"," three"," four"," five"," six"," seven"," eight"," nine"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),8,1))=0,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),9,1)+1,"","one","two","three","four","five","six","seven","eight","nine"),"")),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),7,3))," thousand ",""),CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),10,1)+1,"","one hundred ","two hundred ","three hundred ","four hundred ","five hundred ","six hundred ","seven hundred ","eight hundred ","nine hundred "),CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),11,1)+1,"",CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),12,1)+1,"ten","eleven","twelve","thirteen","fourteen","fifteen","sixteen","seventeen","eighteen","nineteen"),"twenty","thirty","forty","fifty","sixty","seventy","eighty","ninety"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),11,1))>1,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),12,1)+1,""," one"," two"," three"," four"," five"," six"," seven"," eight"," nine"),IF(VALUE(MID(TEXT(INT(A1),REPT(0,12)),11,1))=0,CHOOSE(MID(TEXT(INT(A1),REPT(0,12)),12,1)+1,"","one","two","three","four","five","six","seven","eight","nine"),"")))," "," ")&IF(FLOOR(A1,1)>1," "," "))&IF(ISERROR(FIND(".",A1,1)),""," point "&PROPER(IF(LEN(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2))=1,CHOOSE(1*LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2),"One","Two","Three","Four","Five","Six","Seven","Eight","Nine")&" ","")&CONCATENATE(CHOOSE(MID(TEXT(INT(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2)),REPT(0,12)),11,1)+1,"",CHOOSE(MID(TEXT(INT(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2)),REPT(0,12)),12,1)+1,"One","One One","One Two","One Three","One Four","One Five","One Six","One Seven","One Eight","One Nine")&" ","Two","Three","Four","Five","Six","Seven","Eight","Nine"),IF(VALUE(MID(TEXT(INT(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2)),REPT(0,12)),11,1))>1,CHOOSE(MID(TEXT(INT(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2)),REPT(0,12)),12,1)+1,""," One"," Two"," Three"," Four"," Five"," Six"," Seven"," Eight"," Nine")&" ",IF(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2)="01","one ",IF(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),1)="0",CHOOSE(MID(TEXT(INT(LEFT(TRIM(MID(SUBSTITUTE('Number to Word Without VBA'!A1,".",REPT(" ",255)),255,200)),2)),REPT(0,12)),12,1)+1,"","One","Two","Three","Four","Five","Six","Seven","Eight","Nine")&" ",""))))))) |
|---|
Pasul 4. Apasă Enter și observă cum numărul din celula A2 evoluează grațios în cuvinte în celula B2.

Pasul 5. Pentru a transforma numere suplimentare, trage formula în jos, dezvăluind metamorfoza magică.

Experiența mea în utilizarea funcției definite de utilizator:
Explorând funcțiile definite de utilizator, am apreciat simplitatea pe care au adus-o – fără codare VBA complicată sau configurări complexe. Doar o formulă simplă și directă pentru a transforma numerele în cuvinte, adăugând o notă unică în Excel. Cu toate acestea, un mic avertisment: înțelegerea corectă a funcției este cheia. Testeaz-o în diferite scenarii pentru a asigura precizia. Această perspectivă practică subliniază valoarea funcției, evidențiind în același timp importanța utilizării atente pentru obținerea celor mai bune rezultate.
Partea 3: De ce să folosești WPS Office?

Este important de reținut că metodele pe care le-am explorat până acum sunt aplicabile nu doar în Microsoft Excel, ci și în WPS Office Spreadsheet (Foaie de calcul). Totuși, te invităm să explorezi avantajele distincte pe care WPS Office le aduce. Iată de ce îți recomandăm să iei în considerare WPS Office pentru sarcinile tale de transformare în Excel:
1. Preț: WPS Office oferă o alternativă accesibilă fără a face compromisuri la funcții, fiind o alegere rentabilă atât pentru uz personal, cât și profesional.
2. Compatibilitate: Schimbă cu ușurință documente între WPS Office și Microsoft Office, asigurând o colaborare și o partajare fără probleme a documentelor.
3. Funcționalități: WPS Office se mândrește cu o suită completă de caracteristici, rivalizând cu standardele industriei și permițându-ți să îndeplinești sarcini diverse cu ușurință. De asemenea, are funcții AI, cum ar fi AI Writer și AI Document Translator.
4. Interfață ușor de utilizat: Navigarea în WPS Office este o joacă de copii, chiar și pentru începători. Interfața intuitivă asigură o curbă de învățare rapidă și un flux de lucru eficient.
5. Descoperă comorile ascunse: Explorează blogul WPS pentru a descoperi sfaturi prețioase care îți vor amplifica abilitățile. De la tehnici avansate la soluții inovatoare, fiecare tutorial este un pas spre măiestrie.
6. Conversie rapidă a formatelor: Pentru a-ți îmbunătăți eficiența în muncă, WPS Office poate, de asemenea, să convertească rapid fișiere Excel în PDF.
7. Creșterea productivității cu ajutorul AI: WPS AI îți eficientizează la maximum sarcinile zilnice – de la conversia numerelor în cuvinte în Excel printr-un simplu prompt, la generarea automată de formule, rezumarea documentelor și traducerea textului în timp real.
Partea 4: Cum să convertești numerele în cuvinte în Excel cu WPS AI
Pornind de la metodele fără VBA pe care tocmai le-am explorat, WPS AI oferă o modalitate și mai intuitivă de a converti numerele în cuvinte – fără a fi nevoie de crearea manuală a formulelor. Această abordare bazată pe AI simplifică și mai mult procesul, făcându-l accesibil utilizatorilor de toate nivelurile de calificare.
Pasul 1. Într-o celulă goală, începe să tastezi =WPSAI și fă dublu clic pe funcția WPSAI din meniul derulant.

Pasul 2. În interiorul parantezelor funcției, fă referire la celula care conține numărul vizat, apoi adaugă promptul.

Pasul 3. Apasă Enter, iar AI-ul va genera instantaneu echivalentul în cuvinte al numărului în acea celulă.

Pasul 4. Trage indicatorul de umplere în jos de la prima celulă convertită pentru a aplica aceeași conversie AI la toate numerele rămase din coloana ta.


Numerele din celulele selectate vor fi convertite în text.
Spre deosebire de formulele statice fără VBA, care sunt legate de o regulă de conversie specifică, AI-ul poate înțelege prompturi în limbaj natural – deci, dacă am nevoie vreodată să trec la un stil diferit, doar ajustez promptul în loc să reconstruiesc o formulă. De asemenea, elimină necesitatea de a memora o sintaxă complexă sau de a depana funcții imbricate; AI-ul se ocupă de munca grea, așa că mă pot concentra pe datele mele, nu pe mecanică. După finalizarea statisticilor, poți folosi, de asemenea, funcția de conversie a WPS Office, inclusiv Excel în PDF.
Întrebări frecvente despre cum să convertești numerele în cuvinte în Excel
Pot transforma invers cuvintele în numere?
Absolut! Inversarea conversiei, de la cuvinte la numere, este într-adevăr posibilă în WPS Office prin utilizarea codului VBA. Deși această discuție s-a concentrat pe transformarea numerelor în cuvinte, este important de menționat că WPS Office oferă instrumente versatile pentru a gestiona ambele direcții de conversie.
Pot transforma numerele în cuvinte cu un singur clic?
Absolut, transformarea numerelor în cuvinte cu un singur clic este o joacă de copii datorită capacităților remarcabile ale WPS Office (folosind VBA sau combinații de formule disponibile). Acest proces simplificat îți ușurează sarcinile, economisindu-ți timp și efort prețios.
Ce este VBA și cum îl poți învăța rapid?
VBA este un limbaj de programare creat de Microsoft, utilizat pentru a automatiza sarcini și a crea soluții personalizate în aplicațiile Office precum Excel, Word și PowerPoint.
Învățarea rapidă a VBA:
Noțiuni de bază: Înțelege concepte de programare precum variabilele și buclele.
Editorul VBA: Deschide-l în aplicațiile Office pentru a scrie cod.
Exemple: Studiază exemple simple de cod.
Înregistrarea macrocomenzilor: Învață înregistrând acțiuni.
Resurse online: Folosește tutoriale și cursuri.
Practică: Programează regulat proiecte mici.
Documentație: Explorează documentația VBA a Microsoft.
Comunități: Implică-te în forumuri online.
Construiește: Creează propriile macrocomenzi pentru sarcini reale.
Depanare: Învață să repari erorile de cod.
Curiozitate: Continuă să explorezi și să experimentezi.
Stăpânirea VBA sporește productivitatea și oferă soluții personalizate.
Ce ar trebui să fac dacă fișierul se corupe în timpul procesului de conversie?
În general, problemele de corupere a fișierelor nu apar. Totuși, dacă fișierul se corupe în timpul procesului de conversie, te rugăm să nu îți faci griji – poți folosi instrumentul de reparare a fișierelor WPS pentru a recupera fișierul Excel.
Rezumat
În acest ghid, am explorat diferite modalități de a converti numerele în cuvinte în Excel, concentrându-ne atât pe macrocomenzi VBA, cât și pe funcții definite de utilizator. Am oferit instrucțiuni clare pas cu pas și exemple pentru fiecare metodă. Subliniind avantajele WPS Office, am evidențiat compatibilitatea sa cu Excel, funcționalitățile ușor de utilizat, accesibilitatea și puternicul său WPS AI care simplifică conversia numerelor în cuvinte printr-un prompt rapid. WPS îți pune, de asemenea, la dispoziție un vizualizator XLSX pentru a te ajuta să deschizi și să vizualizezi fișiere Excel instantaneu. Fie că alegi VBA sau funcții definite de utilizator, acest ghid te echipează pentru a realiza fără probleme conversia numerelor în cuvinte, recunoscând totodată avantajele utilizării WPS Office pentru sarcini de birou îmbunătățite.





