Russell har en kolonne med interne IP-adresser, og han vil sortere dem. Problemet er, at .100. adresser kommer inden .22. adresser.
Hvis Russell tilføjer en ny, midlertidig kolonne, der skal bruges til sortering, kan han bruge denne nye brugerdefinerede funktion IPForSort (). Denne kode skal indsættes i et kodemodul i projektmappen.
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
