الأستاذ / محمد الدسوقى قام بنشر يونيو 16, 2016 قام بنشر يونيو 16, 2016 الأخوة الأفاضل عشاق الإكسيل ... كل عام وأنتم بخير ... أرجو منكم المساعدة فى استخراج أوائل الصف الدراسى بناء على عدة شروط وهى كالتالى : 1) الأكبر مجموعا 2) فى حالة تساوى المجموع فيكون الأصغر سنا 3) فى حالة تساوى المجموع والسن فيكون الترتيب الأبجدى .. ولكم جزيل الشكر ...... ( خيركم من تعلم العلم وعلمه ) مرفق ملف يوضح المشكلة فرجاء الحل سريعا استخراج الأوائل.rar
ابو عبدالبارى قام بنشر يونيو 16, 2016 قام بنشر يونيو 16, 2016 اخى الأستاذ / محمد الدسوقى ارجو ان يفى الملف التالى بالغرض abo_abary_حساب الفترة بين تاريخين.rar
الأستاذ / محمد الدسوقى قام بنشر يونيو 17, 2016 الكاتب قام بنشر يونيو 17, 2016 أخى الفاضل / الأستاذ أبو عبد البارى شكرا لتفضلك بمتابعة الموضوع ولكن ذلك ليس المطلوب من الملف المطلوب هو استخراج العشرة الأوائل على مستوى المدرسة فى الصف الدراسى وجزاكم الله خيرًا
ابو عبدالبارى قام بنشر يونيو 17, 2016 قام بنشر يونيو 17, 2016 9 ساعات مضت, الأستاذ / محمد الدسوقى said: أخى الفاضل / الأستاذ أبو عبد البارى شكرا لتفضلك بمتابعة الموضوع ولكن ذلك ليس المطلوب من الملف المطلوب هو استخراج العشرة الأوائل على مستوى المدرسة فى الصف الدراسى وجزاكم الله خيرًا الأخ الكريم الأستاذ / محمد الدسوقى عذرا لأرفاق ملف خطأ وهذا هو الملف المطلوب abo_abary_استخراج الأوائل.rar 2
asdhamdey قام بنشر يونيو 18, 2016 قام بنشر يونيو 18, 2016 Sub mh1() Application.GoTo Reference:="mh" Selection.Sort Key1:=Range("q9"), Order1:=xlDescending, Key2:=Range( _ "t9"), Order2:=xlDescending, Key3:=Range("p9"), Order3:=xlAscending, _ Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _ xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _ DataOption3:=xlSortNormal Range("a1").Select End Sub ربنا يجزيك خيرا استاذ ابو عبد الباري 16 ساعات مضت, ابو عبدالبارى said: abo_abary_استخراج الأوائل.rar هل يمكن الاتيان بالعشره الاوائل في المواد ايضا
ابو عبدالبارى قام بنشر يونيو 18, 2016 قام بنشر يونيو 18, 2016 7 ساعات مضت, asdhamdey said: Sub mh1() Application.GoTo Reference:="mh" Selection.Sort Key1:=Range("q9"), Order1:=xlDescending, Key2:=Range( _ "t9"), Order2:=xlDescending, Key3:=Range("p9"), Order3:=xlAscending, _ Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _ xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _ DataOption3:=xlSortNormal Range("a1").Select End Sub ربنا يجزيك خيرا استاذ ابو عبد الباري هل يمكن الاتيان بالعشره الاوائل في المواد ايضا جرب الملف التالى لعلة يفى بالغرض abo_abary_ استخراج الأوائل بالمواد.rar 1
asdhamdey قام بنشر يونيو 18, 2016 قام بنشر يونيو 18, 2016 استاذ ابو عبد الباري انت بحق متميز في حلولك التي تمتاز بجمال الرونق ودقه الحل مع السهوله جزاك الله خيرا 1
ابو عبدالبارى قام بنشر يونيو 19, 2016 قام بنشر يونيو 19, 2016 اخى الكريم asdhamdey منذ ساعه, asdhamdey said: استاذ ابو عبد الباري انت بحق متميز في حلولك التي تمتاز بجمال الرونق ودقه الحل مع السهوله جزاك الله خيرا مشكور لكلماتك الجميلة وبارك الله لنا فيك فى كل الأخوة فى هذا الصرح الشامخ 1
الأستاذ / محمد الدسوقى قام بنشر يونيو 19, 2016 الكاتب قام بنشر يونيو 19, 2016 أخى الفاضل / الأستاذ أبو عبد البارى تعجز الكلمات عن شكرك فى سرعة الاجابة وحل المشكلة وجعله الله فى ميزان حسانتك و جزاك الله خيرا هل هناك معادلات بدلا من الكود لأنه لا يعمل فى الورقة المحمية بكلمة مرور وإذ تفضلتم لى طلب أخير بشأن هذا الملف وهو ............ على فرض أن الخمسة طلاب الأوائل كانوا كالتالى ( الأول ـ الأول مكرر ـ الأول مكرر ، ... ، ... ، .. ) فيكون الطالب التالى فى الترتيب هو ( المركز السادس ) وهذا من وجهة نظرى المتواضعة حرام فيجب أن يكون ترتيبه ( الثانى ) وليس ( السادس ) هذا والله أعلم فهلا تفضلتم برأيكم ورأى الأعضاء الكرام بالمنتدى 1
ابو عبدالبارى قام بنشر يونيو 20, 2016 قام بنشر يونيو 20, 2016 اخى الكريم الأستاذ / محمد الدسوقى يمكن حماية الملف بالأكواد ثم فك الحماية قبل تنغيذ الكود وحماية الملف بعد تنفيذ الكود كما بالملف المرفق abo_abary_ استخراج الأوائل بالمواد.rar
asdhamdey قام بنشر يونيو 20, 2016 قام بنشر يونيو 20, 2016 Sub mh1() Application.GoTo Reference:="mh" Selection.Sort Key1:=Range("al9"), Order1:=xlDescending, Key2:=Range( _ "ao9"), Order2:=xlDescending, Key3:=Range("ak9"), Order3:=xlAscending, _ Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _ xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _ DataOption3:=xlSortNormal Range("a1").Select End Sub الاستاذ المحترم ابو عبد الباري يبدو انك ارفقت نفس الملف قبل اضافه الحمايه وفكها انا من محبين اعمالك الملف المرفق هات العشره الاوائل للمجموع مش هايشتغل صح
ابو عبدالبارى قام بنشر يونيو 20, 2016 قام بنشر يونيو 20, 2016 4 ساعات مضت, asdhamdey said: Sub mh1() Application.GoTo Reference:="mh" Selection.Sort Key1:=Range("al9"), Order1:=xlDescending, Key2:=Range( _ "ao9"), Order2:=xlDescending, Key3:=Range("ak9"), Order3:=xlAscending, _ Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _ xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _ DataOption3:=xlSortNormal Range("a1").Select End Sub الاستاذ المحترم ابو عبد الباري يبدو انك ارفقت نفس الملف قبل اضافه الحمايه وفكها انا من محبين اعمالك الملف المرفق هات العشره الاوائل للمجموع مش هايشتغل صح الأخ العزيز asdhamdey الأخ العزيزالأستاذ / محمد الدسوقى عذرا بارفاقى الملف الخطأ وارجو ان يفى الملف التالى بالغرض abo_abary_استخراج الأوائل المواد.rar 1
asdhamdey قام بنشر يونيو 20, 2016 قام بنشر يونيو 20, 2016 جزاك الله كل خير عند تغيير الخليه الخاصه بالماده لايتم التغيير والصفحه محميه عند تغيير الباسوورد الموجود بالفيجوال ياتي بخط اصفر عليها
ابو عبدالبارى قام بنشر يونيو 20, 2016 قام بنشر يونيو 20, 2016 جرب الملف التالى abo_abary_استخراج الأوائل المواد.rar 1
asdhamdey قام بنشر يونيو 20, 2016 قام بنشر يونيو 20, 2016 في ١٩/٦/٢٠١٦ at 23:50, الأستاذ / محمد الدسوقى said: على فرض أن الخمسة طلاب الأوائل كانوا كالتالى ( الأول ـ الأول مكرر ـ الأول مكرر ، ... ، ... ، .. ) فيكون الطالب التالى فى الترتيب هو ( المركز السادس ) وهذا من وجهة نظرى المتواضعة حرام فيجب أن يكون ترتيبه ( الثانى ) وليس ( السادس ) 40 دقائق مضت, asdhamdey said: عند تغيير الباسوورد الموجود بالفيجوال ياتي بخط اصفر عليها من فضلك
ابو عبدالبارى قام بنشر يونيو 20, 2016 قام بنشر يونيو 20, 2016 بالنسبة لموضوع ترتيب الطلبة دى قواعد الكنترول . اما بتغيير الباس لابد أولا من فك الحماية من الملف بالباس القديم ثم اضافة الباس الجديد الى الكود 1
الأستاذ / محمد الدسوقى قام بنشر يونيو 22, 2016 الكاتب قام بنشر يونيو 22, 2016 أخى ومعلمى الأستاذ الفاضل / أبو عبد البارى كالعادة تعجز الكلمات عن التعبير عن مدى شكرى وامتنانى بفضلك علىّ زادك الله من علمه الذى تنفع به غيرك ، وجعله فى ميزان حسانتك وجزاك الله خيرا وأشكر كل الخوة الأعضاء الذين شاركوا فى إثراء هذا الموضوع
ابو عبدالبارى قام بنشر يونيو 23, 2016 قام بنشر يونيو 23, 2016 الأستاذ / محمد الدسوقى شكرا لكلماتك الرقيقة قال رسول الله صل الله علية وسلم ( من كتم علماً اتى به مكبلاً يوم القيامه)
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.