Image كود "لجمع" أو "عد" - Bold cells

السلام عليكم و رحمة الله و بركاته
طلب مني احد الاخوة كود لجمع الخلايا المعمول لها
BOLD
و قمت بعمل هذا الكود بالإعتماد على خاصية
 Bold
المرتبطة بالخط
Font


و هذا هو الكود:

 Function SUMBOLD(MyRng As Range) As Long

    Application.Volatile

    Dim C As Range

    For Each C In MyRng

        If C.Font.Bold = True Then

            SUMBOLD = SUMBOLD + C.Value

        End If

    Next C

    End Function

__________________

و طريقة عمل الدالة
لو كان عندنا قيم موجودة في المدى من
 A1:A10
ستكون المعادلة

=SUMBOLD(A1:A10) 

__________________

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

 BOLD

نفس الكود السابق مع بعض التعديلات البسيطة كالتالي :

Function COUNTBOLD(MyRng As Range) As Long
Application.Volatile
Dim C As Range
For Each C In MyRng
    If C.Font.Bold = True Then
        COUNTBOLD = COUNTBOLD + 1
    End If
Next C
End Function

__________________

و تكون الدالة :

=COUNTBOLD(A1:A10) 

__________________

و هذا كله في حالة رغبتنا بجمع القيم التي تحمل الخاصية

 BOLD

و لكن لو كانت رغبتنا في جمع او عد القيم التي لا تحمل الخاصية

BOLD

فيكون ذلك بإستبدال

TRUE

في الكود أعلاه بـ

 FALSE

==============

دمتم في حفظ الله