Ο Russell έχει μια στήλη εσωτερικών διευθύνσεων IP και θέλει να τις ταξινομήσει. Το πρόβλημα είναι ότι το .100. οι διευθύνσεις έρχονται πριν από το .22. διευθύνσεις.
Εάν ο Russell προσθέσει μια νέα, προσωρινή στήλη που θα χρησιμοποιηθεί για ταξινόμηση, μπορεί να χρησιμοποιήσει αυτήν τη νέα προσαρμοσμένη συνάρτηση IPForSort (). Αυτός ο κωδικός πρέπει να επικολληθεί σε μια ενότητα κώδικα στο βιβλίο εργασίας.
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
