كود (دالة) لعد الخلايا الغير فارغة وتجاوز الخلايا ذات القيمة صفر او المرتبة بمعادلة بخلايا اخرى 1

كود الدالة

Function Cont_UnBlnk(MyRng As Range)

For Each cl In MyRng

If Not cl = Empty Then x = x + 1

Next

Cont_UnBlnk = x

End Function

الوصف

* تقوم الدالة COUNTA بعد الخلايا التي بها البيانات في مدى معين ولكنها ايضا تحسب الخلايا ذات القيمة صفر او المرتبطة بمعادلة بخلية اخرى

* وهذه الدالة (Cont_UnBlnk) تتجاو الخلايا الصفرية او المرتبطة بمعادلات

يرجى تجربة المرفق وإبداء الراي والملاحظات