Добрый вечер! Подскажите пожалуйста у меня сейчас если ввожу число в ячейку 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]
Добрый вечер! Подскажите пожалуйста у меня сейчас если ввожу число в ячейку 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
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]
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
Доброго времени суток господа. Говорю сразу в языках программирования практически не соображаю и поэтому нуждаюсь в вашей помощь. В приложенном файле уже есть код и вы как знающие люди поймете в чем суть дела. Вот мне необходимо что бы так же было со всеми остальными выделенными ячейками. Я читал форум, но смог понять только то что имею в файле.
Доброго времени суток господа. Говорю сразу в языках программирования практически не соображаю и поэтому нуждаюсь в вашей помощь. В приложенном файле уже есть код и вы как знающие люди поймете в чем суть дела. Вот мне необходимо что бы так же было со всеми остальными выделенными ячейками. Я читал форум, но смог понять только то что имею в файле.yurchiknim
yurchiknim, примерно так должно быть, код лист1 [vba]
Код
Public Sub WorkSheet_Change(ByVal Target As Range) If Application.Intersect(Target, Range("D5:D11")) Is Nothing and Application.Intersect(Target, Range("h5:h11")) Is Nothing Then Exit Sub target.offset(0,-2).Value = target.offset(0,-2).Value + target.Value End Sub
[/vba]
yurchiknim, примерно так должно быть, код лист1 [vba]
Код
Public Sub WorkSheet_Change(ByVal Target As Range) If Application.Intersect(Target, Range("D5:D11")) Is Nothing and Application.Intersect(Target, Range("h5:h11")) Is Nothing Then Exit Sub target.offset(0,-2).Value = target.offset(0,-2).Value + target.Value End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
