ابو عبدالبارى

الأخ الكريم فايز فراج السلام عليكم وعودا حميدا جرب المرفق التالى abo_abary_شيت كنترول الصفين الرابع والخامس الإبتدائي.rar

اخى العزيز جلال محمد المشكلة كلها تكمن فى الجزء الذى ذكرتة فى المشاركة السابقة وبالتحديد فى هذة الجزئية (Total!N13:BX146=""غ"") النطاق الذى يبحث فية عن الغياب ليس خاص بكل مادة ولكن خاص بالمواد كلها وهذا خطأ من الممكن تعديلة ليكون بالنسبة مثلا للغة العربية (Total!p13:p146=""غ"") ويتم تغيير اسم العمود مع كل مادة المشكلة ان اسماء الأعمدة غير منتظمة ( هيا بنا الى الصيد بعد ان توافرت ادواته )

مشكور اخى الكريم أبو حنــــين على التوضيح اخى الكريمخالد ع العتيبي لتوضيح الفكرة 1- انا اعتمدت على التنسيق الشرطى 2- التنسيق الشرطى لا يعمل الا فى نطاق داخل الصفحة 3-للتغلب على ذلك نعتمد على تسمية النطاقات فى نفس اىلشيت أو فى شيت آخر ووضعها داخل التنسيق الشرطى 4- قد تفضل الأستاذ أبو حنــــين مشكورا بشرح كيفية اضافة تسمية لنطاق

اخى العزيز جلال محمد كما ذكرت سابقا تشخيص المشكلة هو 90% من حلها .Formula = "=SUMPRODUCT(--(Total!N13:BX146=""غ"")*(Total!CJ13:CJ146=""ذكر""))" .Formula = "=SUMPRODUCT(--(Total!N13:BX146=""غ"")*(Total!CJ13:CJ146=""انثى""))"

بعد اذن اخى الحبيب وائل يونس سلامي ائراءا للموضوع هذا حل بالمعادلات abo_abary_المصنف2.rar

اخى الكريم yqttqt الرجاء الأطلاع على تعليمات المنتدى بتغيير اسم الظهور الى اللغة العربية جرب المرفق التالى لعلة يفى بالغرض abo_abary_111222.rar

الأخ الكريمkotiba الرجاء الأطلاع على تعليمات المنتدى بتغيير الأسم للغة العربية قم بالرفاق بعضالبيانات بالملف الذى قمت برفعه مع شكل النتائج المطلوبة وسيت العمل علية فورا ...................

اخى الكريمkhalidalotaibi الرجاء الأطلاع على تعليمات المنتدى بتغيير اسم الظهور الى اللغة العربية جرب المرفق التالى لعلة يفى بالغرض abo_abary_مثال الانتدابات.rar

بعد اذن اخى العزيز ياسر خليل أبو البراء جرب المرفق التالى لعلة يفى بالغرض abo_abary_moneer.rar

برجاء ارفاق ملف للتوضيح

الأخ الكريم المتأمل الحسني المعادلة تعمل فى حالة كون الأرقام صحيحة أو بها كسور والملف المرفق به طريقتان للحساب لارقام من 1 الى 1200 مقسمومة على 12 جرب الملف المرفق واخبرنى ما المشكلة abo_abary_coun.rar

=IF((C2-INT(C2))>0.75;(INT(C2)+1);LOOKUP((C2-INT(C2));{0,0.25,0.5,0.75};{0,0.25,0.5,0.75})+(INT(C2))) او جرب المعادلة التالية

الأخ الكريم المتأمل الحسني السلام عليكم بعد اذن اساتذتنا فى المنتدى واثراءا للموضوع جرب المرفق التالى abo_abary_coun.rar

الأخ الكريم ياسر خليل أبو البراء أوفيت وأوجزت (علمني الصيد خير من ان تعطيني سمكه كل يوم ) abo_abary_المقارنة2.rar

اخى الكريم ياسر خليل أبو البراء تعودنا فى هذا الصرح الشامخ ومن اساذتنا ان نتعلم كل يوم المزيد لك كل الشكر وشكرا لمرورك العطر .

اخى الكريم عبدالعزيز محمد-محب البرمجة أنت تعلم ان الأكواد فى لغة vba تتعارض مع دمج الخلايا !!!!!!!!!!

مشكور لكلماتك الرقيقة الملف يعمل عندي ولكن جرب هذا الملف abo_abary_اضافة ارقام بشرط.rar

و ربما يكون هذا الكود مفيداً لأثراء الموضوع Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) last = Cells(Rows.Count, "c").End(xlUp).Row For i = 2 To last Select Case Range("c" & i) Case "المقاولات" Range("d" & i).Font.ColorIndex = 5 Case "العقارات" Range("d" & i).Font.ColorIndex = 3 Case "الصيانة" Range("d" & i).Font.ColorIndex = 8 Case "المالية" Range("d" & i).Font.ColorIndex = 38 End Select Next End Sub

اخى الكريمعامر ياسر واثراءاً للموضوع جرب الملف التالى لعلك تجد فيه غايتك abo_abary_اضافة ارقام بشرط.rar

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

جرب هذا التعديل abo_abary_ConditionalFomat.rar

اخى الكريم zizo8400 السلام عليكم بعد الأطلاع على تعليمات المنتدى جرب المرفق التالى لعلة يكون المطلوب abo_abary_ConditionalFomat.rar

اخى الكريمAlsaqr مشكور على كلماتك الرقيقة الفضل كله لله واساذتنا بالمنتدى

Range("c61:h61").ClearContents

اخى الكريم جلال محمد السلام عليكم قم بتغيير اسم العمود الى اخر عمود تريد توزيع الفرز عليه Range("a2:b" & LR).Select