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



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





جمع أو عد الخلايا الملونة Sum & Count Colored Cells

السلام عليكم ورحمة الله وبركاته أقدم لكم دالة معرفة تقوم بجمع الخلايا الملونة بلون محدد ، أو عد هذه الخلايا بفرض أن لد ..



01-12-2017 09:13 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4661
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13399
الاعجاب : 4958
 offline 

السلام عليكم ورحمة الله وبركاته

أقدم لكم دالة معرفة تقوم بجمع الخلايا الملونة بلون محدد ، أو عد هذه الخلايا

بفرض أن لديك النطاق A2:A15 ويحتوي على خلايا ملونة باللون الأصفر ، والمطلوب جمع الخلايا التي تحتوي على هذا اللون في خلية ، وعدد هذه الخلايا في خلية أخرى.

لرؤية الروابط والمرفقات عليك الرد على الموضوع

نقوم بوضع الدالة المعرفة التالية في موديول عادي
Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
    Dim rCell As Range
    Dim lCol As Long
    Dim vResult
    
    lCol = rColor.Interior.ColorIndex
    If SUM = True Then
        For Each rCell In rRange
            If rCell.Interior.ColorIndex = lCol Then
                vResult = WorksheetFunction.SUM(rCell) + vResult
            End If
        Next rCell
    Else
        For Each rCell In rRange
            If rCell.Interior.ColorIndex = lCol Then
                vResult = 1 + vResult
            End If
        Next rCell
    End If
    
    ColorFunction = vResult
End Function


استخدام الدالة : نستخدم المعادلة التالية في ورقة العمل لجمع الخلايا الملونة باللون الأصفر (نلون الخلية C2 بنفس اللون المطلوب جمعه) ، ونضع المعادلة في الخلية D2
=ColorFunction(C2,$A$2:$A$15,TRUE)


ونستخدم المعادلة التالية لعد الخلايا الملونة باللون الأصفر (نلون الخلية C4 بنفس اللون المطلوب عده) ، ونضع المعادلة في الخلية D4
=ColorFunction(C2,$A$2:$A$15,FALSE)


لرؤية الروابط والمرفقات عليك الرد على الموضوع


إعداد / ياسر خليل أبو البراء




لرؤية الروابط والمرفقات عليك الرد على الموضوع


أثارت هذه المشاركة إعجاب: elskary2010، Kamel meraghni، الصقر، mustafakhatab، abdulwahed catran، محمد أبو عبدو، mouloudr، Eslam Abdullah، عبدالله فتحى،





01-12-2017 01:08 مساء
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 673
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 140
قوة السمعة : 2382
الاعجاب : 859
 offline 
look/images/icons/i1.gif جمع أو عد الخلايا الملونة Sum & Count Colored Cells
عمل رائع وكنت رأيتة على المنتدى الخاص بك فمشكور لاعادة رفعة وتجديد الاستفاده منه

بحاول اجتهد اهو علشان مكتبة الاكواد 121

نفسي انقطع من كتر الاجتهاد smile

أثارت هذه المشاركة إعجاب: YasserKhalil، الصقر، Eslam Abdullah،


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

تحياتى وتقدير للجميع  محمود ابوالدهب


01-12-2017 01:16 مساء
مشاهدة مشاركة منفردة [2]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 673
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 140
قوة السمعة : 2382
الاعجاب : 859
 offline 
look/images/icons/i1.gif جمع أو عد الخلايا الملونة Sum & Count Colored Cells
استاذى العزيز سؤال عند تغير الون في الخلية c2 and c4  ووضع الون في النطاق لم تتغير النتائج السابقة فما الخطأ الذى قمت به 
بمعنى وضعت الون البرتقالى في النطاق في خليتين ووضع الون في خلية البحث وانتظر النتائج ولكن النتائج لم تتغير " مع ايضاح انى لم اغير الون الاصفر الوجود في النطاق سابقا فانا اضفة اليه الوان اخرى
 

أثارت هذه المشاركة إعجاب: Eslam Abdullah،


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

تحياتى وتقدير للجميع  محمود ابوالدهب


01-12-2017 03:43 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4661
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13399
الاعجاب : 4958
 offline 
look/images/icons/i1.gif جمع أو عد الخلايا الملونة Sum & Count Colored Cells
بارك الله فيك أخي العزيز محمود وإن شاء الله في القريب العاجل أقدم المكتبة ذات 850 كود وأكثر كهدية داخل المتجر .. ولكن سيكون سعرها عالي شوية smile لذا اجتهد في جمع النقاط فهي للمميزين والمشاركين بتفاعل فقط

بالنسبة للدالة المعرفة لتحديث النتائج قم بالضغط على Ctrl + Alt + F9 ..أو قم بتسجيل ماكرو بهذه الخطوة وضع السطر الذي تم تسجيله في حدث ورقة العمل لتتحدث النتائج بشكل تلقائي
أو جرب وضع السطر التالي داخل الدالة المعرفة في بدايتها
Application.Volatile

أثارت هذه المشاركة إعجاب: بكار للأبد، elskary2010، Eslam Abdullah،




01-12-2017 04:03 مساء
مشاهدة مشاركة منفردة [4]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 513
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 561
الاعجاب : 220
 offline 
look/images/icons/i1.gif جمع أو عد الخلايا الملونة Sum & Count Colored Cells
سلمت يمناك عمل رائع

أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،




01-12-2017 07:30 مساء
مشاهدة مشاركة منفردة [5]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 673
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 6
يتابعونه : 140
قوة السمعة : 2382
الاعجاب : 859
 offline 
look/images/icons/i1.gif جمع أو عد الخلايا الملونة Sum & Count Colored Cells
اشكرك وعمل رائع مع انها لا تتحدث تلقائيا فيجب اما كما ذكرت alt+ctrl+f9  لتحديث الببيانات
او وضع السطر في بداية الكود ولكن ايضا يجب الدخول الى براميترات المعادلة ثم انتر لتحديث البيانات 


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

أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،


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

تحياتى وتقدير للجميع  محمود ابوالدهب


01-12-2017 08:20 مساء
مشاهدة مشاركة منفردة [6]
Kamel meraghni
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 101
الجنس : ذكر
تاريخ الميلاد : 23-10-1984
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 578
الاعجاب : 128
 offline 
look/images/icons/i1.gif جمع أو عد الخلايا الملونة Sum & Count Colored Cells
بارك الله فيك أخي ياسر على كل هذه المجهودات القيمة

أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،


توقيع :Kamel meraghni

الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى



142



01-12-2017 11:18 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4661
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13399
الاعجاب : 4958
 offline 
look/images/icons/i1.gif جمع أو عد الخلايا الملونة Sum & Count Colored Cells
جزاكم الله خيراً إخواني وأحبابي في الله

إن شاء الله أحاول شرح كيفية إنشاء دالة معرفة في أقرب وقت ممكن
تقبلوا تحياتي

أثارت هذه المشاركة إعجاب: elskary2010، Eslam Abdullah،




02-12-2017 08:03 صباحا
مشاهدة مشاركة منفردة [8]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1419
الجنس : ذكر
الدعوات : 12
يتابعهم : 0
يتابعونه : 360
قوة السمعة : 11364
الاعجاب : 2812
 offline 
look/images/icons/i1.gif جمع أو عد الخلايا الملونة Sum & Count Colored Cells
المشاركة الأصلية كتبت بواسطة: elskary2010 »
عمل رائع وكنت رأيتة على المنتدى الخاص بك فمشكور لاعادة رفعة وتجديد الاستفاده منه

بحاول اجتهد اهو علشان مكتبة الاكواد 121

نفسي انقطع من كتر الاجتهاد smile

بطل شد علشان نفسك ميتقطعش  yes


أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،




02-12-2017 08:03 صباحا
مشاهدة مشاركة منفردة [9]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1419
الجنس : ذكر
الدعوات : 12
يتابعهم : 0
يتابعونه : 360
قوة السمعة : 11364
الاعجاب : 2812
 offline 
look/images/icons/i1.gif جمع أو عد الخلايا الملونة Sum & Count Colored Cells

جزاكم الله خيرا اخى الحبيب ابوبراء فى ميزان حسناتك ان شاء الله 123



أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،




02-12-2017 08:08 صباحا
مشاهدة مشاركة منفردة [10]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1419
الجنس : ذكر
الدعوات : 12
يتابعهم : 0
يتابعونه : 360
قوة السمعة : 11364
الاعجاب : 2812
 offline 
look/images/icons/i1.gif جمع أو عد الخلايا الملونة Sum & Count Colored Cells

اسمح لى ان اضع رابط لموضوع مشابه حتى يتم الربط بين الموضوعات المتشابه
 

لرؤية الروابط والمرفقات عليك الرد على الموضوعلرؤية الروابط والمرفقات عليك الرد على الموضوع


أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،




02-12-2017 08:21 صباحا
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4661
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13399
الاعجاب : 4958
 offline 
look/images/icons/i1.gif جمع أو عد الخلايا الملونة Sum & Count Colored Cells
بارك الله فيك أخي الغالي حسام خطاب ومشكور على مرورك العطر

الغريب في الموضوع إني كنت ناوي أضع الرابط لكن الزهايمر أقوى مني على ما يبدو .. لأنك عارف وسيد العارفين إني بحب الربط بين الموضوعات (ربنا يكفينا شر الربط ..!!)
تقبل وافر تقديري واحترامي

أثارت هذه المشاركة إعجاب: الصقر، Eslam Abdullah،




02-12-2017 08:28 صباحا
مشاهدة مشاركة منفردة [12]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1419
الجنس : ذكر
الدعوات : 12
يتابعهم : 0
يتابعونه : 360
قوة السمعة : 11364
الاعجاب : 2812
 offline 
look/images/icons/i1.gif جمع أو عد الخلايا الملونة Sum & Count Colored Cells
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
بارك الله فيك أخي الغالي حسام خطاب ومشكور على مرورك العطر

الغريب في الموضوع إني كنت ناوي أضع الرابط لكن الزهايمر أقوى مني على ما يبدو .. لأنك عارف وسيد العارفين إني بحب الربط بين الموضوعات (ربنا يكفينا شر الربط ..!!)
تقبل وافر تقديري واحترامي


g فينك يا لرؤية الروابط والمرفقات عليك الرد على الموضوع تسمع وتشوف  wink_3

أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
الدالة المعرفة ColorEA لجمع الخلايا الملونة Eslam Abdullah
19 702 كاري محمد

الكلمات الدلالية
Cells ، Colored ، الخلايا ، الملونة ، & ، Count ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 04:39 صباحا

أعلن هنا
أعلن هنا
أعلن هنا