نجوم المشاركات

السلام عليكم ترتيب المراكز العشر الاوائل حسب المجموع والعمر ادخل معطياتك بداية الكود '================================================== ' من نطاق البيانات '================================================== '''''''' اسم النطاق او عنوانه مع اسم الورقة Private Const MyRng As String = "RangDate" '''''''' ارقام الاعمدة من نطاق البيانات '''''''' :حسب الترتيب التالي '''''''' رقم الجلوس,الاسم,تاريخ الميلاد,الفصل '''''''' SeatNum,Name,Bridate,MyClass Private Const MyColumn As String = "1,2,4,3" '================================================== ' من ورقة الاوائل '================================================== '''''''' اول خلية لوضع لست الاوائل Private Const MyRngPast As String = "C7" '''''''' (نطاق الاعدادات (اسماء الفصول والمواد Private Const kh_Stg As String = "MySeting" '''''''' تنسيق التاريخ Private Const DateFormat As String = "yyyy/mm/dd" '================================================== '================================================== وايضا في النطاق المسمى MySeting في ورقة الاوائل اعمل تنسيقاتك في الصف الاول من جدول الاوائل وهي تنسخ اتوماتيكيا الى باقي الصفوف مع العلم ان التسلسل ايضا تلقائي المرفق اكسل 2003-2010 ترتيب المراكز العشر الاوائل حسب المجموع والعمر.rar ======================================= هذا المرفق مع بعض التحسينات وجلب المادة المختارة والفصل المختار في الخلايا الاعلى للجدول ترتيب المراكز العشر الاوائل حسب المجموع والعمر.rar ================================================ السلام عليكم جعلت مخرجات الكود يالنسبة للمادة والفصل في الخلايا K2:K3 يعني خارجة عن نطاق الطباعة علشان الواحد يعمل عناوين الجدول حسب مايريد انا عملت معادلة حسب طلبك ممكن تحولها في اي موضع تريده المرفق 2003 ترتيب المراكز العشر الاوائل حسب المجموع والعمر1.rar ============================================== تفضل المرفق 2003 ترتيب العشرة الاوائل حسب المجموع والعمر2.rar

اخواني واساتذتي الكرام الموضوع قد سبق وانطرح من قبل الاستاذ/عبدالله باقشير، ولاكن لم اسطتيع تنفيذ طلبي على الملف المطروح مسبقاً وطلبي هو ان لدي برنامج واريد في عملية الادخال يتم ادراج المدخلات في ملف اكسس بشكل تراكمي وفي حال طلب التقرير من خلال البرنامج يتم استراد البيانات من الاكسس للاكسيل ليتم عمل المعادلات واستخراج القيم المطلوبة. ارجو ان يكون قد تم شرح الطلب بصورة واضحة. ولكم جزيل الشكر والتقدير. Qulity V16.rar

وهذا حل آخر عن طريق كود فى حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Integer, x As Integer Dim sh As Worksheet Set sh = Sheets("ورقة3") LR = sh.[F10000].End(xlUp).Row If Target.Address = [G2].Address Then [E5:G1000].ClearContents x = 5 For Each cl In sh.Range("G6:G" & LR) If cl = [G2] Then Range("F" & [F10000].End(xlUp).Row + 1) = cl.Offset(0, -1) Range("E" & [E10000].End(xlUp).Row + 1) = x - 4 x = x + 1 End If Next End If Set sh = Nothing End Sub يعمل عند اختيار المادة من القائمة المنسدلة النشاط2.rar

أخى الحبيب ( ناصر ) أليك المرفق بعد تطبيق معادلتك علية هذا أولا أما ثانيا وهذا الأهم إن المعادلة الموجودة لعمل الفلترة معادلة ( صفيف ) أى بعد الإنتهاء من كتابتها داخل الخلية عيك الوقوف فى نهايتها والضغط على ( ctrl+shift+enter ) معا لكى تخقق المعادلة العمل بشكل سليم ثالثا - بعد كتابة المعادلة فى الخلية الأولى للعمود النراد فلترتة علم على المدى الذى ستظهر به النتيجة ( العمود المراد فلترتة ) ثم قف على نهاية المعدلة الأولى أو الموجودة فى الخلية الأولى ثم إضغط ( ctrl+shift+enter ) سيظهر لك المدى المفلتر قائمة مفلترة من عمود واحد وبدون فراغات.rar

السلام عليكم كريم في عطائك وكريم في ردودك جزاك ربي خيرا وبارك فيك تقبل تحياتي وشكري

ألف شكر أستاذ

السلام عليكم اخي العزيز / أبو محمد أشرف بارك الله فيك والله لا تعلم مدي سعادتي بردك هذا فوالله احبك في الله واحب كل اساتذة واعضاء هذا الصرح العملاق في الله لك مني اجمل تحيه جزاك الله خيرا

السلام عليكم بعد اذن اخي الحسامي اعتقد انه هو البرنامج الذي كان في هذه المشاركه تفضل المرفق 2003 و 2007 شجرة الحسابات-عماد الحسامي_2003.rar شجرة الحسابات-عماد الحسامي_2007.rar

السلام عليكم ماشاء الله . حلول كلها ممتازة بارك الله فيكم اضافة لاساتذتنا حل بالمرفق اراه جديد من غير اكواد اظهار اليوم.rar

الاسم : محمد طاهر سنة الميلاد : 1968 م المهنة : مهندس مدني و أعمل فى مجال إدارة المشاريع الهندسية التعليم : بكارولويس هندسة مدنية 1991 - هندسة القاهرة ماجيستير إدارة مشروعات 1998 - هندسة القاهرة PMP 2008 RMP 2012 MVP 2010-2013 الحالة الاجتماعية : متزوج و رزقني الله ب 4 أطفال بلد الجنسية / بلد الاقامة : مصر / الامارات أقسام الاهتمام فى المنتدي : كل الأقسام - و بالذات الأكسيس و الإكسيل معلومات أخري : أحب الأكسس و أنشأت تطبيقات مختلفة له ، و أيضا أحب جدا الاكسيل و استخدام ال vba به . تتركز خبرتي فى مجال ادارة المشاريع عموما و مشاريع التشييد بصفة خاصة، و لدى خبرة عملية فى هذا المجال من حيث التطبيق و التدريب. أجيد إستخدام برامج ادارة المشروعات بالاضافة الي بعض البرامج الهندسبة و أستخدم بعض برامج الرسم و الجرافيك بصورة متوسطة. و لدي دراية بسيطة بتصميم الويب و لغاته . خبرتي فى المنتديات : عضو شرف و مشرف قسمي الأكسس و الأوفيس ( سابقا ) و مراقب سابق فى الفريق العربي للبرمجة و إفتتحت هذا الموقع رسميا فى فى الثاني من جمادي الأولي 1424 هـ الموافق أول يوليو 2003 مـ