Код Excel vba для добавления значения в существующую ячейку листа
у меня есть этот код, чтобы добавить значение ячейки к существующему значению другой ячейки:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not (Intersect(Target, Range("E3")) Is Nothing) Then
Range("F3").Value = Range("E3").Value + Range("F3").Value
End If
End Sub
но моя проблема в том, что она работает только в одной ячейке, а не в строке, то есть e. g. Я хочу сложить B1 значение A1 существующее значение. Работает нормально, но у меня 24 ряда, то есть B2 to A2 это не работает, я не хочу, чтобы добавить их объединить, но отдельно B2 to A2 и B3 to A3 сюда 24 раза.
пожалуйста, помогите, это срочно.
1 ответов
он должен быть на VBA?
Если вы выберете столбец B копировать (ctrl+c), затем выберите столбец A и перейти специальная вставка вы можете использовать оператор добавить, чтобы сделать то, что вы хотите.
в противном случае эта функция будет работать каждый раз, когда вы измените ячейку в столбце B, она обновит столбец a как столбец A+столбец B (для конкретной строки).
Gordon
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim int_range As Range
Set int_range = Intersect(Target, Range("B:B"))
If Not (int_range Is Nothing) Then
For Each c In int_range
c.Offset(0, -1).Value = c.Offset(0, -1).Value + c.Value
Next
End If
End Sub
Другие вопросы cells microsoft-excel vba