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

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

3
задан MarianD
05.03.2023 17:21 Количество просмотров материала 2753
Распечатать страницу

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 2023-03-07 01:09

Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Мы используем cookie. Это позволяет нам анализировать взаимодействие посетителей с сайтом и делать его лучше. Продолжая пользоваться сайтом, вы соглашаетесь с использованием файлов cookie. Политика конфиденциальности
Согласен
Вверх