Russell heeft een kolom met interne IP-adressen en hij wil ze sorteren. Het probleem is dat de .100. adressen komen voor de .22. adressen.
Als Russell een nieuwe, tijdelijke kolom toevoegt om te gebruiken voor het sorteren, kan hij deze nieuwe aangepaste functie IPForSort () gebruiken. Deze code moet in een codemodule in de werkmap worden geplakt.
Public Function IPforSort(OrigVal) IPforSort = "" OrigVal = OrigVal & "." Bg = 1 For i = 1 To Len(OrigVal) If Mid(OrigVal, i, 1) = "." Then IPforSort = IPforSort & Format(Mid(OrigVal, Bg, i - Bg), "000") & "." Bg = i + 1 End If Next i IPforSort = Left(IPforSort, Len(IPforSort) - 1) End Function
