Операции округления для выделенного числа

Павел задал вопрос:

Этот вопрос был опубликован в рассылке и два специалиста ответили Павлу.

Александр предложил такой макрос:

Sub FiftyRounding()
' Работает как для положительных, так и для отрицательных чисел
' в пределах типа Double
Dim TwoLast As Integer
Dim Num As Double
On Error GoTo WrongNumber ' На случай, если выделено не число.
' Умножаем выделенное число, выбрасываем дробную часть:
Num = Int(CDbl(Selection.Text) * 1.5)
' Извлекаем число, состоящее из двух последних цифр:
TwoLast = Abs(Num - Sgn(Num) * Int(Abs(Num) / 100) * 100)
' Округляем в зависимости от значения двузначного числа:
Select Case TwoLast
    Case 0 To 24: Num = Num - Sgn(Num) * TwoLast
    Case 25: Num = Num - TwoLast + 50
    Case 26 To 74: Num = Num - Sgn(Num) * (TwoLast - 50)
    Case 75: Num = Num - TwoLast + 100
    Case 76 To 99: Num = Num - Sgn(Num) * (TwoLast - 100)
End Select
Selection.Text = CStr(Num) ' Возвращаем результат в Word.
WrongNumber:
    If Err.Number = 13 Then
        MsgBox "Выделенный фрагмент не является числом"
    End If
End Sub

Леонид Бродский предложил другой вариант макроса с функцией:

Sub Round50()
    Selection.Range.Text = RoundX(Selection.Range.Text, 50)
End Sub
 
Public Function RoundX(numberToRound As Double, roundBase As Integer)
    RoundX = Round(numberToRound / roundBase, 0) * roundBase
End Function