السلام عليكم
كان عندى استفسار بسيط لو امكن وجود هذه الميزه بالاكواد فى الليست بوكس.
عندى صفحة عمل فيها كمية كبيرة من اسماء العملاء وبعض التقارير وايضا بها كمية كبيرة من المعادلات .
وعندى عدد من الليست بوكس كل واحد له مهمه فى عرض محتويات هذه الصفحة .
يقوم بعرض العملاء والمديونية اللى عليهم فقط.
المطلوب هو عند عرض المديونية هل من الممكن اضافة زر آخر يقوم بترتيب هذه المديونية على الليست بوكس من الاكبر الى الاصغر .
دون التغيير فى صفحة العمل ....؟!
على العموم دا ملف توضيحى بسيط لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
كان عندى استفسار بسيط لو امكن وجود هذه الميزه بالاكواد فى الليست بوكس.
عندى صفحة عمل فيها كمية كبيرة من اسماء العملاء وبعض التقارير وايضا بها كمية كبيرة من المعادلات .
وعندى عدد من الليست بوكس كل واحد له مهمه فى عرض محتويات هذه الصفحة .
عنوان مخالف .... تم تعديل عنوان المشاركة ليعبر عن طلبك
فمثلا هذا الليست 
المطلوب هو عند عرض المديونية هل من الممكن اضافة زر آخر يقوم بترتيب هذه المديونية على الليست بوكس من الاكبر الى الاصغر .
دون التغيير فى صفحة العمل ....؟!
على العموم دا ملف توضيحى بسيط لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
Arrange the data on the list box from largest to smallest
أفضل إجابة مقدمة من
salim
وهي:
الكود المطلوب
الملف مرفق
عرض الإجابة
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
الملف مرفق
أعجبني أعجبك هذاإلغ اعجابي 1 أثارت هذه المشاركة إعجاب: salim،