Проценты разница

'=== Разницу в процентах вычислить
 
Public Sub Проценты_Разница()
' вызыаается кнопкой
    If Selection.Count <> 3 Then
 
        Помощь
 
        Exit Sub
    End If
 
    ' =(D15-B15)/B15
    Dim str As String
 
    With Selection
 
        str = _
        "=(" & .Areas(2).Address & "-" & _
              .Areas(1).Address & ")/" & .Areas(1).Address
 
        .Areas(3).FormulaLocal = Replace(str, "$", vbNullString)
 
        .Areas(3).NumberFormat = "0.00%"
    End With
End Sub
 
Public Function Помощь(Optional ByVal msg As Variant) _
       As Variant    ' Тестом НЕ покрыта
    MsgBox "Чтобы узнать насколько процентов отличается второе число от перового: " & vbCrLf & vbCrLf & _
           "Нужно выделить три ячейки ОБЯЗАТЕЛЬНО с Control)" & vbCrLf & _
           "1ая ячейка = исходное число" & vbCrLf & _
           "2ая ячейка = число с которым сравнивается" & vbCrLf & _
           "3ья ячейка = куда вставить формулу" & vbCrLf & _
           "и нажать кнопку", _
           vbInformation, "Проценты разница"
End Function