السلام عليكم ورحمة الله وبركاته
كنت قد قمت بعمل موضوع لدالة ISColor من قبل وهذا تطوير بسيط للدالة ISColor
مكونات الدالة...
الدالة تتكون من 2 باراميتير
البارميتير الاول اجبارى وهو الخليه المراد اختبار اللون الخاص بها
والبارميتير الثانى اختيارى وهو رقم اللون
فى حالة تجاهل الباريميتر الثانى ستقوم الدالة بإرجاع رقم اللون للخلية المحددة
مثال:
اختبار الخليه A1 اذا كانت باللون الأحمر أم لا
تكون المعادله كالآتى
ورقم اللون الاحمر فى الاكسل هو 3
فارجعت الداله TRUE
ولمعرفة ارقام الالوان هذه قائمه على الاكسل بها كالآتى
ويمكن ايضا استخدام الدالة ISColor لمعرفة لون الخلية
بإستخدام العامل الأول فقط كالتالى
فى الخلية A1 بلا لون ورقمها هنا يقابل 4142-
والخلية A3 باللون الأزرق وهو ما يقابل الرقم 5 فأرجعت الدالة الرقم 5
والخلية A5 باللون الأصفر وهو ما يقابل الرقم 6 فأرجعت الدالة الرقم 6
وعند استخدام العامل الثانى وكتابة رقم اللون
قامت الدالة بإرجاع القيمة TRUE أو FALSE
على حسب اذا تطابق اللون مع الرقم الخاص به أم لا
مثال مع التنسيق الشرطى:
هنا قامت الدالة بإختبار الخلية A1 إذا كانت باللون الأحمر وأرجعت القيمة TRUE
ومن ثم قامت بتنسيق الخلية المحددة باللون الذى قمت بتحديدة فى التنسيق الشرطى
كود الدالة هو ...
Function IsColor(clr As Range, Optional NumClr As Variant)
'Programming by Eslam Abdullah
Dim cl As Byte
cl = clr.Interior.ColorIndex
If IsMissing(NumClr) Then IsColor = cl Else IsColor = NumClr = cl
End Function
لتحميل ملف العمل بالدالة المعرفة وقائمة الألوان لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
اعداد اسلام عبدالله ، دمتم فى حفظ الله ورعايته 