عبدالسلام ابوالعوافي

=SUMPRODUCT(--($G$10:$P$24=C10))

لم افهم

=SUMPRODUCT(--($G$2:$AJ$2=$AI$2);G3:AJ3)

=IF(SUM(--($H$5:H5=H5))>INDEX($D$5:$D$7;MATCH(H5;$C$5:$C$7;0));0;1) مع الضغط علي CTRL+SHIFT+ENTER

شاهد المرفق الكود Function RESULTA(rng As Range) As String Application.Volatile Dim c As Integer Dim r As Integer Dim str As String Dim subj As String c = rng.Column r = rng.Row subj = Cells(2, c - 3).Text str = "راسب في مادة " & subj & " " If Cells(r, c) = "غ" Then str = str & "بسبب غيابه في العملي و" If Cells(r, c + 1) = "غ" Then str = str & "بسبب غيابه في التحريري و" If Cells(r, c) < Cells(9, c) Then str = str & "لعدم حصوله علي ربع الدرجة في العملي و" If Cells(r, c + 1) < Cells(9, c + 1) Then str = str & "لعدم حصوله علي ربع الدرجة في التحريري و" If Cells(r, c + 2) < Cells(9, c + 2) Then str = str & "لعدم حصوله علي ربع الدرجة في الكلية و" str = Left(str, Len(str) - 2) If Len(str) < 20 Then str = "ناجح" RESULTA = str End Function المصنف1.xlsm

بعد اذنكم .. جرب الصيغة الاتية =IF(E8<25;"ربع عملي";IF(E8="غ";"غياب عملي";""))&" "&IF(F8<25;"ربع تحريري";IF(F8="غ";"غياب تحريري";""))&" "&IF(G8<25;"ربع كلية";IF(G8="غ";"غياب كلية";""))

تجده في الخيارات المتقدمة

اكتب اسم الشيت "قائمة" بدل الرموز

=INDEX(F9:F20;MATCH(F3+D3;G9:G20;0))

=AND(TODAY()-B2>28;C2="")

ActiveCell = ActiveCell.Offset(0, -1).Value

تنسيق شرطي

تنسيق شرطي

تنبيه.xlsx

بعد اذن اخي علي Book12.xlsm

=SUM(INDIRECT("b"&A19&":b"&A20)) ممكن يكون طلبك .. حسب مافهمت من سؤالك

جرب 1.xlsm

ارفع الملف لو فيه امكانية

Excel Options >> Trust Center >> Trust Center Setting >> Privacy Options >> Uncheck the Remove personal information from file properties on save

ملف >> خيارات >> مركز التوثيق >> اعدادات مركز التوثيق >> (ازل علامة الصح من ) ازالة المعلومات الشخصية من خصائص الملف عند الحفظ

طريقة ارجاع المؤشر الى التكست بوكس هي setfocus ويجب ان تكون في اخر الاجراء .. يعني لو ان الاكواد متداخلة باكثر من اجراء يجب تتبع كل التفريعات للاجراءات وتكون نهايتها بالـ setfocus ممكن يكون صعب فهم كلامي بدون مثال كصعوبة فهم اكوادك بدون رفع الملف

جرب الكود بهذه الطريقة ولو حدث خطأ الرجاء تحميل الملف لكي يتم العمل عليه Sub DOKOL1() Dim lr As Long Dim dat As Date dat = UserForm2.TextBox1 cou = Application.WorksheetFunction.CountIfs(Range("A2:A100000"), UserForm2.TextBox1, Range("b2:b100000"), UserForm2.TextBox2) If cou = 1 Then lr = MATCHAlsqr(Sheet2.Range("A2:b10000"), dat, 1, UserForm2.TextBox2, 2, 1) + 1 Else lr = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1 End If If Sheet2.Cells(lr, 5) <> "" Then Call KOROG11: GoTo l Sheet2.Cells(lr, 1) = Format(UserForm2.TextBox1.Value, "yyyy/mm/dd") Sheet2.Cells(lr, 2) = UserForm2.TextBox2.Value Sheet2.Cells(lr, 3) = Sheet1.Cells(Application.WorksheetFunction.Match(UserForm2.TextBox2.Value + 0, Sheet1.Range("a:a"), 0), 2) Sheet2.Cells(lr, 4) = UserForm2.TextBox3.Value Sheet2.Cells(lr, 5) = Format(Now, "hh:mm") Sheet2.Cells(lr, 9).FormulaR1C1 = "=IF(NOT(OR(COUNTA(RC[-4]:RC[-3])=1,COUNTA(RC[-2]:RC[-1])=1)),IF(RC[-3]<RC[-4],RC[-3]+1-RC[-4],RC[-3]-RC[-4])+IF(RC[-1]<RC[-2],RC[-1]+1-RC[-2],RC[-1]-RC[-2]),"""")" Sheet2.Cells(lr, 10).FormulaR1C1 = "=VLOOKUP(RC[-8],Sheet1!R2C1:R10000C4,4,0)" Sheet2.Cells(lr, 11).FormulaR1C1 = "=IF(RC[-2]="""","""",IF((RC[-1]/24)<RC[-2],ABS(RC[-2]-(RC[-1]/24)),ABS(RC[-2]-(RC[-1]/24))))" Sheet2.Cells(lr, 12).FormulaR1C1 = "=IF(RC[-3]="""","""",IF((RC[-2]/24)<RC[-3],RC[-3]-(RC[-2]/24),(RC[-2]/24)-RC[-3]))" Sheet2.Range(Cells(lr, 9), Cells(lr, 12)).Value = Sheet2.Range(Cells(lr, 9), Cells(lr, 12)).Value UserForm2.TextBox2.Value = "" Call WindowsMediaPlayer1_OpenStateChange l: UserForm2.TextBox2.SetFocus End Sub

ضع في نهاية الاجراء Me.TextBox2.SetFocus

اولا غير تنسيق الخلايا في اليوم والساعة الى رقم اكتب في خلية اليوم =INT(SUM(الموظفين[@[1]:[30]])/(8/24)) واكتب في خلية الساعة =(SUM(الموظفين[@[1]:[30]])/(8/24)-[@يوم])*8 ملاحظة : لو ان الموظف تاخر نصف ساعة ستجد 0.5 في خانة الساعة ولو تاخر ربع ساعة ستجد 0.25 في خانة الساعة