رجب جاويش

أخى الفاضل / محمد جزاك الله كل خير وان شاء الله يتم عمل المطلوب

أخى الفاضل / محمود وأنا أيضا جربت الملف على أوفيس 2010 عندى واتضح انه تالف ولم يعمل

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

أخى الحبيب / محمود رواس جزاك الله كل خير أخى الحبيب على هذه الكلمات الطيبة

أستاذى الحبيب / عبد الله باقشير شرف كبير مرور أستاذى الحبيب / عبد الله باقشير جزاك الله كل خير أستاذى الحبيب على هذه لمرور العطر

أخى الحبيب / الجزيرة جزاك الله كل خير أخى الحبيب على هذه الكلمات الطيبة

أخى الحبيب / ابراهيم أبو ليله جزاك الله كل خير أخى الحبيب على هذه الكلمات الطيبة وشكرا جزيلا على سؤالك الطيب عنى

إخوانى الأعزاء السلام عليكم ورحمة الله وبركاته هذا الكود يحسب عدد الخلايا الملونة بلون معين يتم تحديد اللون عن طريق تحديد الخلية التى تحتوى على اللون المطلوب ثم يتم تحديد المدى المراد حساب عدد الخلايا الملونة فيه Sub ragab_counter() Dim rng As Range Dim rng2 As Range On Error Resume Next 1: Set rng = Application.InputBox("اختر بالماوس الخلية التى تحتوى على اللون المطلوب", "اختيار اللون", , , , , , 8) If rng Is Nothing Then MsgBox ("من فضلك اختر خلية واحدة"): GoTo 1 If rng.Cells.Count > 1 Then MsgBox ("من فضلك اختر خلية واحدة"): GoTo 1 End If color_index = rng.Interior.ColorIndex If color_index = -4142 Then MsgBox ("هذه الخلية غير ملونة من فضلك اختر خلية أخرى"): GoTo 1 2: Set rng2 = Application.InputBox("حدد بالماوس المدى المطلوب", "تحديد المدى", , , , , , 8) If rng2 Is Nothing Then MsgBox ("من فضلك حدد المدى المطلوب"): GoTo 2 For Each cl In rng2 If cl.Interior.ColorIndex = color_index Then color_count = color_count + 1 End If Next MsgBox "عدد الخلايا الملونة بهذا اللون يساوى " & " " & color_count, , "عدد الخلايا الملونة" End Sub عد الخلايا الملونة.rar

الأخت الفاضلة / أم عبد الله عمل رائع وممتاز جزاك الله كل خير وجعل هذا العمل فى ميزان حسناتك ان شاء الله

الف الف مليون مبروك يا أستاذ / أحمد فضيله علي قدوم يوسف بارك الله فيه وجعله الله عونا وسندا لك ((اللهم إجعله قرة عين لآبيه وأمه وإجعله ياالله من حملة كتابك العزيز))

أخى الحبيب / جمال ( أبو محمود ) تسلم ايديك وتسلم ابداعاتك تقبل أرق تحياتى

وهذه دالة معرفة Function count_color(rng As Range) For Each cl In rng If cl.Interior.ColorIndex = 6 Then R = R + 1 End If Next count_color = R End Function وتستخدم كالآتى =count_color(D1:E100) عد الخلايا المظللة2.rar

تفضل أخى Sub count() Application.ScreenUpdating = False For Each cl In Range("D:E") If cl.Interior.ColorIndex = 6 Then R = R + 1 End If Next Range("H2") = R Application.ScreenUpdating = True End Sub عد الخلايا المظللة1.rar

أخى الفاضل / سعد عابد تشرفت أخى الفاضل بمرورك العطر

أخى الفاضل / محمود هذه الدالة وظيفتها اذا كان ناتج دالة البحث خطأ أن تترك الخلية فارغة ""

أخى الفاضل / محمود رواس جزاك الله كل خير أخى الفاضل بالنسبة للمعادلة استخدمت فيها دالة index للبحث فى عمود الاسماء ( حيث يتم البحث عن الأسماء التى يوجد أمامها حرف X ) ونظرا لتعدد الأسماء التى يوجد أمامها حرف X فى العديد من الصفوف لذا تم استخدام دالة small مع دالة if للحصول على جميع النتائج مرتبة أى الأول فى الخلية الأولى ثم الثانى فى الخلية الثانية وهكذا

أخى الحبيب / عباس السماوي جزاك الله كل خير أخى الحبيب على مرورك العطر

أخى الفاضل /mosha14 جزاك الله كل خير

أخى الحبيب / ضاحى الغريب شرفنى جدا هذا المرور العطر من أخ حبيب مثل أخى الحبيب / ضاحى الغريب

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

أخى الفاضل / أحمد عدد الدور الثانى بدون الغياب = 23 وعدد الغائبين = 17 وطبعا الغائب يحسب له دور ثانى وبالتالى يكون اجمالى الدور الثانى ( بالغياب ) = 40 هذا ما فهمته من الملف

أخى الحبيب المبدع والمتألق دائما / حمادة عمر جزاك الله كل خير

أخى المبدع / حمادة عمر تسلم ايديك

أخى الفاضل / adamco197405 جزاك الله كل خير

أخى الحبيب / ضاحى الغريب جزاك الله كل خير على هذا المرور العطر ومرحبا مرة أخرى بلم شمل الأخوة والأحباب