Russell ma kolumnę wewnętrznych adresów IP i chce je posortować. Problem w tym, że .100. adresy pojawią się przed .22. adresy.
Jeśli Russell doda nową, tymczasową kolumnę do sortowania, będzie mógł użyć tej nowej niestandardowej funkcji IPForSort (). Ten kod należy wkleić do modułu kodu w skoroszycie.
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
