Код 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 раза.

пожалуйста, помогите, это срочно.

5
задан MarianD
источник

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
0
отвечен gtwebb 2014-02-12 20:57:29
источник

Другие вопросы cells microsoft-excel vba