مساعده في عملية البحث معكوسة

Function Reverse2DArray(ByVal arr)

    Dim tmp, a As Long, b As Long, i As Long, j As Long

    a = UBound(arr): b = LBound(arr)

    For i = 0 To ((a - b) \ 2)

        For j = LBound(arr, 2) To UBound(arr, 2)

            tmp = arr(i + 1, j)

            arr(i + 1, j) = arr(a, j)

            arr(a, j) = tmp

        Next j

        a = a - 1

    Next i

    Reverse2DArray = arr

End Function

If ii Then

    MyAr = Reverse2DArray(MyAr)

    Me.ListFind.Column = MyAr: Me.ListFind.ListIndex = 0

End If