Форум по VBA и MS Office

VBA, Excel => VBA, макросы в Excel => Тема начата: andrey-cont от 03 ноября 2020, 11:42

Название: Excel VBA Макросы: Сумма значений в одной ячейке.
Отправлено: andrey-cont от 03 ноября 2020, 11:42
Можно ли сделать сумму двух чисел (одно из них постоянное, другое переменное) в одной ячейке с выводом результата в этой же ячейке?
Пользователь вводит в ячейку число и к этому числу прибавляется постоянно число, например, 2, и сумма записывается в эту же ячейку, в которую пользователь ввёл число.
Название: Re: Excel VBA Макросы: Сумма значений в одной ячейке.
Отправлено: Администратор от 03 ноября 2020, 13:09
Вводите число в ячейку 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

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