Als je een kolom met numerieke waarden in je werkblad hebt en deze wilt omzetten naar hun equivalente Engelse woorden, vraag je je misschien af hoe je dat doet. Excel heeft geen formule die dit rechtstreeks kan doen, maar er zijn een paar tijdelijke oplossingen die je kunt gebruiken, waaronder WPS AI dat getallen naar woorden omzet met een eenvoudige prompt. In dit artikel laten we je zien hoe je getallen naar woorden omzet in Excel.
Deel 1: Hoe je getallen naar woorden omzet in Excel met VBA

Je Excel-blad staat vol met getallen, en stel je nu eens voor dat deze getallen op magische wijze veranderen in woorden. Dat is de kracht van de SpellNumber-macro in de betoverende wereld van Excel. Laten we een kort kijkje nemen hoe je deze macro toevoegt, om de weg vrij te maken voor de naderende betovering.
Voorbeeld: Getallen transformeren naar woorden
Je hebt een kolom met getallen in kolom A, variërend van 1 tot 10. Je wilt deze getallen omzetten in woorden en zo een elegante toets aan je gegevens toevoegen. Laten we eens kijken hoe we de SpellNumber-macro kunnen toevoegen om dit te bereiken ter voorbereiding op de volgende stap.
Stap 1. Open Excel en navigeer naar het tabblad "Ontwikkelaars". Als je dit tabblad niet ziet, geen paniek! Het kan eenvoudig worden ingeschakeld in de Excel-opties.


Stap 2. Klik op "Visual Basic" om de VBA-editor te openen.

Stap 3. Navigeer in de VBA-editor naar "Invoegen" en selecteer "Module". Dit is waar de magie zich zal ontvouwen.

Stap 4. Kopieer en plak de SpellNumber-macrocode uit onze onderstaande referentielinks in de module.
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 |
|---|
Stap 5. Sluit de VBA-editor en keer terug naar je Excel-werkblad.

Mijn ervaring met het toevoegen van de SpellNumber-macro:
De integratie van de SpellNumber-macro in Excel was verrassend eenvoudig. Ik volgde de stappen naar het tabblad Ontwikkelaars en de VBA-editor, waar ik de macrocode toevoegde voor bedragnotaties die worden gebruikt bij boekhouden. Het fascineerde me hoe getallen in tekst konden veranderen. Toch leerde ik voorzichtig te zijn; macro's vereisen nauwkeurigheid om verstoring van het spreadsheet te voorkomen. Het hebben van een back-up en het begrijpen van de structuur van VBA hielpen enorm. Deze ervaring opent de deur naar meer mogelijkheden in Excel, waarbij logica en creativiteit worden gecombineerd.
Je Excel-werkbladen worden een canvas voor linguïstische magie. In Deel 2 geven we je de sleutel om de SpellNumber-macro te ontsluiten, een krachtige tool die je numerieke gegevens verheft tot een welsprekende symfonie van woorden. Navigeer door praktische voorbeelden die de weg naar meesterschap verlichten, en zie hoe je gegevens voor je ogen transformeren, geleid door het meesterschap van deze opmerkelijke macro.
Voorbeeld: Numerieke gegevens transformeren naar woorden
Stap 1. Open je Excel-werkblad met de numerieke gegevens die je wilt transformeren.
Stap 2. Selecteer een nabijgelegen kolom. Laten we kolom B gebruiken voor de getransformeerde woorden.
Stap 3. Typ =SpellNumber(A1) in de eerste cel van kolom B.

Stap 4. Druk op Enter en zie hoe het getal in cel A1 elegant verandert in woorden in cel B1.
Stap 5. Om meer getallen te transformeren, sleep je de formule naar beneden en laat je de SpellNumber-macro zijn magie doen.

Mijn ervaring met het gebruik van de SpellNumber-macro:
Het uitproberen van de SpellNumber-macro bood een fris perspectief doordat getallen veranderden in woorden, wat een originele toets aan mijn gegevens gaf. Het proces was eenvoudig en toonde het potentieel om communicatie te verbeteren. Een waarschuwing is echter op zijn plaats: precisie is belangrijk. Een kleine misstap kan leiden tot onverwachte resultaten. Bekendheid met de macro en zorgvuldige controle van de invoer zijn essentieel voor een naadloze ervaring.
Deel 2: Hoe je getallen naar woorden omzet in Excel zonder VBA
Het navigeren door het complexe landschap van VBA kan ontmoedigend lijken, maar wees gerust—er bestaat een eenvoudigere route om de betoverende prestatie te leveren en getallen om te zetten in woorden. Deze alternatieve aanpak, waarbij gebruik wordt gemaakt van een door de gebruiker gedefinieerde functie, biedt een gestroomlijnde methode die dezelfde aantrekkelijke transformatie behoudt. Door in de volgende stappen te duiken, onthullen we deze innovatieve techniek, waarmee je je gegevens naadloos kunt doordrenken met de lyrische charme van woorden, terwijl je de complexiteit van VBA vermijdt.
Voordelen van het gebruik van de SpellNumber-macro:
1. Gebruiksgemak: De functie biedt eenvoud. Er is geen kennis van VBA vereist, waardoor deze toegankelijk is voor een breder publiek.
2. Universele toegankelijkheid: In tegenstelling tot macro's die in elke werkmap moeten worden geïntegreerd, reist de functie mee met het werkblad, wat naadloos delen garandeert.
3. Geen macrowaarschuwingen: Zeg vaarwel tegen vervelende macrowaarschuwingen wanneer je je werkmappen deelt. De functie werkt op de achtergrond en transformeert getallen elegant in woorden.
Nadelen van het gebruik van een macro voor SpellNumber in Excel:
1. VBA-kennis vereist: Macro's vereisen VBA-vaardigheden voor aanpassingen, wat een beperking kan zijn voor degenen die niet bekend zijn met programmeren.
2. Werkmap-specifiek: Macro's moeten worden gekopieerd of in elke werkmap worden ingebouwd, wat zorgt voor extra complexiteit en onderhoud.
3. Macrowaarschuwingen: Het delen van een werkmap met macro's kan waarschuwingen activeren, wat mogelijk veiligheidszorgen oproept.
Laten we nu de schilderachtige route nemen en het meesterschap van deze methode (het gebruik van combinaties van beschikbare formules in Excel) bewonderen via een praktisch voorbeeld.
Hoe je getallen naar woorden omzet in Excel zonder VBA
Voorbeeld: Getallen transformeren naar woorden met een formule
Stap 1. Open je Excel-werkblad met de numerieke gegevens die je wilt transformeren.

Stap 2. Selecteer een kolom naast de getallen. Laten we kolom B gebruiken voor de getransformeerde woorden.
Stap 3. Typ in de eerste cel van kolom B de volgende formule:
=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")&" ",""))))))) |
|---|
Stap 4. Druk op Enter en zie hoe het getal in cel A2 gracieus verandert in woorden in cel B2.

Stap 5. Om extra getallen te transformeren, sleep je de formule naar beneden en onthul je de magische metamorfose.

Mijn ervaring met het gebruik van de door de gebruiker gedefinieerde functie:
Tijdens het verkennen van door de gebruiker gedefinieerde functies waardeerde ik de eenvoud die ze brachten—geen ingewikkelde VBA-code of complexe instellingen. Gewoon een simpele formule om getallen in woorden te veranderen, wat een unieke toets aan Excel geeft. Toch een kleine waarschuwing: het goed begrijpen van de functie is essentieel. Test het in verschillende scenario's om de nauwkeurigheid te garanderen. Dit praktische inzicht onderstreept de waarde van de functie, terwijl het tegelijkertijd het belang benadrukt van zorgvuldig gebruik voor de beste resultaten.
Deel 3: Waarom kiezen voor WPS Office?

Het is belangrijk op te merken dat de methoden die we tot nu toe hebben verkend niet alleen van toepassing zijn op Microsoft Excel, maar ook op WPS Office Spreadsheet. We nodigen je echter uit om de specifieke voordelen te ontdekken die WPS Office te bieden heeft. Hier is waarom we je aanraden om WPS Office te overwegen voor je transformerende Excel-taken:
1. Prijs: WPS Office biedt een betaalbaar alternatief zonder in te leveren op functies, waardoor het een kosteneffectieve keuze is voor zowel persoonlijk als professioneel gebruik.
2. Compatibiliteit: Wissel naadloos documenten uit tussen WPS Office en Microsoft Office, wat zorgt voor vlotte samenwerking en het delen van documenten.
3. Functies: WPS Office beschikt over een uitgebreid pakket aan functies die kunnen concurreren met de industriestandaard en waarmee je moeiteloos diverse taken kunt voltooien. Het heeft ook AI-functies zoals de AI-schrijver en de AI-documentvertaler.
4. Gebruiksvriendelijke interface: Navigeren in WPS Office is een fluitje van een cent, zelfs voor beginners. De intuïtieve interface zorgt voor een soepele leercurve en een efficiënte workflow.
5. Ontdek verborgen parels: Duik in het WPS-blog om verborgen parels te ontdekken die je vaardigheden zullen versterken. Van geavanceerde technieken tot innovatieve oplossingen, elke tutorial is een stap richting meesterschap.
6. Snelle bestandsconversie: Om je werkefficiëntie te verbeteren, kan WPS Office ook snel Excel naar PDF converteren.
7. AI-gestuurde productiviteitsboost: WPS AI geeft je dagelijkse taken een supercharge—van het omzetten van getallen naar woorden in Excel met een eenvoudige prompt tot het automatisch genereren van formules, het samenvatten van documenten en het in realtime vertalen van tekst.
Deel 4: Hoe je getallen naar woorden omzet in Excel met WPS AI
Voortbouwend op de methoden zonder VBA die we zojuist hebben verkend, biedt WPS AI een nog intuïtievere manier om getallen naar woorden om te zetten—zonder dat je handmatig formules hoeft op te bouwen. Deze AI-gestuurde aanpak stroomlijnt het proces verder, waardoor het toegankelijk is voor gebruikers van elk niveau.
Stap 1. Begin in een lege cel met het typen van =WPSAI en dubbelklik op de functie WPSAI in het vervolgkeuzemenu.

Stap 2. Verwijs binnen de haakjes van de functie naar de cel die het gewenste getal bevat en voeg vervolgens de prompt toe.

Stap 3. Druk op Enter, waarna de AI direct het woorequivalent van het getal in die cel zal genereren.

Stap 4. Sleep de vulgreep naar beneden vanaf de eerste geconverteerde cel om dezelfde AI-conversie toe te passen op alle resterende getallen in je kolom.


De getallen in de geselecteerde cellen worden omgezet in tekst.
In tegenstelling tot statische formules zonder VBA die gebonden zijn aan één specifieke conversieregel, kan de AI prompts in natuurlijke taal begrijpen—dus als ik ooit naar een andere stijl moet overschakelen, pas ik gewoon de prompt aan in plaats van een formule opnieuw op te bouwen. Het neemt ook de noodzaak weg om complexe syntaxis te onthouden of problemen met geneste functies op te lossen; de AI doet het zware werk, zodat ik me kan concentreren op mijn gegevens in plaats van op de technische details. Nadat de statistieken zijn voltooid, kun je ook de conversiefunctie van WPS Office gebruiken, inclusief Excel naar PDF.
Veelgestelde vragen over het omzetten van getallen naar woorden in Excel
Kan ik woorden ook omgekeerd naar getallen omzetten?
Absoluut! Het omkeren van de conversie, van woorden naar getallen, is inderdaad mogelijk in WPS Office door middel van VBA-code. Hoewel de focus van deze discussie lag op het transformeren van getallen naar woorden, is het belangrijk om op te merken dat WPS Office veelzijdige tools biedt om beide richtingen van conversie af te handelen.
Kan ik getallen met één klik naar woorden omzetten?
Zeker, het omzetten van getallen naar woorden met slechts één klik is een fluitje van een cent dankzij de opmerkelijke mogelijkheden van WPS Office (met behulp van VBA of combinaties van beschikbare formules). Dit gestroomlijnde proces vereenvoudigt je taken en bespaart je waardevolle tijd en moeite.
Wat is VBA en hoe kan ik het snel leren?
VBA is een programmeertaal van Microsoft die wordt gebruikt om taken te automatiseren en aangepaste oplossingen te creëren in Office-toepassingen zoals Excel, Word en PowerPoint.
Snel VBA leren:
Basisprincipes: Begrijp programmeerconcepten zoals variabelen en loops.
VBA-editor: Open deze in Office-apps om code te schrijven.
Voorbeelden: Bestudeer eenvoudige codevoorbeelden.
Macro's opnemen: Leer door acties op te nemen.
Online bronnen: Gebruik tutorials en cursussen.
Oefenen: Codeer regelmatig kleine projecten.
Documentatie: Verken de VBA-documentatie van Microsoft.
Community's: Neem deel aan online forums.
Bouwen: Maak je eigen macro's voor echte taken.
Fouten opsporen (Debugging): Leer codeerfouten oplossen.
Nieuwsgierigheid: Blijf ontdekken en experimenteren.
Het beheersen van VBA verhoogt de productiviteit en biedt oplossingen op maat.
Wat moet ik doen als het bestand beschadigd raakt tijdens het conversieproces?
Over het algemeen treden er geen problemen op met bestandsbeschadiging. Mocht dit toch gebeuren tijdens het conversieproces, maak je dan geen zorgen—je kunt de WPS File Repair Tool gebruiken om je Excel-bestand te herstellen.
Samenvatting
In deze gids hebben we verschillende manieren verkend om getallen naar woorden om te zetten in Excel, met de nadruk op zowel VBA-macro's als door de gebruiker gedefinieerde functies. We hebben duidelijke stapsgewijze instructies en voorbeelden gegeven voor elke methode. Door de voordelen van WPS Office te benadrukken, wezen we op de compatibiliteit met Excel, gebruiksvriendelijke functies en betaalbaarheid, plus de krachtige WPS AI die de conversie van getallen naar woorden vereenvoudigt met één snelle prompt. WPS biedt je ook een XLSX-viewer om je te helpen Excel-bestanden direct te openen en te bekijken. Of je nu kiest voor VBA of door de gebruiker gedefinieerde functies, deze gids bereidt je voor om de conversie van getallen naar woorden naadloos te voltooien, terwijl je de voordelen van het gebruik van WPS Office voor geavanceerde kantoortaken erkent.





