Hoe keert u een domeinnaam om naar de juiste notatie in Excel?
Soms krijgt u de opdracht om een domeinnaam om te keren volgens de notatie zoals in de onderstaande afbeelding is weergegeven. Kent u een handigheidje om dit snel op te lossen? In dit artikel introduceer ik twee methoden om dit vlot aan te pakken.
 |  |  |
Domeinnaam omkeren met notatie via VBA
Tekenreeks omkeren met een scheidingsteken met Tekst omkeren 
Domeinnaam omkeren met notatie via VBA
Hier is een macrocode die u kan helpen. Volg deze stappen in Excel:
1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en kopieer de code naar het lege scriptvenster.
VBA: Domeinnaam omkeren met notatie
Sub Reverse()
'UpdatebyExtendoffice2017115
Dim xArr() As String
Dim xSplitStr As String
Dim xVal As String
Dim xRg As Range
Dim xCell As Range
Dim xIndex As Long
On Error Resume Next
Set xRg = Application.InputBox("Select cells:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xSplitStr = "."
For Each xCell In xRg
If InStr(xCell.Value, xSplitStr) = 0 Then GoTo xBreak
xVal = ""
xArr = Split(xCell.Value, xSplitStr)
xIndex = UBound(xArr)
xVal = xArr(xIndex)
Do
xIndex = xIndex - 1
xVal = xVal & xSplitStr & xArr(xIndex)
Loop While xIndex > 0
xCell.Value = xVal
xBreak:
Next
Application.ScreenUpdating = True
End Sub
3. Druk op F5, waarna een dialoogvenster verschijnt waarin u wordt gevraagd een bereik te selecteren om mee te werken.
4. Klik op OK.
Tekenreeks omkeren met een scheidingsteken met Tekst omkeren
Als u Kutools voor Excel hebt, helpt de functie Tekst omkeren u bij het omkeren van een tekstreeks precies zoals u dat wilt.
Na installatie van Kutools voor Excel, gaat u als volgt te werk:（Gratis downloaden Kutools voor Excel nu!)
1. Selecteer de tekenreeks die u wilt gebruiken en klik op Kutools > Tekst > Tekst omkeren.
2. In het dialoogvenster Tekst omkeren selecteert u de optie die u nodig heeft als basis voor Tekst omkeren.
3. Klik op Ok en de tekenreeksen worden omgekeerd.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins