أبو أنس80 قام بنشر أغسطس 5, 2012 قام بنشر أغسطس 5, 2012 بسم الله الرحمن الرحيم كل عام وانتم بالف خير يا جماعة حسب ملف مرفق اريد كود لفرز طلاب حسب مستوى يعني فرز طلاب حسب ممتاز و جيد جدا و جيد حتى اخره و تحديد نسبة مستوى على مدرسة مثلا ممتاز 23% مهمل 12% مهمل جدا 11% جيد 45% هذا لعرض مستوى مدرسة امان مدير بشكل مستمر لاستجابة ولي امر و مشرف و زوار الخ تقيم و مستوى.rar
جمال عبد السميع قام بنشر أغسطس 5, 2012 قام بنشر أغسطس 5, 2012 لوحضرتك عايزها معادلات أنا تحت أمرك أما أكواد الفرز والترحيل فما أكثرها في المنتدي وقمنا بعملها كثيرا أبحث قليلا ستجد منها الكثير
يوسف عطا قام بنشر أغسطس 5, 2012 قام بنشر أغسطس 5, 2012 محمود بك أريد أن أرى كيف يمكن فعل ذلك بالمعادلات ومنك نستفيد أخونا الغالى
هاني عدلي قام بنشر أغسطس 5, 2012 قام بنشر أغسطس 5, 2012 (معدل) أخي / shakhawan جرب المرفقات :fff: :fff: كل عام و أنتم بخير رمضان كريم تقيم و مستوى.rar تم تعديل أغسطس 5, 2012 بواسطه أ / هاني عدلي
جمال عبد السميع قام بنشر أغسطس 5, 2012 قام بنشر أغسطس 5, 2012 أستاذي ( يوسف عطا ) هذا الطلب من عملاق مثلك شرف لية بعد إذن أخي هاني شغلك فوق الممتاز وأفكارك رائعة ولكن هذا طلب أستاذ لي لاأستطيع تأخير طلبة تفضل أستاذي تقيم و مستوى.rar
هاني عدلي قام بنشر أغسطس 5, 2012 قام بنشر أغسطس 5, 2012 أخي / محمود كعادتك ..... مبدع دائماً تقبل تحياتي :yes:
جمال عبد السميع قام بنشر أغسطس 5, 2012 قام بنشر أغسطس 5, 2012 العفو أخي هاني أستفادتي منكم أكثر بكثير من إفادتي لكم فأنا أتعلم منكم ومن زملائي كل يوم شئ جديد بارك الله فيك وجعل تشجيعك هذا في ميزان حسناتك
جمال الفار قام بنشر أغسطس 5, 2012 قام بنشر أغسطس 5, 2012 السلام عليكم ورحمة الله وبركاته تحياتى للجميع وهذا حل اخر بعدما قام اخى محمود برفع الحل الذى كنت سارفعه (توارد خواطر) لاثراء الموضوع وعذار لقلة تواجدى بسبب انشغالى تحياتى اخى هانى تحياتى اخى محمود تقيم و مستوى.rar
جمال عبد السميع قام بنشر أغسطس 5, 2012 قام بنشر أغسطس 5, 2012 شرف لي أستاذي توارد حواطري مع أستاذ مثلك وإن كان حلك أجمل
رجب جاويش قام بنشر أغسطس 6, 2012 قام بنشر أغسطس 6, 2012 السلام عليكم كل الشكر والتحية لكل الأساتذة المشاركين بحلول رائعة عن طريق المعادلات وهذا حل آخر عن طريق الأكواد Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = [C2].Address Then [B5:D47].ClearContents Dim LR As Integer LR = Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row For Each cl In Sheets("sheet1").Range("C5:C" & LR) If cl = [C2] Then cl.Offset(0, -2).Resize(1, 3).Copy Range("B" & [B1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues Application.CutCopyMode = False End If Next End If End Sub تقيم و مستوى1.rar
كعبلاوى قام بنشر أغسطس 6, 2012 قام بنشر أغسطس 6, 2012 بعد التحية والشكر لأستاذنا الفاضل / رجب جاويش نرجوا من سيادتكم مشكورين تغيير D47 و تركها مفتوحة ولتكن D1000 ولكم منا جزيل الشكر والعرفان
رجب جاويش قام بنشر أغسطس 6, 2012 قام بنشر أغسطس 6, 2012 أخى الغالى / كعبلاوى اليك ما طلبت Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = [C2].Address Then [B5:D1000].ClearContents Dim LR As Integer LR = Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row For Each cl In Sheets("sheet1").Range("C5:C" & LR) If cl = [C2] Then cl.Offset(0, -2).Resize(1, 3).Copy Range("B" & [B1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues Application.CutCopyMode = False End If Next End If End Sub أما معادلة التسلسل الموجودة فى العمود A يمكنك سحبها للأسفل الى أى صف تريد تقيم و مستوى1.rar
أبو أنس80 قام بنشر أغسطس 7, 2012 الكاتب قام بنشر أغسطس 7, 2012 بسم الله الرحمن الرحيم قدم شكر و تقدير الى جميع الله طول عمركم اشكركم على مساعدتي و على جواب لكل اسئلتي
كعبلاوى قام بنشر أغسطس 8, 2012 قام بنشر أغسطس 8, 2012 كل الشكر والتقدير لاستاذنا الفاضل / رجب جاويش على الاستجابة والرد ولكن بعد اذن سيادتك الترحيل لايتم
رجب جاويش قام بنشر أغسطس 8, 2012 قام بنشر أغسطس 8, 2012 أخى الفاضل / كعبلاوى أرجو التوضيح أكثر فان الملف يعمل عندى تمام
كعبلاوى قام بنشر أغسطس 9, 2012 قام بنشر أغسطس 9, 2012 أتمنى تجربة الملف وسيتضح ان عند اختيار تقدير ممتاز تكون الاجابة هى نفسها عند إختيار جيد او ....... اى الترحيل ثابت لا يتغير تقيم و مستوى1.rar
جمال الفار قام بنشر أغسطس 9, 2012 قام بنشر أغسطس 9, 2012 اخى كعبلاوى لابد اولا لابد من تنخفيض الماكرو من قائمة ادوات ثم ماكرو ثم الامان ثم منخفض واذا كانت الاوفيس انجليزى فسندخل tools -----macro ------security---low وجرب هذا المرفق واعلمنا بالنتيجة وفقكم الله اخيك جمال الفار تقيم و مستوى1.rar
رجب جاويش قام بنشر أغسطس 9, 2012 قام بنشر أغسطس 9, 2012 أخى الفاضل / كعبلاوى أولا : كما قال لك أخى الحبيب / جمال الفار لابد من تخفيض مستوى أمان الماكرو حتى يعمل الكود معك ثانيا : شاهد هذا الفيديو لتتأكد أن الكود يعمل بشكل سليم
كعبلاوى قام بنشر أغسطس 9, 2012 قام بنشر أغسطس 9, 2012 مليون شكر وجزاكم الله عنا كل خير فى هذا الشهر الكريم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.