Hvis du har en kolonne med numeriske verdier i regnearket ditt og trenger å konvertere dem til tilsvarende ord, lurer du kanskje på hvordan du gjør det. Excel har ingen formel som kan gjøre dette direkte, men det finnes noen få omveier du kan bruke, inkludert WPS AI, som konverterer tall til ord med en enkel ledetekst. I denne artikkelen vil vi vise deg hvordan du konverterer tall til ord i Excel.
Del 1: Hvordan konvertere tall til ord i Excel med VBA

Excel-arket ditt er fylt med tall, og se nå for deg at disse tallene på magisk vis forvandles til ord. Det er kraften til SpellNumber-makroen i Excels fortryllende verden. La oss ta en rask titt på hvordan du legger til denne makroen for å legge til rette for den kommende magien.
Eksempel: Forvandle tall til ord
Du har en kolonne med tall i kolonne A, fra 1 til 10. Du ønsker å konvertere disse tallene til ord for å gi dataene dine et elegant preg. La oss se på hvordan du legger til SpellNumber-makroen for å oppnå dette som en forberedelse til neste trinn.
Trinn 1. Åpne Excel og naviger til «Utvikler»-fanen. Hvis du ikke ser denne fanen, frykt ikke! Den kan enkelt aktiveres i Excel-alternativene.


Trinn 2. Klikk på «Visual Basic» for å åpne VBA-editoren.

Trinn 3. I VBA-editoren, naviger til «Sett inn» og velg «Modul». Det er her magien vil utspille seg.

Trinn 4. Kopier og lim inn SpellNumber-makrokoden fra referanselenkene våre nedenfor inn i modulen.
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 |
|---|
Trinn 5. Lukk VBA-editoren og gå tilbake til Excel-regnearket ditt.

Min erfaring med å legge til SpellNumber-makroen:
Å integrere SpellNumber-makroen i Excel var overraskende enkelt. Jeg fulgte trinnene til Utvikler-fanen og VBA-editoren, hvor jeg la til makrokoden for beløpsformulering som brukes i bokføring. Det fascinerte meg hvordan tall kunne bli til tekst. Likevel lærte jeg å være forsiktig; makroer krever nøyaktighet for å unngå å ødelegge regnearket. Det hjalp å ha en sikkerhetskopi og forstå VBAs struktur. Denne opplevelsen åpner døren for flere muligheter i Excel, der logikk blandes med kreativitet.
Excel-regnearkene dine blir et lerret for språklig magi. I del 2 gir vi deg nøkkelen til å låse opp SpellNumber-makroen, et kraftig verktøy som løfter dine numeriske data til en veltalende symfoni av ord. Naviger gjennom praktiske eksempler som lyser opp veien til mestring, og se hvordan dataene dine forvandles foran øynene dine, ledet av kunsten i denne bemerkelsesverdige makroen.
Eksempel: Forvandle numeriske data til ord
Trinn 1. Åpne Excel-regnearket ditt med de numeriske dataene du vil forvandle.
Trinn 2. Velg en nærliggende kolonne. La oss bruke kolonne B for de forvandlede ordene.
Trinn 3. I den første cellen i kolonne B, skriv inn =SpellNumber(A1).

Trinn 4. Trykk på Enter, og se at tallet i celle A1 på en elegant måte forvandles til ord i celle B1.
Trinn 5. For å forvandle flere tall, dra formelen ned, og la SpellNumber-makroen gjøre sin magi.

Min erfaring med bruk av SpellNumber-makroen:
Å prøve ut SpellNumber-makroen ga et nytt perspektiv ettersom tall ble forvandlet til ord, noe som ga dataene mine et originalt preg. Prosessen var enkel og avslørte makroens potensial til å forbedre kommunikasjonen. Det er imidlertid på sin plass med en liten advarsel: Nøyaktighet er viktig. Et lite feiltrinn kan føre til uventede resultater. Kjennskap til makroen og nøye validering av inndata er avgjørende for en sømløs opplevelse.
Del 2: Hvordan konvertere tall til ord i Excel uten VBA
Å navigere i det intrikate landskapet av VBA kan virke skremmende, men frykt ikke – for det finnes en enklere vei til å oppnå den fortryllende bragden med å konvertere tall til ord. Denne alternative tilnærmingen, som bruker en brukerdefinert funksjon, tilbyr en strømlinjeformet metode som beholder den samme fascinerende forvandlingen. Ved å dykke ned i de følgende trinnene, avdekker vi denne innovative teknikken, som lar deg sømløst tilføre dataene dineordenes lyriske sjarm, samtidig som du unngår kompleksiteten i VBA.
Fordeler med å bruke SpellNumber-makroen:
1. Brukervennlighet: Den brukerdefinerte funksjonen tilbyr enkelhet. Ingen VBA-kunnskap kreves, noe som gjør den tilgjengelig for et bredere publikum.
2. Universell tilgjengelighet: I motsetning til makroer som må integreres i hver arbeidsbok, følger funksjonen med regnearket, noe som sikrer sømløs deling.
3. Ingen makro-varsler: Si farvel til irriterende makro-varsler når du deler arbeidsbøkene dine. Funksjonen fungerer i bakgrunnen, og forvandler tall til ord på en elegant måte.
Ulemper med å bruke makro for SpellNumber i Excel:
1. VBA-kunnskap: Makroer krever VBA-ferdigheter for tilpasning, noe som potensielt begrenser de som ikke er kjent med programmering.
2. Arbeidsbokspesifikk: Makroer må kopieres eller bygges inn i hver arbeidsbok, noe som øker kompleksiteten og vedlikeholdsarbeidet.
3. Makro-varsler: Deling av en arbeidsbok med makroer kan utløse varsler, noe som potensielt kan skape sikkerhetsbekymringer.
La oss nå ta den naturskjønne ruten og bevitne det kunstneriske ved denne metoden (bruk kombinasjoner av formler som er tilgjengelige i Excel) gjennom et praktisk eksempel.
Hvordan konvertere tall til ord i Excel uten VBA
Eksempel: Forvandle tall til ord ved hjelp av en formel
Trinn 1. Åpne Excel-regnearket ditt med de numeriske dataene du ønsker å forvandle.

Trinn 2. Velg en kolonne ved siden av tallene. La oss bruke kolonne B for de forvandlede ordene.
Trinn 3. I den første cellen i kolonne B, skriv inn formelen
=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")&" ",""))))))) |
|---|
Trinn 4. Trykk på Enter, og se hvordan tallet i celle A2 elegant utvikler seg til ord i celle B2.

Trinn 5. For å forvandle ytterligere tall, dra formelen ned, og avslør den magiske forvandlingen.

Min erfaring med bruk av den brukerdefinerte funksjonen:
Ved å utforske brukerdefinerte funksjoner, satte jeg pris på enkelheten de ga – ingen intrikat VBA-koding eller komplekse oppsett. Bare en rett frem formel for å forvandle tall til ord, som gir Excel et unikt preg. Likevel, en advarsel: Å forstå funksjonen godt er nøkkelen. Test den på tvers av scenarier for å sikre nøyaktighet. Denne praktiske innsikten understreker funksjonens verdi samtidig som den fremhever viktigheten av forsiktig bruk for de beste resultatene.
Del 3: Hvorfor bruke WPS Office?

Det er viktig å merke seg at metodene vi har utforsket så langt, ikke bare gjelder for Microsoft Excel, men også for regneark i WPS Office. Vi inviterer deg imidlertid til å utforske de distinkte fordelene som WPS Office bringer med seg. Her er grunnen til at vi anbefaler deg å vurdere WPS Office for dine transformative Excel-oppgaver:
1. Pris: WPS Office tilbyr et rimelig alternativ uten å gå på akkord med funksjoner, noe som gjør det til et kostnadseffektivt valg for både personlig og profesjonell bruk.
2. Kompatibilitet: Utveksle dokumenter sømløst mellom WPS Office og Microsoft Office, og sikre smidig samarbeid og dokumentdeling.
3. Funksjoner: WPS Office kan skilte med en omfattende pakke med funksjoner som kan måle seg med bransjestandarder, og som gjør det enkelt for deg å utføre ulike oppgaver. Den har også KI-funksjoner som KI-skribent og KI-dokumentoversetter.
4. Brukervennlig grensesnitt: Å navigere i WPS Office er en lek, selv for nybegynnere. Det intuitive grensesnittet sikrer en jevn læringskurve og effektiv arbeidsflyt.
5. Avdekk skjulte perler: Dykk ned i WPS-bloggen for å finne skjulte perler som vil forbedre ferdighetene dine. Fra avanserte teknikker til innovative løsninger er hver veiledning et skritt mot mestring.
6. Rask formatkonvertering: For å øke arbeidseffektiviteten din, kan WPS Office også raskt konvertere Excel til PDF.
7. KI-drevet produktivitetsøkning: WPS AI turbolader de daglige oppgavene dine – fra å konvertere tall til ord i Excel med en enkel ledetekst, til å autogenerere formler, oppsummere dokumenter og oversette tekst i sanntid.
Del 4: Hvordan konvertere tall til ord i Excel med WPS AI
Ved å bygge på metodene uten VBA som vi nettopp utforsket, tilbyr WPS AI en enda mer intuitiv måte å konvertere tall til ord på – uten manuell bygging av formler. Denne KI-drevne tilnærmingen strømlinjeformer prosessen ytterligere, og gjør den tilgjengelig for brukere på alle ferdighetsnivåer.
Trinn 1. I en tom celle, begynn å skrive =WPSAI og dobbeltklikk på WPSAI-funksjonen fra rullegardinmenyen.

Trinn 2. Inne i funksjonsparentesen, referer til cellen som inneholder måltallet ditt, og legg deretter til ledeteksten.

Trinn 3. Trykk på Enter, så vil KI umiddelbart generere tallets tilsvarende ord i den cellen.

Trinn 4. Dra fyllhåndtaket ned fra den første konverterte cellen for å bruke den samme KI-konverteringen på alle de gjenværende tallene i kolonnen din.


Tallene i de valgte cellene vil bli konvertert til tekst.
I motsetning til statiske formler uten VBA, som er knyttet til én spesifikk konverteringsregel, kan KI forstå ledetekster i naturlig språk – så hvis jeg noen gang trenger å bytte til en annen stil, justerer jeg bare ledeteksten i stedet for å bygge en formel på nytt. Det eliminerer også behovet for å memorere kompleks syntaks eller feilsøke nestede funksjoner; KI tar seg av de tunge løftene, slik at jeg kan fokusere på dataene mine i stedet for mekanikken. Etter at statistikken er fullført, kan du også bruke konverteringsfunksjonen i WPS Office, inkludert Excel til PDF.
Vanlige spørsmål om hvordan konvertere tall til ord i Excel
Kan jeg gjøre ord om til tall motsatt vei?
Absolutt! Å reversere konverteringen, fra ord til tall, er faktisk mulig i WPS Office ved å bruke VBA-kode. Selv om fokuset i denne diskusjonen har vært på å forvandle tall til ord, er det viktig å merke seg at WPS Office tilbyr allsidige verktøy for å håndtere konvertering i begge retninger.
Kan jeg gjøre tall om til ord med ett klikk?
Absolutt, å gjøre tall om til ord med bare ett klikk er en lek med de bemerkelsesverdige funksjonene i WPS Office (ved å bruke VBA eller kombinasjoner av tilgjengelige formler). Denne strømlinjeformede prosessen forenkler oppgavene dine og sparer deg for verdifull tid og innsats.
Hva er VBA og hvordan lærer du det raskt?
VBA er et programmeringsspråk fra Microsoft som brukes til å automatisere oppgaver og lage tilpassede løsninger i Office-applikasjoner som Excel, Word og PowerPoint.
Lær VBA raskt:
Grunnleggende: Forstå programmeringskonsepter som variabler og løkker.
VBA-editor: Åpne den i Office-apper for å skrive kode.
Eksempler: Studer enkle kodeeksempler.
Spill inn makroer: Lær ved å spille inn handlinger.
Nettressurser: Bruk opplæringsprogrammer og kurs.
Øv: Kod små prosjekter regelmessig.
Dokumentasjon: Utforsk Microsofts VBA-dokumentasjon.
Fellesskap: Engasjer deg i nettfora.
Bygg: Lag dine egne makroer for reelle oppgaver.
Feilsøking: Lær å fikse kodefeil.
Nysgjerrighet: Fortsett å utforske og eksperimentere.
Mestring av VBA øker produktiviteten og tilbyr skreddersydde løsninger.
Hva bør jeg gjøre hvis filen blir ødelagt under konverteringsprosessen?
Generelt forekommer ikke problemer med filkorrupsjon. Hvis filen imidlertid blir ødelagt under konverteringsprosessen, trenger du ikke å bekymre deg – du kan bruke WPS File Repair Tool til å gjenopprette Excel-filen.
Sammendrag
I denne veiledningen har vi utforsket forskjellige måter å konvertere tall til ord i Excel på, med fokus på både VBA-makroer og brukerdefinerte funksjoner. Vi har gitt klare trinnvise instruksjoner og eksempler for hver metode. Ved å vektlegge fordelene med WPS Office, fremhevet vi dets kompatibilitet med Excel, brukervennlige funksjoner og rimelige pris, i tillegg til den kraftige WPS AI som forenkler konverteringen av tall til ord med én rask ledetekst. WPS gir deg også en XLSX-leser som hjelper deg med å åpne og vise Excel-filer umiddelbart. Enten du velger VBA eller brukerdefinerte funksjoner, ruster denne veiledningen deg til å sømløst oppnå konvertering av tall til ord, samtidig som du anerkjenner fordelene med å bruke WPS Office for forbedrede kontoroppgaver.





