Russell har en kolumn med interna IP-adresser och han vill sortera dem. Problemet är att .100. adresser kommer före .22. adresser.
Om Russell lägger till en ny, tillfällig kolumn som ska användas för sortering kan han använda den här nya anpassade funktionen IPForSort (). Den här koden ska klistras in i en kodmodul i arbetsboken.
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
