Excel vba код для добавления значения в существующую ячейку листа


-1

У меня есть этот код, чтобы добавить значение ячейки к существующему значению другой ячейки:

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

Но моя проблема в том, что он просто работает в одной ячейке, а не в строке, то есть, например, я хочу добавить B1значение к A1существующему значению. Он работает нормально, но у меня есть 24 строк, то есть , B2чтобы A2он не работает , я не хочу , чтобы добавить их объединить , но разъемно B2к A2и B3к A3этому пути в 24 раза.

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


Какая? Все, что это делает, это добавить E3 к F3, если вы изменили E3? Я не понимаю твой вопрос.
Raystafarian

Ответы:


0

Это должно быть VBA?

Если вы выберете копирование столбца B (ctrl + c), затем выберите столбец A и перейдите к специальной вставке, вы можете использовать оператор добавления, чтобы сделать то, что вы хотите.

В противном случае эта функция будет работать каждый раз, когда вы меняете ячейку в столбце B, она обновляет столбец A как столбец A + столбец B (для конкретной строки).

Гордон

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
Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.