Russellilla on sarake sisäisiä IP-osoitteita ja hän haluaa lajitella ne. Ongelmana on, että .100. osoitteet ovat tulossa ennen .22. osoitteet.
Jos Russell lisää uuden, väliaikaisen sarakkeen lajittelua varten, hän voi käyttää tätä uutta mukautettua toimintoa IPForSort (). Tämä koodi tulee liittää työkirjan koodimoduuliin.
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
