Excel VBA Макросы: Сумма значений в одной ячейке.

[andrey-cont]

Можно ли сделать сумму двух чисел (одно из них постоянное, другое переменное) в одной ячейке с выводом результата в этой же ячейке?
Пользователь вводит в ячейку число и к этому числу прибавляется постоянно число, например, 2, и сумма записывается в эту же ячейку, в которую пользователь ввёл число.

[Администратор]

Вводите число в ячейку A1. В эту же ячейку запишется результат.
Вместо 2 укажите нужное число.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target.Count = 1 And IsNumeric(Target.Value) Then
       Target.Value = 2 + Target.Value
    Else
       Application.Undo
    End If
    Application.EnableEvents = True
End Sub

[вложение удалено администратором]