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



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






موضوع مغلق


  • تمت الإجابة
02-12-2020 09:34 صباحاً
معلومات الكاتب ▼
تاريخ الإنضمام : 24-10-2018
رقم العضوية : 8466
المشاركات : 118
الجنس :
تاريخ الميلاد : 21-4-1996
الدعوات : 3
قوة السمعة : 165
الاعجاب : 0
السلام عليكم
كان عندى استفسار بسيط لو امكن وجود هذه الميزه بالاكواد فى الليست بوكس.
عندى صفحة عمل فيها كمية كبيرة من اسماء العملاء وبعض التقارير وايضا بها كمية كبيرة من المعادلات .
وعندى عدد من الليست بوكس كل واحد له مهمه فى عرض محتويات هذه الصفحة .
عنوان مخالف .... تم تعديل عنوان المشاركة ليعبر عن طلبك فمثلا هذا الليست vjHuB_لقطة الشاشة 2020-12-02 080956 يقوم بعرض العملاء والمديونية اللى عليهم فقط.
المطلوب هو عند عرض المديونية هل من الممكن اضافة زر آخر يقوم بترتيب هذه المديونية على الليست بوكس من الاكبر الى الاصغر .
دون التغيير فى صفحة العمل ....؟!
على العموم دا ملف توضيحى بسيط ورقة عمل Microsoft Excel جديد.xlsb



Arrange the data on the list box from largest to smallest
 
 
  ورقة عمل Microsoft Excel جديد.xlsb   تحميل xlsb مرات التحميل :(5)
الحجم :(20.7) KB


أثارت هذه المشاركة إعجاب: salim،



look/images/icons/i1.gif ترتيب البيانات على الليست بوكس من الاكبر الى الاصغر
  02-12-2020 01:59 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس :
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 6611
الاعجاب : 2
الكود المطلوب
CODE

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 مرات التحميل :(8)
الحجم :(31.759) KB


أثارت هذه المشاركة إعجاب: ali mohamed ali، عبدالرحمن صبحى، hassona229، YasserKhalil،



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

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

أثارت هذه المشاركة إعجاب: YasserKhalil،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كود بحث مطاطي بأي جزء من البيانات علي بطيخ سالم
11 1839 star
تموذج ترحيل وبحث وتعديل على البيانات مالك ماريه
147 12016 sharawee707
ترحيل بيانات من خلايا مختلفه من ملفات الى ملف واحد مع كتابة الملاحظات التى تخص ترحيل البيانات Lotfy
7 234 YasserKhalil
مشكلة كود حفظ تعديل البيانات في اليوزرفورم شبل
1 369 شبل
دوره متكامله في الأكسس من خلال مشروع عملي شرح و تحليل قاعدة البيانات بكار للأبد
33 6414 YasserKhalil

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








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

الساعة الآن 04:59 PM.