دالة اوكود لعدالالوان

[Mr. shehata]

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

[خالد المصـــــــــــرى]

تفصل اخي  عندما تكتب احمر او اخضر او ازرق او اصفر  يتم التلوين  وانا شغال في تصميم كنترول شيت للمرحلة الابتدائية كلها وهرفعه

دوائر.xls

تم تعديل يونيو 15, 2023 بواسطه خالد المصـــــــــــرى

[ابوحبيبه]

 

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

ان كان كذلك استخدم دالة العد الشرطي ...()COUNTIF

او ارفق الملف حتي يتضح سؤالك 

[omar elhosseini]

الاخ Mr. shehata

 

لن يستطيع احد الاجابة علي تسائلك

فلا يمكن عد الوان خلايا التنسيق الشرطي

 

ولكن يمكن التحايل علي ذلك

فأذا اردت احد هذه الحلول

ارفع ملفك مع وضع تصورك لصورة النتائج المستخرجة

 

 

[Mr. shehata]

شكرجزيلا اخى خالد المصرى على سرعة الرد ولكن ليس هذا هوالمطلوب المطلوب ( عد الالوان المذكورة عند عمل التنسيق الشرطى بدرجات النلاميذ 4,3,2,1 بمعنى كل رقم يأخد لونه مثلا 4=أزرق , 3 =أخضر , 2 = أصفر , 1 = أحمر واريد عد الالوان للحصول على التقييم النهائى للتلميذ خلال الفصل الدراسى وسوف ارفق الملف لعمل المطلوب 

رصد.xlsm

اخى العزيز ابو حبيبة شكرا جزيلا لك ولكننى استخدم فعلا countif  , ولكن يوجد ترتيب للتلاميذ من المستوى الاعلى الى المستوى الاقل واريد كود يقوم بجمع تلك الالوان ومعرفة الترتيب 

رصد.xlsm

[Mr. shehata]

استاذىomar-elhosseini هذا هوالملف وانا اشكرك لسرعة الرد والمرور الكريم

رصد.xlsm

[محي الدين ابو البشر]

عليكم السلام أخي الكريم جرب هذا الكود عسى يكون المطلوب

Sub test()
    Dim z, col, cnt, x
    Dim i&, ii&
    Application.ScreenUpdating = False
    z = Array(15773696, 5287936, 65535, 255)
    col = Array("أزرق", "أخضر", "أصفر""أحمر")
    cnt = Array(0, 0, 0, 0)
    For ii = 10 To Cells(Rows.Count, 3).End(xlUp).Row
        cnt = Array(0, 0, 0, 0)
        For i = 7 To Cells(Columns.Count, 7).End(xlToRight).Column
            On Error Resume Next
            x = Application.Match(Cells(ii, i).DisplayFormat.Interior.Color, z, 0)
            cnt(x - 1) = cnt(x - 1) + 1
        Next
        Range("cy" & ii).Resize(, 4) = cnt
        Set cnt = Nothing
    Next
    Application.ScreenUpdating = True
End Sub

لوب

تم تعديل يونيو 18, 2023 بواسطه محي الدين ابو البشر

[omar elhosseini]

محي الدين ابو البشر

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

اخي العزيز

ارجو عمل ملف مبسط لتجربة الكود

لقد تم حذف مشاركتي الاولي ولا ادري السبب

او تطبيق الكود علي هذا الملف للتجربة

 

سبب طلبي هو تأكدي من انه لا يمكن عد الوان التنسيق الشرطي الا ببعض التحايل علي ال  VBA

 

Count_Color_FormatConditions.xlsm

 

[محي الدين ابو البشر]

omar elhosseini

Count_Color_FormatConditions.xlsm

[omar elhosseini]

شكرا لك اخي

احسنت

[محي الدين ابو البشر]

شكراً لك

omar elhosseini

[Mr. shehata]

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