Custom Formuła Roundup VBA
' VBA Custom formula for round up
Function RoundUp(ByVal Value As Double) As Integer
If Int(Value) = Value Then
RoundUp = Value
Else
RoundUp = Int(Value) + 1
End If
End Function
Gegasoft