событие Private Sub Worksheet_Change

[Светлана87]

Добрый день! Можно ли в событии Private Sub Worksheet_Change(ByVal Target As Range) отследить только изменения, произведенные пользователем вручную, а не программно. Спасибо.

[Teslenko_EA]

Здравствуйте Светлана87.
а Вы не пробовали обратиться к другому "событию"
Worksheet_SelectionChange ?
Евгений.

[Светлана87]

Пробовала, не получается- мне требуется фиксировать изменения. 3 столбца - АВС Пользователь меняет значение в столбце В – изменение происходит в столбце С, меняет значение в А – изменение только в В. А про коду получается цикл – в С тоже значение меняется, только программно. Вот я и хочу отследить только те изменения, которые произведены пользователем.

[Светлана87]

Пробовала, не получается- мне требуется фиксировать изменения. 3 столбца - АВС Пользователь меняет значение в столбце В – изменение происходит в столбце С, меняет значение в А – изменение только в В. А про коду получается цикл – в С тоже значение меняется, только программно. Вот я и хочу отследить только те изменения, которые произведены пользователем.

[EducatedFool]

Попробуйте такой вариант:

Public a As Double, OldValue

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    OldValue = ActiveCell.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub    ' если изменено сразу несколько ячеек
    Application.EnableEvents = False    ' временно отключаем обработку событий
    On Error Resume Next
    Select Case Target.Column
        Case 1, 2: Target.Next = Target.Next + OldValue - Target
        Case Else:    ' ничего не делаем
    End Select
    Application.EnableEvents = True    ' снова включаем обработку событий
End Sub

[Светлана87]

Спасибо EducatedFool! Да, идеально подходит