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 Office-productiviteitstools
Versterk 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 krijgen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in
- 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!