أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على ali mohamed ali-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة منع ادخال البيانات بعدة شروط اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





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

السلام عليكم كان عندى استفسار بسيط لو امكن وجود هذه الميزه بالاكواد فى الليست بوكس. عندى صفحة عمل فيها كمية كبيرة من اس ..


موضوع مغلق


02-12-2020 09:34 صباحا
عبدالرحمن صبحى
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-10-2018
رقم العضوية : 8466
المشاركات : 118
الجنس : ذكر
تاريخ الميلاد : 21-4-1996
الدعوات : 3
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 165
 offline 

السلام عليكم 
كان عندى استفسار بسيط لو امكن وجود هذه الميزه بالاكواد فى الليست بوكس.
عندى صفحة عمل فيها كمية كبيرة من اسماء العملاء وبعض التقارير وايضا بها كمية كبيرة من المعادلات .
وعندى عدد من الليست بوكس كل واحد له مهمه فى عرض محتويات هذه الصفحة .
عنوان مخالف .... تم تعديل عنوان المشاركة ليعبر عن طلبك
فمثلا هذا الليست  vjHuB_لقطة الشاشة 2020-12-02 080956 يقوم بعرض العملاء والمديونية اللى عليهم فقط.
المطلوب هو عند عرض المديونية هل من الممكن اضافة زر آخر يقوم بترتيب هذه المديونية على الليست بوكس من الاكبر الى الاصغر .
دون التغيير فى صفحة العمل ....؟!
على العموم دا ملف توضيحى بسيط  لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
Arrange the data on the list box from largest to smallest
 
 
 
  ورقة عمل Microsoft Excel جديد.xlsb   تحميل xlsb مرات التحميل :(7)
الحجم :(20.7) KB



أفضل إجابة مقدمة من 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

الملف مرفق
عرض الإجابة




02-12-2020 01:59 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif ترتيب البيانات على الليست بوكس من الاكبر الى الاصغر
الكود المطلوب

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

الملف مرفق
 
 
  Sobhi.xlsm   تحميل xlsm مرات التحميل :(10)
الحجم :(31.759) KB


06-12-2020 09:26 صباحا
مشاهدة مشاركة منفردة [2]
عبدالرحمن صبحى
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-10-2018
رقم العضوية : 8466
المشاركات : 118
الجنس : ذكر
تاريخ الميلاد : 21-4-1996
الدعوات : 3
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 165
 offline 
look/images/icons/i1.gif ترتيب البيانات على الليست بوكس من الاكبر الى الاصغر
جزاك الله خيرا اخى سليم 

طلب اخير هل من الممكن شرح الكود ليسهل تطويعة لأنى من يومها وانا مش عااارف اشغله على ملف العمل اللى عندى بسبب اختلاف الاعمده بين الملف التست وملف العمل اللى عندى .
وشكرا 



الكلمات الدلالية
سؤال ، الليست ، بوكس ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:34 صباحا