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

طلب مني احد الاخوة كود لجمع الخلايا المعمول لها

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

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

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