المساعدة فى عد الخلايا

[aymanwaheeb]

ارجو المساعدة فى عمل سجل القيد فأريد عد عدد الطلبة الذين حولو من المدرسة وعدد الطلبة الذين حولوا إلى المدرسة

مرفق النموذج والمطلوب عد الطلبة الذي يكتب بجوارهم حول والبنات الذين يكتب بجوارهم حولت فى العمود B مع ملاحظة اختلاف المدارس

وهل يمكن عمل الاحصاء باستخدام الألوان مع العلم أن الألوان تنسيق شرطى

ولكم جزيل الشكر

1.rar

[الـعيدروس]

السلام عليكم

الصق الدالة المعرفة التالية في مودويل

Public Function Cont_Ali(ByVal A As Range, Cnd As String) As Integer
Dim R As Range
With A
For Each R In .SpecialCells(xlCellTypeConstants).Rows
If R.Value Like Cnd & "*" Then
 ii = ii + 1
End If
Next
 If ii Then Cont_Ali = ii
End With
End Function

الاستخدام

في خلية "A3"

=Cont_Ali(B6:B255;"حول")

في الخلية "B3"

=Cont_Ali(B6:B255;"حولت")

[أم عبد الله]

الأستاذ / أيمن وهيب

 

بعد إذن أستاذنا الكبير / العيدروس

 

إليك حل آخر بالمعادلات.

1.rar

[aymanwaheeb]

الأستاذ / أيمن وهيب

 

بعد إذن أستاذنا الكبير / العيدروس

 

إليك حل آخر بالمعادلات.

ألف شكر أم عبد لله

بالفعل هذا ما أحتاج اليه

ربنا يباركلك

ومشكر جدا لتعب حضرتك

[aymanwaheeb]

 

السلام عليكم

الصق الدالة المعرفة التالية في مودويل

Public Function Cont_Ali(ByVal A As Range, Cnd As String) As Integer
Dim R As Range
With A
For Each R In .SpecialCells(xlCellTypeConstants).Rows
If R.Value Like Cnd & "*" Then
 ii = ii + 1
End If
Next
 If ii Then Cont_Ali = ii
End With
End Function

الاستخدام

في خلية "A3"

=Cont_Ali(B6:B255;"حول")

في الخلية "B3"

=Cont_Ali(B6:B255;"حولت")

ألف شكر أخى الكريم

ولكن هناك ملاحظة لابد من وضع مسافة بعد كلمة حول ليحسب فقط عدد الذكور

بالفعل اعطتنى ما احتاج اليه

عندى استفسار لو سمحت لى

هل يمكن عمل ذلك بعد الخلايا الملونة تنسيق شرطى بدون النظر الى محتوى الخلية 

وشاكر جدا لاهتمامك وتعب حضرتك

[أم عبد الله]

الأستاذ / أيمن

 

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

 

هذا الكود لأستاذنا القدير العلاّمة / عبد الله باقشير حفظه الله وإليك الملف به الكود وعد الخلايا الملونة من التنسيق الشرطي وبه حيلة صغيرة للعد.

2.rar

[الـعيدروس]

الاخت ام عبدالله

ماتفضلتي به كود لعد الخلايا الملونه 

اما تلوين التنسيق الشرطي لايعمل عليه

تحياتي