أبو أنس80 قام بنشر أغسطس 5, 2012 مشاركة قام بنشر أغسطس 5, 2012 بسم الله الرحمن الرحيم كل عام وانتم بالف خير يا جماعة حسب ملف مرفق اريد كود لفرز طلاب حسب مستوى يعني فرز طلاب حسب ممتاز و جيد جدا و جيد حتى اخره و تحديد نسبة مستوى على مدرسة مثلا ممتاز 23% مهمل 12% مهمل جدا 11% جيد 45% هذا لعرض مستوى مدرسة امان مدير بشكل مستمر لاستجابة ولي امر و مشرف و زوار الخ تقيم و مستوى.rar رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر أغسطس 5, 2012 مشاركة قام بنشر أغسطس 5, 2012 لوحضرتك عايزها معادلات أنا تحت أمرك أما أكواد الفرز والترحيل فما أكثرها في المنتدي وقمنا بعملها كثيرا أبحث قليلا ستجد منها الكثير رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أغسطس 5, 2012 مشاركة قام بنشر أغسطس 5, 2012 محمود بك أريد أن أرى كيف يمكن فعل ذلك بالمعادلات ومنك نستفيد أخونا الغالى رابط هذا التعليق شارك More sharing options...
هاني عدلي قام بنشر أغسطس 5, 2012 مشاركة قام بنشر أغسطس 5, 2012 (معدل) أخي / shakhawan جرب المرفقات :fff: :fff: كل عام و أنتم بخير رمضان كريم تقيم و مستوى.rar تم تعديل أغسطس 5, 2012 بواسطه أ / هاني عدلي رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر أغسطس 5, 2012 مشاركة قام بنشر أغسطس 5, 2012 أستاذي ( يوسف عطا ) هذا الطلب من عملاق مثلك شرف لية بعد إذن أخي هاني شغلك فوق الممتاز وأفكارك رائعة ولكن هذا طلب أستاذ لي لاأستطيع تأخير طلبة تفضل أستاذي تقيم و مستوى.rar رابط هذا التعليق شارك More sharing options...
هاني عدلي قام بنشر أغسطس 5, 2012 مشاركة قام بنشر أغسطس 5, 2012 أخي / محمود كعادتك ..... مبدع دائماً تقبل تحياتي :yes: رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر أغسطس 5, 2012 مشاركة قام بنشر أغسطس 5, 2012 العفو أخي هاني أستفادتي منكم أكثر بكثير من إفادتي لكم فأنا أتعلم منكم ومن زملائي كل يوم شئ جديد بارك الله فيك وجعل تشجيعك هذا في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
جمال الفار قام بنشر أغسطس 5, 2012 مشاركة قام بنشر أغسطس 5, 2012 السلام عليكم ورحمة الله وبركاته تحياتى للجميع وهذا حل اخر بعدما قام اخى محمود برفع الحل الذى كنت سارفعه (توارد خواطر) لاثراء الموضوع وعذار لقلة تواجدى بسبب انشغالى تحياتى اخى هانى تحياتى اخى محمود تقيم و مستوى.rar رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر أغسطس 5, 2012 مشاركة قام بنشر أغسطس 5, 2012 شرف لي أستاذي توارد حواطري مع أستاذ مثلك وإن كان حلك أجمل رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر أغسطس 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 رابط هذا التعليق شارك More sharing options...
كعبلاوى قام بنشر أغسطس 6, 2012 مشاركة قام بنشر أغسطس 6, 2012 بعد التحية والشكر لأستاذنا الفاضل / رجب جاويش نرجوا من سيادتكم مشكورين تغيير D47 و تركها مفتوحة ولتكن D1000 ولكم منا جزيل الشكر والعرفان رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر أغسطس 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 رابط هذا التعليق شارك More sharing options...
أبو أنس80 قام بنشر أغسطس 7, 2012 الكاتب مشاركة قام بنشر أغسطس 7, 2012 بسم الله الرحمن الرحيم قدم شكر و تقدير الى جميع الله طول عمركم اشكركم على مساعدتي و على جواب لكل اسئلتي رابط هذا التعليق شارك More sharing options...
كعبلاوى قام بنشر أغسطس 8, 2012 مشاركة قام بنشر أغسطس 8, 2012 كل الشكر والتقدير لاستاذنا الفاضل / رجب جاويش على الاستجابة والرد ولكن بعد اذن سيادتك الترحيل لايتم رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر أغسطس 8, 2012 مشاركة قام بنشر أغسطس 8, 2012 أخى الفاضل / كعبلاوى أرجو التوضيح أكثر فان الملف يعمل عندى تمام رابط هذا التعليق شارك More sharing options...
كعبلاوى قام بنشر أغسطس 9, 2012 مشاركة قام بنشر أغسطس 9, 2012 أتمنى تجربة الملف وسيتضح ان عند اختيار تقدير ممتاز تكون الاجابة هى نفسها عند إختيار جيد او ....... اى الترحيل ثابت لا يتغير تقيم و مستوى1.rar رابط هذا التعليق شارك More sharing options...
جمال الفار قام بنشر أغسطس 9, 2012 مشاركة قام بنشر أغسطس 9, 2012 اخى كعبلاوى لابد اولا لابد من تنخفيض الماكرو من قائمة ادوات ثم ماكرو ثم الامان ثم منخفض واذا كانت الاوفيس انجليزى فسندخل tools -----macro ------security---low وجرب هذا المرفق واعلمنا بالنتيجة وفقكم الله اخيك جمال الفار تقيم و مستوى1.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر أغسطس 9, 2012 مشاركة قام بنشر أغسطس 9, 2012 أخى الفاضل / كعبلاوى أولا : كما قال لك أخى الحبيب / جمال الفار لابد من تخفيض مستوى أمان الماكرو حتى يعمل الكود معك ثانيا : شاهد هذا الفيديو لتتأكد أن الكود يعمل بشكل سليم رابط هذا التعليق شارك More sharing options...
كعبلاوى قام بنشر أغسطس 9, 2012 مشاركة قام بنشر أغسطس 9, 2012 مليون شكر وجزاكم الله عنا كل خير فى هذا الشهر الكريم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.