Hoe kun je een domeinnaam omkeren met notatie in Excel?
Soms kom je een taak tegen waarbij je de domeinnaam moet omkeren met behulp van notatie, zoals te zien is in de onderstaande schermafbeelding. Heb je handige trucs om dit snel op te lossen? In dit artikel introduceer ik twee methoden om het snel af te handelen.
 |  |  |
Domeinnaam omkeren met notatie via VBA
String omkeren met een scheidingsteken met Tekst Omkeren
Domeinnaam omkeren met notatie via VBA
Hier is een macrocode die je kan helpen. Volg de onderstaande stappen in Excel:
1. Druk op Alt + F11 toetsen om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik op Invoegen > Module, kopieer en plak de code in het lege script.
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 toets, er verschijnt een dialoogvenster dat je eraan herinnert een bereik te selecteren om mee te werken.
4. Klik op OK.
String omkeren met een scheidingsteken met Tekst Omkeren
Als je Kutools voor Excel hebt, kan de functie Tekst Omkeren je helpen een string om te keren zoals je nodig hebt.
Nadat je Kutools voor Excel hebt geïnstalleerd, doe dan het volgende: (Download nu gratis Kutools voor Excel!)
1. Selecteer de string die je gebruikt, klik op Kutools > Tekst > Tekst Omkeren.
2. In het Tekst Omkeren dialoogvenster, selecteer een optie die je nodig hebt om tekst te keren op basis van.
3. Klik op Ok, en de tekststrings zijn omgekeerd.
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