Russellnek van egy belső IP-címmel rendelkező oszlopa, amelyet rendezni akar. A probléma az, hogy a .100. címek a .22 előtt jönnek. címek.
Ha Russell új, ideiglenes oszlopot ad hozzá a rendezéshez, használhatja ezt az új, IPForSort () függvényt. Ezt a kódot be kell illeszteni a munkafüzet kódmoduljába.
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
