ابراهيم الحداد

السلام عليكم ورحمة الله اخى الكريم المعادلة تكون هكذا =IF(OR(U10<25;T10<5;T10="غ");"لغة عربية ";"")

السلام عليكم ورحمة الله ...ضع المعادلة التالية فى الخلية M4 =MAX(COUNTIF($D4:$L4;$D4:$L4)) ثم اضغط CTRL + SHIFT + ENTER معا و الا لن تعمل معك المعادلة ثم اسحب بالماوس حتى آخر خلية تريدها

السلام عليكم ورحمة الله تم ربط الورقة الثانية بالورقة الاولى كما طلبت ...اما عملية توزيع الاحتياطى بالعدل اتمنى و استعطت ان ارسلها فى مشاركة لاحقة,,,اليك الملف اللجان والملاحظة.xlsx

السلام عليكم ورحمة الله اخى الكريم لا توجد مشكلة فى الاحصائية البنتين الحاصلين على دور ثانى فى اللغة العربية احداهما دور ثانى بسبب الغياب فهى محسوبة مرة مع الغياب و مرة اخرى مع المتخلفين فى المادة اتمنى ان اكون قد اصبت الهدف

السلام عليكم ورحمة الله اليك الملف new-2.xlsm

السلام عليكم ورحمة الله حسب مافهمت من طلبك يمكنك وضع المعادلة التالية فى الخلية F9 او الخلية G9 حسبما تريد =IFERROR(AVERAGE(C9:E9);"") ثم السحب بالماوس لآخر خلية تريدها

السلام عليكم ورحمة الله اليك الملف بعد عمل اللازم new.xlsm

السلام عليكم ورحمة الله تم عمل اللازم ويرجى عدم العبث بالمعادلات عتى لا تختل النتائج اليك الملف كشف.xlsx

السلام عليكم ورحمة الله بارك الله فيكم جميعا ردودكم الطيبة تخجل تواضعى

السلام عليكم ورحمة الله معذرة لانى فهمت الموضوع خطأا ان العمل على خلية واحدة و لاتى وجدت الامر مختلف وصعب فقررت ان ارسل لك الملف ذاته بعد ان تم عمل اللازم تم اضافة عمود مساعد بورقة البدلاء لتسهيل عمل المعادلة اليك الملف شيت تحضير -111 (2).xlsm

السلام عليكم ورحمة الله استخدم الكود التالى Sub DelRows() Dim ws As Worksheet, LR As Long Dim x As Integer, i As Long Set ws = Sheets("Sheet1") LR = ws.Range("B" & Rows.Count).End(3).Row For i = LR To 2 Step -1 x = WorksheetFunction.CountIf(ws.Range(Cells(2, 4), _ Cells(i, 4)), Cells(i, 4)) If x > 1 Then ws.Range("D" & i).EntireRow.Rows.Delete End If Next End Sub

السلام عليكم ورحمة الله استخدم هذه المعادلة و لكن يجب عليك بعدها ان تضغط معا على CTRL+SHIFT+ENTER حتى تعمل معل المعادلة بشكل صحيح =INDEX($G$4:$H$17;SMALL(IF(MIN($H$4:$H$17)=$H$4:$H$17;ROW($H$4:$H$17));1)-3;1)

السلام عليكم ورحمة الله اليك الملف جاهز كل ماعليك الضغط على الزر المكتوب عليه "اضغط للترحيل" فى ورقة data توزيع معدات واصناف علي شركات.xlsm

السلام عليكم ورحمة الله استخدم هذا الكود Sub DistData() Dim ws As Worksheet, Sh As Worksheet Dim i As Long, p As Long, j As Long, LR As Long Dim Arr As Variant, Tmp As Variant Set ws = Sheets("data") Arr = ws.Range("A5:H" & ws.Range("B" & Rows.Count).End(3).Row).Value ReDim Tmp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For Each Sh In Worksheets If Sh.Name <> ws.Name Then For i = 1 To UBound(Arr, 1) If Sh.Name = Arr(i, 6) Then p = p + 1 For j = 1 To 7 Tmp(p, j) = Arr(i, Choose(j, 1, 2, 3, 4, 6, 7, 8)) Next End If Next End If If p > 0 Then Sh.Range("A5").Resize(p, UBound(Tmp, 2)).Value = Tmp p = 0 Next End Sub

السلام عليكم ورحمة الله تفضل توزيع العاملين.xlsm

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

السلام عليكم ورحمة الله عندك مشكلة ما لا اعرف سببها او مصدرها على العموم تم تنشيط المعادلة مرة اخرى بملفك المرفق فكانت النايجة المرجوة و هى تعمل بكفاءة تامة اليك الملف sego.xlsx

السلام عليكم ورحمة الله استخدم هذه المعادلة و لا تتعجل النتيجة حتى تصل الى آخر خلية =IF(ISNUMBER(VALUE(A6));G7;A6)

السلام عليكم ورحمة الله استخدم هذه المعادلة =IF(B1<=50;B1*1.5;(B1-50)*2.5+75)

السلام عليكم ورحمة الله تفضل 1.xlsx

السلام عليكم ورحمة الله اخى الكريم لا داعى للشكر فكلنا هنا لخدمة بعضنا البعض تفسير القائمة المنسدلة يتم تغيير الدرجات للتجربة حتى تكتمل نسبة العشرة بالمائة لآعلى درجات ممكنة و حتى يشمل اكبر شريجة من اجمالى الطلاب تم تغيير فى الكود لاظهار عدد الغياب و عدد الحضور و اجماليهم استبدل الكود المرفق بالملف بهذا الكود Sub CallData() Dim ws As Worksheet, Sh As Worksheet Dim LR As Long, Mada As String, Data As String Dim C As Range, Y As Range, x As Byte Dim p As Long, N As Double Dim a As Single, b As Single Set ws = Sheets("10%") Set Sh = Sheets("الدرجات") Application.ScreenUpdating = False ws.Range("C15:E34,H15:J34").ClearContents LR = WorksheetFunction.CountIf(Sh.Range("A2:A1000"), ">" & 0) + 1 Mada = ws.Range("C9").Text Select Case Mada Case Is = "اللغة العربية": Data = "عربــي" Case Is = "الرياضيات": Data = "رياضيـات" Case Is = "الدراسات الاجتماعية": Data = "دراسـات" Case Is = "العلـــوم": Data = "علــوم" Case Is = "اللغة الإنجليزية": Data = "انجليزي" Case Is = "التربية الدينية": Data = "ديــن" End Select For Each C In Sh.Range("A1:G1") If C.Text = Data Then x = C.Column a = WorksheetFunction.CountIf(Sh.Range(Sh.Cells(2, x), Sh.Cells(LR, x)), "غ") b = LR - a - 1 ws.Range("E12") = a ws.Range("H12") = b ws.Range("J12") = LR - 1 End If Next N = ws.Range("M9").Value For Each Y In Sh.Range(Sh.Cells(2, x), Sh.Cells(LR, x)) If Y.Value >= N And Y.Value <> "غ" Then p = p + 1 If p > 40 Then Exit Sub If p <= 20 Then ws.Cells(p + 14, 3) = Sh.Cells(Y.Row, 1) ws.Cells(p + 14, 4) = Sh.Cells(Y.Row, x) ws.Cells(p + 14, 5) = Sh.Cells(Y.Row, x) Else ws.Cells(p - 6, 8) = Sh.Cells(Y.Row, 1) ws.Cells(p - 6, 9) = Sh.Cells(Y.Row, x) ws.Cells(p - 6, 10) = Sh.Cells(Y.Row, x) End If End If Next Application.ScreenUpdating = True End Sub

السلام عليكم ورحمة الله ضع الكود التالى فى حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Long LR = Range("B" & Rows.Count).End(3).Row + 1 If Not Intersect(Target, Range("B8:B" & LR)) Is Nothing Then Range("B8:O" & LR).Sort key1:=Range("B8"), order1:=xlDescending End If End Sub

السلام عليكم ورحمة الله تم انشاء خلية منسدلة و هى الخلية M9 ليتسنى لك اختيار الدرجة التى تحقق المطلوب من عدد ال 10% اليك الملف كود لاستدعاء نسبة العشرة في المية.xls

السلام عليكم ورحمة الله استخدم هذه العبارة ActiveCell.Offset(1, 0).Select بدلا من هذه العبارة Range("A2").Select

السلام عليكم ورحمة الله لو قمت بتحميل الملف فى مشاركتى الاخيرة مرة اخرى لن تجد هذا الخطأ يبدو انك قمت بمسح اسم الملف دون قصد على العموم استبدل العبارة التى باللون الاصفر و التى تدل على الخطأ بهذه العبارة Set ws = Sheets("اجمالي")