السلام عليكم
ترتيب المراكز العشر الاوائل حسب المجموع والعمر
ادخل معطياتك بداية الكود
'==================================================
' من نطاق البيانات
'==================================================
'''''''' اسم النطاق او عنوانه مع اسم الورقة
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