عبدالله باقشير

السلام عليكم جرب هذه =SUMPRODUCT(N((($C$5:$C$139>=$C$4)*(($B$5:$B$139<$B$4)+($B$5:$B$139="غ")))>0)) تحياتي

احسنت اخي الحبيب رجب

السلام عليكم جزاكم الله خيرا جرب هذه =SUMPRODUCT(N((($C$5:$C$8>=$C$4)*(($B$5:$B$8<$B$4)+($B$5:$B$8="غ")))>0))

السلام عليكم ورحمة الله وبركاته احسنت اخي الحبيب/ الخالدي....لم انتبه لذلك جزاكم الله خيرا تقبلوا تحياتي وشكري

السلام عليكم جرب المعادلة التالية: =SUMPRODUCT(($C$5:$C$8<$C$4)+($B$5:$B$8<$B$4)+($B$5:$B$8="غ")) تحياتي

اخي احمد عبد الناصر

اخي الفاضل ياسر فتحي

السلام عليكم على افتراض ان النطاق المطلوب B4:B100 جرب الكود التالي: Sub kh_Replace() Dim ch With Range("B4:B100") For Each ch In Array("إ", "أ", "آ") .Replace CStr(ch), "ا" Next .Replace "ة", "ه" .Replace "ى", "ي" End With End Sub المرفق 2003 حذف الهمزة والتاء المربوطه.rar

استخدم كود الاستاذ رجب واستثني العمود L (المراكز) من نطاق الفرز واجعل الترتيب تنازلي مثل هذا Sub ragab() x = Range("AA1").Value Range("M5:Y8").Sort Key1:=Cells(5, x), Order1:=xlDescending End Sub تحياتي

اخي الحبيب حمادة باشا

اخي الفاضل نجم الدين ابراهيم

عملناها بالدوال حسب طلبك

اللهم امين

السلام عليكم جرب المعادلة التالية حيث ان الاسم MyList هوالنطاق DB!$B$3:$AK$23 =SUMIFS(INDEX(MyList;MATCH($E$4;INDEX(MyList;0;1);0);0);INDEX(MyList;1;0);">="&D6;INDEX(MyList;1;0);"<="&E6) المرفق 2010 TestLate2.rar

السلام عليكم يتم الترتيب في الجدول الثاني بالدوال شاهد المرفق 2010 Rank - Copy.rar

السلام عليكم جرب الكود التالي: Option Explicit Sub kh_Color() Dim Obj As Object Dim cel As Range Dim MyColor Dim txt As String Dim LR As Long, R As Long ''''''''''''''''''''''''''''' Set Obj = CreateObject("Scripting.Dictionary") ''''''''''''''''''''''''''''' MyColor = 2287936 ''''''''''''''''''''''''''''' LR = Cells(Rows.Count, "B").End(xlUp).Row Range("B5:K" & LR).Interior.Color = xlNone For R = 5 To LR txt = Trim(Cells(R, "K")) If Len(txt) Then If Obj.Exists(txt) Then Range(Cells(R, "B"), Cells(R, "K")).Interior.Color = Obj(txt) Else Obj.Add txt, MyColor Range(Cells(R, "B"), Cells(R, "K")).Interior.Color = MyColor MyColor = MyColor + 500000 End If End If Next Set Obj = Nothing End Sub شاهد المرفق 2003 تلوين المكرر بلون محتلف.rar

السلام عليكم جرب الكود التالي: Sub kh_Cha_FontColor() Dim cel As Range Dim Nam As String Dim Strt As Integer Nam = Range("C2") Application.ScreenUpdating = False With Range("C4:D17") .Font.ColorIndex = 0 If Len(Trim(Nam)) = 0 Then GoTo 1 For Each cel In .Cells Strt = InStr(CStr(cel), Nam) If Strt Then cel.Characters(Strt, Len(Nam)).Font.ColorIndex = 3 End If Next End With 1: Application.ScreenUpdating = True End Sub المرفق 2003 تظليل الأسماء المتشابهة.rar

جزاكم الله خيرا واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة تقبلوا تحياتي وشكري

جرب المعادلة التالية بافتراض ان الخلية C41 فيها عدد الساعات والخلية D41 فيها عدد الدقائق =CONCATENATE(INT((C41+INT(D41/60))/7);" ايام";" و ";MOD(C41+INT(D41/60);7);" ساعات") تحياتي

السلام عليكم جرب المعادلة التالية بافتراض ان الخلية C41 فيها عدد الساعات =CONCATENATE(INT(C41/7);" ايام";" و ";MOD(C41;7);" ساعات") تحياتي

السلام عليكم الحمد لله على السلامة الله يحفظكم من كل مكروه تقبلوا تحياتي وشكري

السلام عليكم عن نفسي الطلب غير مفهوم بتاتا ارجو التوضيح ؟؟؟