السلام عليكم ورحمة الله وبركاته
اليوم اقدم لكم الدالة المعرفة AlsaqrCount لحساب الخلايا الممتلئة أو الفارغة
فى بداية الأمر تظن أن الدالة الذى أتحدث عنها موجودة بالاكسل بالفعل
لكن الامر مختلف قليلا
الدالة هنا تقوم بعمل الدالتين COUNTA و COUNTBLANK
ولكن الدالتين السابقتين تقوم بحساب الخلايا المدمجة على انها خلية واحده
لانه اذا كانت هناك خلية مدمجة ممتلئة هنا يعد اول خليه فيها الممتلئه فقط اما الباقى يعد فارغ
ولكنى وجدت من يبحث عن دالة تقوم بحساب الخلايا المدمجة بعدد خلاياها
فمثلا اذا كانت 3 خلايا مدمجة بخلية واحدة بها نص هنا تعد ب3 وليس ب1 وهكذا
لذلك قمت ببرمجة الدالة AlsaqrCount لتخدم هذه الرغبة
واليكم مثال كما بالصورة التالية
الدالة تتكون من 2 باراميتر
الباراميتر الاول لاختيار نطاق الخلايا المراد احصاءه
الباراميتر الثانى
اما TRUE أو 1 أو أى رقم وعندها يتم احصاء الخلايا الممتلئة
واما FALSE او 0 وعندها يتم احصاء الخلايا الفارغة
ذلك مع الاخذ بالاعتبار ان كل خلية منفردة حتى لو مدمجة
فكل ما يظهر به نص يعد ممتلئ وكل ما يظهر به فارغ يعد فارغ
والآن كود الدالة هو....
CODE
Function AlsaqrCount(rng As Range, rw As Boolean) As Long
'Programming by Eslam Abdullah
Dim cel As Range, value&, blank&
For Each cel In rng
If cel.MergeArea.Cells(1).value <> "" Then value = value + 1 Else: blank = blank + 1
Next cel
Select Case rw
Case True: AlsaqrCount = value
Case False: AlsaqrCount = blank
End Select
End Function
ولتحميل ملف العمل بالكود من هنا
مع تحياتى اسلام عبدالله 
الدالة المعرفة AlsaqrCount
