Hvis du har en kolonne med numeriske værdier i dit regneark, og du har brug for at konvertere dem til deres tilsvarende engelske ord, spekulerer du måske på, hvordan man gør det. Excel har ikke en formel, der kan gøre dette direkte, men der er et par løsninger, du kan bruge, herunder WPS AI, som konverterer tal til ord med en simpel prompt. I denne artikel viser vi dig, hvordan du konverterer tal til ord i Excel.
Del 1: Sådan konverteres tal til ord i Excel med VBA

Dit Excel-ark er fyldt med tal, og forestil dig nu, at disse tal på magisk vis forvandles til ord. Det er kraften i makroen SpellNumber i Excels fortryllende verden. Lad os tage et hurtigt kig på, hvordan man tilføjer denne makro, og lægge op til den kommende magi.
Eksempel: Transformering af tal til ord
Du har en kolonne med tal i kolonne A, fra 1 til 10. Du ønsker at konvertere disse tal til ord for at give dine data et elegant pift. Lad os se på, hvordan du tilføjer SpellNumber-makroen for at opnå dette, som forberedelse til næste trin.
Trin 1. Åbn Excel, og naviger til fanen "Udvikler". Hvis du ikke ser denne fane, skal du ikke frygte! Den kan nemt aktiveres i Excel-indstillingerne.


Trin 2. Klik på "Visual Basic" for at åbne VBA-editoren.

Trin 3. I VBA-editoren skal du navigere til "Indsæt" og vælge "Modul". Det er her, magien vil udfolde sig.

Trin 4. Kopier og indsæt SpellNumber-makrokoden fra vores reference-links nedenfor i modulet.
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 |
|---|
Trin 5. Luk VBA-editoren, og vend tilbage til dit Excel-regneark.

Min oplevelse med at tilføje SpellNumber-makroen:
Det var overraskende nemt at integrere SpellNumber-makroen i Excel. Jeg fulgte trinene til fanen Udvikler og VBA-editoren, hvor jeg tilføjede makrokoden for beløbsformulering brugt i bogføring. Det fascinerede mig, hvordan tal kunne blive til tekst. Alligevel lærte jeg at være forsigtig; makroer kræver nøjagtighed for ikke at forstyrre regnearket. Det hjalp at have en sikkerhedskopi og at forstå VBAs struktur. Denne oplevelse åbner døren til flere Excel-muligheder og blander logik med kreativitet.
Dine Excel-regneark bliver et lærred for sproglig magi. I del 2 giver vi dig nøglen til at låse op for SpellNumber-makroen, et potent værktøj, der løfter dine numeriske data til en veltalende symfoni af ord. Naviger gennem praktiske eksempler, der belyser vejen til mesterskab, og se, hvordan dine data forvandler sig for øjnene af dig, styret af kunstfærdigheden i denne bemærkelsesværdige makro.
Eksempel: Transformering af numeriske data til ord
Trin 1. Åbn dit Excel-regneark med de numeriske data, du vil transformere.
Trin 2. Vælg en nærliggende kolonne. Lad os bruge kolonne B til de transformerede ord.
Trin 3. Skriv =SpellNumber(A1) i den første celle i kolonne B.

Trin 4. Tryk på Enter, og se tallet i celle A1 forvandle sig elegant til ord i celle B1.
Trin 5. For at transformere flere tal skal du trække formlen ned og lade SpellNumber-makroen gøre sin magi.

Min oplevelse med at bruge SpellNumber-makroen:
At afprøve SpellNumber-makroen gav et frisk perspektiv, da tal blev forvandlet til ord og gav mine data et nyt pift. Processen var ligetil og viste dens potentiale til at forbedre kommunikationen. Et advarende ord er dog på sin plads; præcision betyder noget. Et mindre fejltrin kan føre til uventede resultater. Kendskab til makroen og omhyggelig inputvalidering er afgørende for en problemfri oplevelse.
Del 2: Sådan konverteres tal til ord i Excel uden VBA
At navigere i det indviklede landskab af VBA kan virke skræmmende, men frygt ikke - for der findes en enklere rute til at opnå den fortryllende bedrift at konvertere tal til ord. Denne alternative tilgang, som bruger en brugerdefineret funktion, tilbyder en strømlinet metode, der bevarer den samme dragende transformation. Ved at dykke ned i de følgende trin afslører vi denne innovative teknik, som giver dig mulighed for problemfrit at berige dine data med ordenes lyriske charme og samtidig undgå kompleksiteten i VBA.
Fordele ved at bruge SpellNumber-makroen:
1. Brugervenlighed: Den brugerdefinerede funktion tilbyder enkelhed. Der kræves intet VBA-kendskab, hvilket gør det tilgængeligt for et bredere publikum.
2. Universel tilgængelighed: I modsætning til makroer, der skal integreres i hver projektmappe, følger funktionen med regnearket, hvilket sikrer problemfri deling.
3. Ingen makroadvarsler: Sig farvel til irriterende makroadvarsler, når du deler dine projektmapper. Funktionen fungerer i baggrunden og forvandler elegant tal til ord.
Ulemper ved at bruge makro til SpellNumber i Excel:
1. VBA-færdigheder: Makroer kræver VBA-færdigheder for at blive tilpasset, hvilket potentielt begrænser dem, der ikke kender til programmering.
2. Projektmappe-specifik: Makroer skal kopieres eller indbygges i hver enkelt projektmappe, hvilket øger kompleksiteten og vedligeholdelsesarbejdet.
3. Makroadvarsler: Deling af en projektmappe med makroer kan udløse advarsler, hvilket potentielt kan give anledning til sikkerhedsproblemer.
Lad os nu tage den naturskønne rute og se kunstfærdigheden i denne metode (brug kombinationer af tilgængelige formler i Excel) gennem et praktisk eksempel.
Sådan konverteres tal til ord i Excel uden VBA
Eksempel: Transformering af tal til ord ved hjælp af en formel
Trin 1. Åbn dit Excel-regneark med de numeriske data, du ønsker at transformere.

Trin 2. Vælg en kolonne ved siden af tallene. Lad os bruge kolonne B til de transformerede ord.
Trin 3. Indtast formlen i den første celle i kolonne B
=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")&" ",""))))))) |
|---|
Trin 4. Tryk på Enter, og se, hvordan tallet i celle A2 yndefuldt udvikler sig til ord i celle B2.

Trin 5. For at transformere yderligere tal kan du trække formlen ned og afsløre den magiske forvandling.

Min oplevelse med at bruge den brugerdefinerede funktion:
Da jeg udforskede brugerdefinerede funktioner, satte jeg pris på den enkelhed, de gav – ingen indviklet VBA-kodning eller komplekse opsætninger. Bare en ligetil formel til at transformere tal til ord og tilføje et unikt pift til Excel. Alligevel en advarsel: Det er afgørende at forstå funktionen godt. Test den på tværs af scenarier for at sikre nøjagtighed. Denne praktiske indsigt understreger funktionens værdi og fremhæver samtidig vigtigheden af omhyggelig brug for at opnå de bedste resultater.
Del 3: Hvorfor bruge WPS Office?

Det er vigtigt at bemærke, at de metoder, vi hidtil har undersøgt, ikke kun gælder for Microsoft Excel, men også for WPS Office Spreadsheet. Vi inviterer dig dog til at udforske de klare fordele, som WPS Office bringer til bordet. Her er grunden til, at vi anbefaler, at du overvejer WPS Office til dine transformative Excel-opgaver:
1. Pris: WPS Office tilbyder et overkommeligt alternativ uden at gå på kompromis med funktionerne, hvilket gør det til et omkostningseffektivt valg til både personlig og professionel brug.
2. Kompatibilitet: Udveksl problemfrit dokumenter mellem WPS Office og Microsoft Office, og sikr et smidigt samarbejde og dokumentdeling.
3. Funktioner: WPS Office har en omfattende række funktioner, der kan måle sig med branchestandarderne og gør dig i stand til at udføre forskellige opgaver med lethed. Det har også AI-funktioner som AI-skribent og AI-dokumentoversætter.
4. Brugervenlig grænseflade: At navigere i WPS Office er en leg, selv for nybegyndere. Den intuitive grænseflade sikrer en jævn læringskurve og en effektiv arbejdsgang.
5. Afslør skjulte perler: Dyk ned i WPS-bloggen for at finde skjulte perler, der vil styrke dine færdigheder. Fra avancerede teknikker til innovative løsninger, er hver tutorial et skridt på vejen mod at mestre programmet.
6. Hurtig formatkonvertering: For at forbedre din arbejdseffektivitet kan WPS Office også hurtigt konvertere Excel til PDF.
7. AI-drevet produktivitetsboost: WPS AI sætter skub i dine daglige opgaver – lige fra at konvertere tal til ord i Excel med en simpel prompt, til at autogenerere formler, opsummere dokumenter og oversætte tekst i realtid.
Del 4: Sådan konverteres tal til ord i Excel med WPS AI
I forlængelse af de ikke-VBA-metoder, vi netop har udforsket, tilbyder WPS AI en endnu mere intuitiv måde at konvertere tal til ord på – helt uden manuel opbygning af formler. Denne AI-drevne tilgang strømliner processen yderligere og gør den tilgængelig for brugere på alle niveauer.
Trin 1. Start med at skrive =WPSAI i en tom celle, og dobbeltklik på funktionen WPSAI i rullemenuen.

Trin 2. Inde i funktionsparenteserne skal du henvise til cellen med dit måltal og derefter tilføje prompten.

Trin 3. Tryk på Enter, og AI'en vil øjeblikkeligt generere tallets ordækvivalent i den celle.

Trin 4. Træk fyldehåndtaget ned fra den første konverterede celle for at anvende den samme AI-konvertering på alle de resterende tal i din kolonne.


Tallene i de markerede celler vil blive konverteret til tekst.
I modsætning til statiske ikke-VBA-formler, der er bundet til én bestemt konverteringsregel, kan AI'en forstå prompter i naturligt sprog – så hvis jeg nogensinde får brug for at skifte til en anden stil, ændrer jeg bare prompten i stedet for at ombygge en formel. Det fjerner også behovet for at huske kompleks syntaks eller fejlfinde indlejrede funktioner. AI'en klarer det tunge arbejde, så jeg kan fokusere på mine data frem for mekanikken. Når statistikken er afsluttet, kan du også bruge konverteringsfunktionen i WPS Office, herunder Excel til PDF.
Ofte stillede spørgsmål om, hvordan man konverterer tal til ord i Excel
Kan jeg konvertere ord til tal den anden vej?
Absolut! At vende konverteringen om, fra ord til tal, er bestemt muligt i WPS Office ved hjælp af VBA-kode. Selvom fokus i denne diskussion har været på at transformere tal til ord, er det vigtigt at bemærke, at WPS Office leverer alsidige værktøjer til at håndtere konvertering i begge retninger.
Kan jeg konvertere tal til ord med ét klik?
Absolut, at omdanne tal til ord med blot ét klik er en leg med de bemærkelsesværdige muligheder i WPS Office (ved hjælp af VBA eller kombinationer af tilgængelige formler). Denne strømlinede proces forenkler dine opgaver og sparer dig for værdifuld tid og indsats.
Hvad er VBA, og hvordan lærer jeg det hurtigt?
VBA er et programmeringssprog fra Microsoft, der bruges til at automatisere opgaver og skabe tilpassede løsninger i Office-programmer som Excel, Word og PowerPoint.
Lær VBA hurtigt:
Grundlæggende: Forstå programmeringskoncepter som variabler og sløjfer.
VBA-editor: Åbn den i Office-apps for at skrive kode.
Eksempler: Studer simple kodeeksempler.
Optag makroer: Lær ved at optage handlinger.
Online ressourcer: Brug tutorials og kurser.
Øvelse: Kod jævnligt små projekter.
Dokumentation: Udforsk Microsofts VBA-dokumentation.
Fællesskaber: Deltag i online fora.
Byg: Opret dine egne makroer til rigtige opgaver.
Fejlfinding: Lær at rette kodefejl.
Nysgerrighed: Bliv ved med at udforske og eksperimentere.
At mestre VBA forbedrer produktiviteten og tilbyder skræddersyede løsninger.
Hvad skal jeg gøre, hvis filen bliver beskadiget under konverteringsprocessen?
Generelt opstår der ikke problemer med filkorruption. Skulle filen dog alligevel blive beskadiget under konverteringsprocessen, skal du ikke bekymre dig – du kan bruge WPS File Repair Tool til at gendanne Excel-filen.
Resumé
I denne vejledning har vi udforsket forskellige måder at konvertere tal til ord i Excel på, med fokus på både VBA-makroer og brugerdefinerede funktioner. Vi har givet klare trinvise instruktioner og eksempler for hver metode. Vi lagde vægt på fordelene ved WPS Office og fremhævede dets kompatibilitet med Excel, brugervenlige funktioner, prisvenlighed samt den kraftfulde WPS AI, der forenkler konvertering af tal til ord med en enkelt hurtig prompt. WPS giver dig også en XLSX-fremviser, der hjælper dig med at åbne og få vist Excel-filer øjeblikkeligt. Uanset om du vælger VBA eller brugerdefinerede funktioner, ruster denne guide dig til problemfrit at opnå konvertering af tal til ord, samtidig med at du anerkender fordelene ved at bruge WPS Office til forbedrede kontoropgaver.





