دالة تحسب عدد الارقام الاقل من 25 بشرط يكون النطاق خط عريض

[محمد علي سالم]

اخواني ابائي الاساتذه الكرام

ارجو مساعدتي في إجاد داله تعمل على حساب عدد الارقام الاقل من او تساوي 25 مع مراعة ان خط عريض

مثلا احسب عدد الارقام الاقل من او تساوي 25 في النطاق التالي a2:a50 بشرط ان النطاق هذا تكون الارقام فيه بلود يعني خط عريض إذا كان خط غير عريض لا يحسبه

ولكم الشكر والتقدير

المصنف1.rar

[رجب جاويش]

جرب أخى هذا الكود

Sub ragab()
Dim x As Integer
Dim cl As Range
Dim Rng As Range
Set Rng = Range("A2:A50")
For Each cl In Rng
If cl.Font.Bold = True And cl <= 25 Then
x = x + 1
End If
Next
Range("C1") = x
End Sub

 

تم تعديل فبراير 8, 2016 بواسطه رجب جاويش

[محمد علي سالم]

ممكن لو سمحت تطبقها على المصنف استاذ رجب

[سليم حاصبيا]

بعد اذن اخي وصديقي رجب

هذا الملف

المصنف1 salim.rar

[محمد علي سالم]

اخي سليم دالتك تحسبب عدد الارقام التي خطها عريض فقط

وانا اريد يان كون خطها عريض وايضاً اقل من او يساوي 25  ولك كل الشكر والتقدير

[سليم حاصبيا]

تم التعديل

 

المصنف1 salim1.rar

[محمد علي سالم]

شكرا جزيلاً اخي سليم حاصبيا انت مبدع

جزاك الله خيرا

وشكرا ايضاً للاخ رجب جاويش دالته كانت جميله ولكن تعمد على صف واحد