Прибавление результата к текущим значениям ячеек

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Прибавление результата к текущим значениям ячеек (Макросы/Sub)

dujmovochka_2007

Дата: Среда, 06.12.2023, 22:43 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 18

Репутация: 0 ±

Замечаний: 0% ±

Excel2019

Добрый вечер! Подскажите пожалуйста у меня сейчас если ввожу число в ячейку D вычисляет H, а как добавить чтобы вводить в E вычислялось в I, и вводить в G вычислялось в K
[vba]

Код

Public Sub WorkSheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Columns(4)) Is Nothing Then Exit Sub
Target.Offset(, 4).Value = Target.Offset(, 4).Value + Target.Value
End Sub

[/vba]

К сообщению приложен файл: 7321430.xlsx (12.4 Kb)

Сообщение отредактировал Pelena - Пятница, 08.12.2023, 11:32

Ответить

Nic70y

Дата: Четверг, 07.12.2023, 08:41 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8761

Репутация: 2273 ±

Замечаний: 0% ±

Excel 2010

dujmovochka_2007, текст макроса засуньте в тег пожалуйста.

можно просто прописать нужные столбцы, а смещение у вас одинаковое = 4
[vba]

Код

Public Sub WorkSheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Columns("D:G")) Is Nothing Then Exit Sub
Target.Offset(, 4).Value = Target.Offset(, 4).Value + Target.Value
End Sub

[/vba]