أخى الحبيب / جمال ( أبو محمود )
بعد أجمل تحية
تسلم ايديك
ولاثراء الموضوع
هذه دالة معرفة للتقريب
Function ragab(cl As Range)
On Error Resume Next
x = cl - Int(cl)
ragab = IIf(x > 0.5, Int(cl) + 1, IIf(x = 0, cl, Int(cl) + 0.5))
If cl = "" Or WorksheetFunction.IsText(cl) = True Then ragab = ""
End Function
ويتم استخدامها كالاتى
=ragab(A2)
دالة معرفة للتقريب.rar