Russell har en kolonne med interne IP-adresser, og han vil sortere dem. Problemet er at .100. adressene kommer før .22. adresser.
Hvis Russell legger til en ny, midlertidig kolonne som skal brukes til sortering, kan han bruke denne nye tilpassede funksjonen IPForSort (). Denne koden skal limes inn i en kodemodul i arbeidsboken.
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
