عبدالله المجرب

جرب المرفق عبدالله المجرب.rar

ينقل الى القسم المناسب

السلام عليكم ضع مرفق

السلام عليكم تفضل المرفق بعد التعديل تقسيم الفصول بالاسماء حسب الدرجات وحسب النوع 1.rar

السلام عليكم استاذ بن عليه لا داعي لطلب الاذن في اي تعديل فهذه بضاعتكم ردت اليكم وهذا ما تعلمناه منكم حل جميل بالمعادلات وكالعادت تبهرنا بمدى الاتقان في عملها

سلامتك استاذ احمد من كل شر

السلام عليكم انتبهت الى ان الدرجة الصغرى ليست ثابته (25) هذا التعديل للكود السابق للاخذ بالاعتبار بالدرجة الصغرى استبدل الكود السابق في الملف بهذا Sub Abu_Ahmed_2nd() Dim cl As Range, cel As Range Set MySh = Sheets("Sheet1") [D8:I100].ClearContents For i = 4 To 28 ww = 0 For J = 1 To 5 t = Application.CountIf(MySh.Cells(i, J + 4), "<" & MySh.Cells(3, J + 4)) If t = 1 Then ww = ww + 1 Next If MySh.Cells(i, 2) = [L2] And MySh.Cells(i, 3) = [L3] And ww >= 1 And ww <= 2 Then Cells(Range("D1000").End(xlUp).Row + 1, 4) = MySh.Cells(i, 2).Offset(0, -1) For Each cel In MySh.Range(MySh.Cells(i, 5), MySh.Cells(i, 9)) If cel < MySh.Cells(3, cel.Column) And ww <= 2 Then Cells(Range("D1000").End(xlUp).Row, cel.Column) = cel Else: GoTo 2 End If 2 Next Else: GoTo 1 End If 1 Next Set MySh = Nothing End Sub

السلام عليكم على فرض ان الدرجة الصغرى 25 تفضل المرفق اسماء ودرجات الدور الثانى فقط لاغير.rar

السلام عليكم هذا الكود يطبق عمل التنسيق الشرطي الكوجود في ملف الاستاذ طارق يوضع في حدث ورقة العمل المطلوبة Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, [A1:D596]) Is Nothing Then For i = 1 To [A1000].End(xlUp).Row If Cells(i, 1).Row Mod 2 = 0 Then Range(Cells(i, 1), Cells(i, 4)).Interior.ColorIndex = 40 Else Range(Cells(i, 1), Cells(i, 4)).Interior.ColorIndex = xlNone End If Next End If End Sub

اخي رجب احسنت وهذا يستعمل لعمل ارقام عشوائية لكن ما يطلبه اخونا فضل هو توزيع نفس الارقام الموجودة في العمود (مع شرط عدم تكرارها في نفس الصف)

السلام عليكم حل جميل =MOD(ROW();2)=1 ويمكن ان تستخدم نفس الشروط المستخدمة في التنسيق الشرطي ولكن بالكود

السلام عليكم جرب المرفق (تم عمل تعديل بسيط على كود الاستاذ المتميز طارق وتم اضافة معادلة تسلسل) في حال رغبة في حذف صف اختر الخلية التي تقابله في العمود A حذف صف.rar

السلام عليكم لك ما طلبت بخصوص الشرح (تم شرح كودين للفائدة)

السلام عليكم لك ما طلبت بخصوص الشرح (تم شرح كودين للفائدة)

السلام عليكم تابع هذا الرابط http://www.officena.net/ib/index.php?showtopic=39210

تابع هذه الدورة من البداية http://www.officena.net/ib/index.php?showtopic=39323

تفضل compare.rar

تفضل المرفق عبدالله.rar

جرب هذه المحاولة على قدر فهمي للمطلوب compare.rar

السلام عليكم الفورم جميل جداً سلمت يمينك احي ياسر ======= تم عمل اللازم كما تم تعديل زر الذهاب الى اخر سجل او اول سجل * للعلم فكرة الحل ماخوذة من عمل للاستاذ ابوعبدالله Data Entry Form.rar

من ملف ثم إعداد الصفحة ثم راس / تذييل الصفحة

عن نفسي انا اسف لا استطيع اضافة حل بالمعادلات دون عمود مساعد

السلام عليكم للحل بالمعادلات ستحتاج عمود إضافي

لا حول ولا قوة الا بالله العلي العظيم اعانك الله اخي الفاضل هذه اول مرة تمر بي هذه المشكلة ان شاء الله تجد الحل لدى الاخوة الافاضل ابواحمد

السلام عليكم بعد اذن البشمهندس طارق ضع هذه المعادلة في الخلية F4 =IF(MIN(F5;F6/2)>=E4;E4;MIN(F5;F6/2)) وهذه في الخلية F7 =IF(MIN(F8;F9/2)>=E7;E7;MIN(F8;F9/2))