Hvordan omvendt domænenavn ved notation i Excel?
Nogle gange kan du støde på et job med at vende domænenavnet ved notation som vist nedenstående skærmbillede. Har du nogle tricks til hurtigt at løse det? I denne artikel introducerer jeg to metoder til hurtigt at håndtere det.
Omvendt domænenavn ved notation med VBA
Omvendt streng ved en separator med omvendt tekstrækkefølge
Omvendt domænenavn ved notation med VBA
Her er en makro kode, der kan hjælpe dig, gør som følger i Excel:
1. Trykke Alt + F11 for at aktivere Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler, kopier og indsæt koden i det tomme script.
VBA: Vend domænenavn efter notation
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. Trykke F5 tast, vises en dialogboks for at minde dig om at vælge et område, der skal fungere.
4. klik OK.
Omvendt streng ved en separator med omvendt tekstrækkefølge
Hvis du har Kutools til Excel, kan funktionen Omvendt tekstrækkefølge hjælpe dig med at vende en streng efter behov.
Kutools til Excel, med mere end 120 praktiske funktioner, der gør dine job lettere. | ||
Efter installation Kutools til Excel, gør venligst som nedenfor: (Gratis download Kutools til Excel nu!)
1. Vælg den streng, du bruger, klik Kutools > tekst > Omvendt tekstrækkefølge.
2. i Omvendt tekst dialogboks, vælg en mulighed, du skal vende tekst baseret på.
3. klik Ok, og tekststrengene er blevet omvendt.
Demo
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!