أخى الحبيب / جمال ( أبو محمود ) 
بعد أجمل تحية 
تسلم ايديك 
ولاثراء الموضوع 
هذه دالة معرفة للتقريب 
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