عد الخلايا حسب اللون

[أواب]

إخواني الكرام

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

هذه أول مشاركة لي في منتدى الاكسل

وعندي مشكلة أرجو مساعدتي فيها

استخدمت الدالة

=CountCcolor(D2:D31;D2)

في شيت وبعدما رفعته علي جوجل درايف

لم تعمل وتعطي خطأ

ويقول هذه دالة غير معروفة

ما الحل ؟

جزى الله خيرا من يقدم المساعدة

إمامه.xlsm

[Ali Mohamed Ali]

وعليكم السلام -يمكنك ذلك بإستخدام الدالة المعرفة

Function COUNTCOULREDCELLS(CriRange As Range, MCri As Range) As Long
    Dim c        As Range
    Dim CountC   As Long
    Application.Volatile
For Each c In CriRange
    If c.Interior.ColorIndex = MCri.Interior.ColorIndex Then
       COUNTCOULREDCELLS = COUNTCOULREDCELLS + 1
    End If
Next c
End Function

ويكون ذلك بهذه المعادلة كما بالمرفق

=COUNTCOULREDCELLS($D$2:$J$31,K$1)

 

إمامه1.xlsm

[abdo meghari]

اخي  الكريم  لا يوجد دالة معرفة في محرر الاكواد  ولذلك يظهر  الخطا  لان الدالة غير موجودة  اصلا  يبدو  انك  عندما  رفعت  الملف  على جوجل  درايف  لم تقم بتخزينه على هيئة ماكرو مما ادى الى حدف  الدالة   

تم تعديل أغسطس 12, 2020 بواسطه abdo meghari

[أواب]

هذه صورة الملف الأصلي كما تظهر عندي

المشكلة عندما أرفعها على جوجل درايف وأقوم بمشاركتها لا تظهر بصورة صحيحة : (#NAME?)

 

[أحمد يوسف]

أواب

هذا امر طبيعى حتى يتم غلق هذا الموضوع

فلا يمكن رفع ملف على جوجل درايف يحتوى على أكواد vba

وشكراً