-1

По сути, я хочу сделать следующее:

Всякий раз, когда я вставляю значения в столбец B, он добавляет значение в столбец A, а затем устанавливает для столбца B значение 0.

A    B

23   0

Я попробовал эту функцию (передавая A как uni и B как new_value), но она не работает ...

Function foo(uni, new_value)
    uni = uni + new_value
End Function

1 ответ1

0

ХОРОШО. Вот как, но это не проверено, потому что я не могу быть загружен Excel.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    ' The variable KeyCells contains the cells that will 
    ' cause an alert when they are changed. Edit as needed.
    Set KeyCells = Range("B2:B10")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
      ' This code is only ran when one of the above cells change
      cells(Target.Row, 1).value = cells(Target.Row, 2).value
     cells(Target.Row, 2).value = ""
    End If
End Sub

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .