Добрый вечер! Подскажите пожалуйста у меня сейчас если ввожу число в ячейку 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