Hoe een getal opmaken als rangtelwoord (1e, 2e, 3e) in Excel?
In sommige gevallen moeten we getallen opmaken als 1e, 2e, 3e, enz., zoals te zien is in de onderstaande schermafbeelding. Weet u echter hoe u deze hoofdtelwoorden kunt opmaken als rangtelwoorden in Excel? Over het algemeen is er geen ingebouwde functie om een getal om te zetten naar 1e in Excel, maar hier kan ik u enkele trucs voor dit probleem introduceren.
Getal opmaken als rangtelwoord met VBA
Getal opmaken als rangtelwoord met Kutools voor Excel 
Getal opmaken als rangtelwoord met VBA
Om een getal op te maken als rangtelwoord, kan de volgende macrocode u helpen.
1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module, en plak de onderstaande VBA-code in het Module-script. Zie schermafbeelding:
VBA: Getal opmaken als rangtelwoord
Function Addth(pNumber As String) As String
'UpdatebyExtendoffice20160628
Select Case CLng(VBA.Right(pNumber, 1))
Case 1
Addth = pNumber & "st"
Case 2
Addth = pNumber & "nd"
Case 3
Addth = pNumber & "rd"
Case Else
Addth = pNumber & "th"
End Select
Select Case VBA.CLng(VBA.Right(pNumber, 2))
Case 11, 12, 13
Addth = pNumber & "th"
End Select
End Function
3. Selecteer vervolgens een lege cel naast het getal dat u wilt opmaken als rangtelwoord, bijvoorbeeld C2, en voer de volgende formule in: =Addth(B2), waarbij B2 het getal is dat u gebruikt, en druk op Enter toets, sleep vervolgens de automatisch invulgreep over de cellen waarop u deze formule wilt toepassen. Zie schermafbeelding:
Getal opmaken als rangtelwoord met Kutools voor Excel
Als u niet goed bent in het uitvoeren van macrocodes, kunt u proberen de Converteer Nummer naar Rangtelwoord-functie van Kutools voor Excel te gebruiken, die slechts één klik nodig heeft om de taak uit te voeren.
Na het gratis installeren van Kutools voor Excel, doe dan het volgende:
Selecteer de getallen die u wilt opmaken als rangtelwoord, en klik op Kutools > Tekst > Converteer Nummer naar Rangtelwoord. Zie schermafbeelding:
Converteer getal naar Rangtelwoord
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen