Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Прибавление результата к текущим значениям ячеек - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Прибавление результата к текущим значениям ячеек (Макросы/Sub)
Прибавление результата к текущим значениям ячеек
dujmovochka_2007 Дата: Среда, 06.12.2023, 22:43 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 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
 
Ответить
СообщениеДобрый вечер! Подскажите пожалуйста у меня сейчас если ввожу число в ячейку 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]

Автор - dujmovochka_2007
Дата добавления - 06.12.2023 в 22:43
Nic70y Дата: Четверг, 07.12.2023, 08:41 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8649
Репутация: 2207 ±
Замечаний: 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]


ЮMoney 41001841029809
 
Ответить
Сообщение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]

Автор - Nic70y
Дата добавления - 07.12.2023 в 08:41
dujmovochka_2007 Дата: Четверг, 07.12.2023, 09:07 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel2019
Nic70y, Спасибо ВАМ огромное! Получилось!
 
Ответить
СообщениеNic70y, Спасибо ВАМ огромное! Получилось!

Автор - dujmovochka_2007
Дата добавления - 07.12.2023 в 09:07
dujmovochka_2007 Дата: Четверг, 07.12.2023, 17:57 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel2019
Nic70y, я новичок в этом можете подсказать как текст макроса засунуть в тег?
 
Ответить
СообщениеNic70y, я новичок в этом можете подсказать как текст макроса засунуть в тег?

Автор - dujmovochka_2007
Дата добавления - 07.12.2023 в 17:57
Nic70y Дата: Пятница, 08.12.2023, 07:48 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 8649
Репутация: 2207 ±
Замечаний: 0% ±

Excel 2010
dujmovochka_2007, Вы уже не сможете отредактировать свое сообщение,
прошло более 24 часов.
Цитата dujmovochka_2007, 07.12.2023 в 17:57, в сообщении № 4 ()
как текст макроса засунуть в тег?
а вообще так:
http://www.excelworld.ru/forum/13-2708-1


ЮMoney 41001841029809
 
Ответить
Сообщениеdujmovochka_2007, Вы уже не сможете отредактировать свое сообщение,
прошло более 24 часов.
Цитата dujmovochka_2007, 07.12.2023 в 17:57, в сообщении № 4 ()
как текст макроса засунуть в тег?
а вообще так:
http://www.excelworld.ru/forum/13-2708-1

Автор - Nic70y
Дата добавления - 08.12.2023 в 07:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Прибавление результата к текущим значениям ячеек (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!