Ako imate kolonu sa numeričkim vrednostima u svom radnom listu, i morate da ih pretvorite u odgovarajuće engleske reči, možda se pitate kako to da uradite. Excel nema formulu koja to može uraditi direktno, ali postoji nekoliko zaobilaznih rešenja koja možete koristiti, uključujući WPS AI koji pretvara brojeve u reči pomoću jednostavnog upita. U ovom članku ćemo vam pokazati kako da pretvorite brojeve u reči u programu Excel.
Deo 1: Kako pretvoriti brojeve u reči u programu Excel pomoću VBA

Vaš Excel list je ispunjen brojevima, a sada zamislite da se ti brojevi magično pretvaraju u reči. To je moć makroa SpellNumber u čarobnom svetu programa Excel. Hajde da ukratko pogledamo kako da dodate ovaj makro i pripremimo se za predstojeću magiju.
Primer: Pretvaranje brojeva u reči
Imate kolonu brojeva u koloni A, u rasponu od 1 do 10. Želite da pretvorite ove brojeve u reči, dodajući elegantan dodir vašim podacima. Hajde da pogledamo kako da dodate makro SpellNumber da biste to postigli kao pripremu za sledeći korak.
Korak 1. Otvorite Excel i idite na karticu "Developer". Ako ne vidite ovu karticu, ne brinite! Lako se može omogućiti u opcijama programa Excel.


Korak 2. Kliknite na "Visual Basic" da biste otvorili VBA uređivač.

Korak 3. U VBA uređivaču idite na "Insert" i izaberite "Module." Ovde će se dogoditi magija.

Korak 4. Kopirajte i nalepite kod makroa SpellNumber iz naših referentnih veza ispod u 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 |
|---|
Korak 5. Zatvorite VBA uređivač i vratite se na svoj Excel radni list.

Moje iskustvo sa dodavanjem makroa SpellNumber:
Integracija makroa SpellNumber u Excel bila je iznenađujuće laka. Pratio sam korake do kartice Developer i VBA uređivača, gde sam dodao makro kod za ispis iznosa rečima koji se koristi u knjigovodstvu. Zaintrigiralo me je kako brojevi mogu da se pretvore u tekst. Ipak, naučio sam da budem oprezan; makroima je potrebna tačnost da bi se izbeglo narušavanje tabele. Posedovanje rezervne kopije i razumevanje strukture VBA su mi pomogli. Ovo iskustvo otvara vrata za više mogućnosti u Excelu, mešajući logiku sa kreativnošću.
Vaši Excel radni listovi postaju platno za lingvističku magiju. U delu 2, dajemo vam ključ za otključavanje makroa SpellNumber, moćnog alata koji vaše numeričke podatke uzdiže u elokventnu simfoniju reči. Krećite se kroz praktične primere koji osvetljavaju put do majstorstva i gledajte kako se vaši podaci transformišu pred vašim očima, vođeni umetnošću ovog izvanrednog makroa.
Primer: Pretvaranje numeričkih podataka u reči
Korak 1. Otvorite svoj Excel radni list sa numeričkim podacima koje želite da pretvorite.
Korak 2. Izaberite obližnju kolonu. Koristimo kolonu B za pretvorene reči.
Korak 3. U prvu ćeliju kolone B, unesite =SpellNumber(A1).

Korak 4. Pritisnite Enter i gledajte kako se broj u ćeliji A1 elegantno pretvara u reči u ćeliji B1.
Korak 5. Da biste pretvorili više brojeva, prevucite formulu nadole i dozvolite makrou SpellNumber da učini svoju magiju.

Moje iskustvo u korišćenju makroa SpellNumber:
Isprobavanje makroa SpellNumber donelo je novu perspektivu jer su se brojevi pretvarali u reči, dajući novi pečat mojim podacima. Proces je bio jednostavan, otkrivajući njegov potencijal da poboljša komunikaciju. Međutim, potreban je oprez; preciznost je bitna. Manja greška može dovesti do neočekivanih ishoda. Upoznavanje sa makroom i pažljiva provera unosa od suštinskog su značaja za besprekorno iskustvo.
Deo 2: Kako pretvoriti brojeve u reči u programu Excel bez VBA
Snalaženje u složenom okruženju VBA može delovati zastrašujuće, ali ne brinite — postoji jednostavniji put da postignete ovaj neverovatni podvig pretvaranja brojeva u reči. Ovaj alternativni pristup, koji koristi korisnički definisanu funkciju, nudi pojednostavljeni metod koji zadržava istu privlačnu transformaciju. Kroz sledeće korake, otkrivamo ovu inovativnu tehniku koja vam omogućava da bez problema ispunite svoje podatke lirskim šarmom reči, dok izbegavate složenosti VBA.
Prednosti korišćenja makroa SpellNumber:
1. Lakoća korišćenja: Korisnički definisana funkcija nudi jednostavnost. Nije potrebno znanje VBA, što je čini pristupačnom široj publici.
2. Univerzalna pristupačnost: Za razliku od makroa koji moraju biti integrisani u svaku radnu svesku, ova funkcija se kreće zajedno sa radnim listom, osiguravajući lako deljenje.
3. Bez upozorenja o makroima: Oprostite se od dosadnih upozorenja o makroima prilikom deljenja radnih sveski. Funkcija radi u pozadini, elegantno pretvarajući brojeve u reči.
Mane korišćenja makroa za funkciju SpellNumber u programu Excel:
1. Poznavanje VBA: Makroi zahtevaju VBA veštine za prilagođavanje, potencijalno ograničavajući one koji nisu upoznati sa programiranjem.
2. Ograničenost na radnu svesku: Makroi moraju biti kopirani ili ugrađeni u svaku radnu svesku, što dodaje složenost i zahteva održavanje.
3. Upozorenja o makroima: Deljenje radne sveske sa makroima može pokrenuti upozorenja, potencijalno izazivajući bezbednosne probleme.
Sada, hajde da idemo slikovitim putem i svedočimo umeću ovog metoda (koristite kombinacije formula dostupnih u programu Excel) kroz praktičan primer.
Kako pretvoriti brojeve u reči u programu Excel bez VBA
Primer: Pretvaranje brojeva u reči pomoću formule
Korak 1. Otvorite svoj Excel radni list sa numeričkim podacima koje želite da pretvorite.

Korak 2. Izaberite kolonu pored brojeva. Koristimo kolonu B za pretvorene reči.
Korak 3. U prvu ćeliju kolone B, unesite formulu
=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")&" ",""))))))) |
|---|
Korak 4. Pritisnite Enter i posmatrajte kako se broj u ćeliji A2 graciozno pretvara u reči u ćeliji B2.

Korak 5. Da biste pretvorili dodatne brojeve, prevucite formulu nadole i otkrijte magičnu metamorfozu.

Moje iskustvo sa korišćenjem korisnički definisane funkcije:
Istražujući korisnički definisane funkcije, cenio sam jednostavnost koju su donele — nema komplikovanog VBA kodiranja ili složenih podešavanja. Samo jednostavna formula za pretvaranje brojeva u reči, dajući jedinstven pečat programu Excel. Ipak, imajte na umu: dobro razumevanje funkcije je ključno. Testirajte je u različitim scenarijima da biste obezbedili tačnost. Ovaj praktični uvid naglašava vrednost funkcije, dok ističe važnost pažljive upotrebe za najbolje rezultate.
Deo 3: Zašto koristiti WPS Office?

Važno je napomenuti da se metode koje smo do sada istražili ne primenjuju samo na Microsoft Excel već i na WPS Office Spreadsheet. Međutim, pozivamo vas da istražite posebne prednosti koje donosi WPS Office. Evo zašto vam preporučujemo da razmotrite WPS Office za vaše poduhvate u programu Excel:
1. Cena: WPS Office nudi pristupačnu alternativu bez kompromisa u pogledu funkcija, što ga čini isplativim izborom kako za ličnu tako i za profesionalnu upotrebu.
2. Kompatibilnost: Besprekorna razmena dokumenata između WPS Office i Microsoft Office osigurava laku saradnju i deljenje dokumenata.
3. Funkcije: WPS Office se može pohvaliti sveobuhvatnim skupom funkcija koje pariraju industrijskim standardima i omogućavaju vam da sa lakoćom obavljate različite zadatke. Takođe ima i AI funkcije kao što su AI writer i AI prevodilac dokumenata.
4. Interfejs prilagođen korisniku: Navigacija kroz WPS Office je izuzetno laka, čak i za početnike. Intuitivni interfejs osigurava lako učenje i efikasan tok rada.
5. Otkrijte skrivene dragulje: Istražite WPS Blog da biste otkrili skrivene dragulje koji će poboljšati vaše veštine. Od naprednih tehnika do inovativnih rešenja, svaki vodič je korak ka majstorstvu.
6. Brza konverzija formata: Da bi poboljšao vašu radnu efikasnost, WPS Office takođe može brzo da pretvori Excel u PDF.
7. Povećanje produktivnosti uz pomoć veštačke inteligencije: WPS AI ubrazava vaše svakodnevne zadatke — od pretvaranja brojeva u reči u programu Excel pomoću jednostavnog upita, do automatskog generisanja formula, sumiranja dokumenata i prevođenja teksta u realnom vremenu.
Deo 4: Kako pretvoriti brojeve u reči u programu Excel pomoću WPS AI
Nadovezujući se na metode bez VBA koje smo upravo istražili, WPS AI nudi još intuitivniji način za pretvaranje brojeva u reči — bez ikakvog ručnog pravljenja formula. Ovaj pristup zasnovan na veštačkoj inteligenciji dodatno pojednostavljuje proces, čineći ga pristupačnim korisnicima svih nivoa veština.
Korak 1. U praznu ćeliju počnite da kucate =WPSAI i dvaput kliknite na funkciju WPSAI iz padajućeg menija.

Korak 2. Unutar zagrada funkcije referencirajte ćeliju koja sadrži vaš ciljni broj, a zatim dodajte upit.

Korak 3. Pritisnite Enter i AI će odmah generisati ekvivalent broja u rečima u toj ćeliji.

Korak 4. Prevucite ručicu za popunjavanje nadole iz prve pretvorene ćelije da biste primenili istu AI konverziju na sve preostale brojeve u vašoj koloni.


Brojevi u izabranim ćelijama biće pretvoreni u tekst.
Za razliku od statičnih formula bez VBA koje su vezane za jedno specifično pravilo konverzije, AI može da razume upite na prirodnom jeziku — tako da ako ikada budem morao da pređem na drugačiji stil, samo izmenim upit umesto da ponovo pravim formulu. Ovo takođe eliminiše potrebu za pamćenjem složene sintakse ili rešavanjem problema sa ugnježdenim funkcijama; AI obavlja teži deo posla, tako da mogu da se fokusiram na svoje podatke umesto na mehaniku. Nakon što se statistika završi, takođe možete koristiti funkciju konverzije u programu WPS Office, uključujući Excel u PDF.
Često postavljana pitanja o tome kako pretvoriti broj u reči u programu Excel
Mogu li obrnuto pretvoriti reči u brojeve?
Apsolutno! Obrnuta konverzija, iz reči u brojeve, zaista je moguća u WPS Office pomoću VBA koda. Iako je fokus ove rasprave bio na pretvaranju brojeva u reči, važno je napomenuti da WPS Office pruža svestrane alate za rukovanje oba smera konverzije.
Mogu li pretvoriti brojeve u reči jednim klikom?
Apsolutno, pretvaranje brojeva u reči samo jednim klikom je veoma lako uz izvanredne mogućnosti WPS Office (koristeći VBA ili kombinacije dostupnih formula). Ovaj pojednostavljeni proces olakšava vaše zadatke, štedeći vam dragoceno vreme i trud.
Šta je VBA i kako da ga brzo naučim?
VBA je programski jezik kompanije Microsoft koji se koristi za automatizaciju zadataka i kreiranje prilagođenih rešenja u Office aplikacijama kao što su Excel, Word i PowerPoint.
Brzo učenje VBA:
Osnove: Razumeti programske koncepte kao što su promenljive i petlje.
VBA uređivač: Otvorite ga u Office aplikacijama da biste pisali kod.
Primeri: Proučite jednostavne primere koda.
Snimanje makroa: Učite snimanjem radnji.
Onlajn resursi: Koristite vodiče i kurseve.
Praksa: Redovno kodirajte male projekte.
Dokumentacija: Istražite Microsoft VBA dokumentaciju.
Zajednice: Uključite se u onlajn forume.
Kreiranje: Pravite svoje makroe za stvarne zadatke.
Otklanjanje grešaka: Naučite da popravite greške u kodu.
Radoznalost: Nastavite da istražujete i eksperimentišete.
Ovladavanje VBA poboljšava produktivnost i nudi prilagođena rešenja.
Šta treba da uradim ako se datoteka ošteti tokom procesa konverzije?
Generalno, problemi sa oštećenjem datoteka se ne dešavaju. Međutim, ako do oštećenja datoteke ipak dođe tokom procesa konverzije, ne brinite — možete koristiti alatku za popravku WPS datoteka da biste oporavili Excel datoteku.
Rezime
U ovom vodiču smo istražili različite načine za pretvaranje brojeva u reči u programu Excel, fokusirajući se i na VBA makroe i na korisnički definisane funkcije. Obezbedili smo jasna uputstva korak po korak i primere za svaki metod. Ističući prednosti WPS Office, naglasili smo njegovu kompatibilnost sa programom Excel, funkcije prilagođene korisniku i pristupačnost, plus moćni WPS AI koji pojednostavljuje konverziju brojeva u reči jednim brzim upitom. WPS vam takođe nudi pregledač XLSX datoteka koji vam pomaže da odmah otvorite i pregledate Excel datoteke. Bilo da izaberete VBA ili korisnički definisane funkcije, ovaj vodič vas osposobljava da neprimetno postignete konverziju brojeva u reči, prepoznajući pritom prednosti korišćenja WPS Office za poboljšane kancelarijske zadatke.





