ترتيب البيانات على الليست بوكس من الاكبر الى الاصغر

Private Sub Big_To_Smaal_Click()

  Rem Created By Salim On 2/12/2020

  Rem Sort List For ListBox

Dim Ro%, i%, S#

Dim Sh As Worksheet

Dim Lst As Object

Set Sh = Sheets("ورقة1")

Me.ListBox1.Clear

Dim arr

Set Lst = CreateObject("System.Collections.SortedList")

Ro = Sh.Cells(Rows.Count, 4).End(3).Row

 For i = 2 To Ro

 Lst.Add Sh.Cells(i, 4).Value - (1 / (Cells(i, 4).Row * 1000)), i - 1

 Next

 ReDim arr(Lst.Count - 1, 1)

 For i = 0 To Lst.Count - 1

  arr(i, 0) = Int(Lst.GetKey(Lst.Count - 1 - i)) + 1

  arr(i, 1) = Lst.GetByIndex(Lst.Count - 1 - i)

 Next

With Me.ListBox1

For i = LBound(arr, 1) To UBound(arr, 1)

  .AddItem

  .List(.ListCount - 1, 0) = i + 1

  .List(.ListCount - 1, 1) = Sh.Cells(arr(i, 1) + 1, 3)

  .List(.ListCount - 1, 2) = arr(i, 0)

   S = S + Val(arr(i, 0))

  Next

  .AddItem

  .List(.ListCount - 1, 0) = "============="

  .List(.ListCount - 1, 1) = "============="

  .List(.ListCount - 1, 2) = "============="

  

  .AddItem

  .List(.ListCount - 1, 0) = ""

  .List(.ListCount - 1, 1) = "Sum Off ALL"

  .List(.ListCount - 1, 2) = Format(S, "###,###,###.00")

 End With

End Sub