Проблема Worcsheet_Change

[nemoomen]

Доброй ночи!!!

Господа, прошу совета и разъяснений.
Почему Worcsheet_Change на рабочем листе (по крайней мере в том варианте, который в прилагаемом файле) отрабатывает только при вводе в ячейку каких-то данных, но не при ее очистке "DEL".

Спасибо!

[Pavel55]

Когда вы вводите число, например, в ячейку В5, то Target.Address будет $B$5, но когда вы нажимаете клавишу Delete на клавиатуре, то Target.Address уже будет $B$5:$C$5 - из-за этого ваша процедура не срабатывала.

Попробуйте так

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("B3:C3")) Is Nothing Then
        If IsEmpty(Target) Then Exit Sub
        Application.EnableEvents = False 'нужно отключать события Excel, иначе идёт ПОВТОР этой процедуры
        Range("E3") = Range("B3")
    End If
    
    If Not Intersect(Target, Range("B5:C5")) Is Nothing Then
        If IsEmpty(Target) Then Exit Sub
        Application.EnableEvents = False 'нужно отключать события Excel, иначе идёт ПОВТОР этой процедуры
        Range("F3") = Range("B5")
    End If
    
    Application.EnableEvents = True 'а теперь включаем события Excel, чтобы эта процедура работала
End Sub

Мы отлавливаем изменения в нужном диапазоне через метод Intersect и теперь всё правильно срабатывает.

Также вам необходимо знать, когда срабатывает строка Range("E3") = Range("B3") в вашей процедуре, ваша процедура

Private Sub Worksheet_Change(ByVal Target As Range)

срабатывает СНОВА, т.к. вы снова изменили значение в ячейке (только уже E3, чтобы этого избежать нужно отключать события Excel через строку

Application.EnableEvents = False

но в конце вашей процедуры её обязательно нужно включать, иначе у вас отключатся все события Excel и второй вызов этой процедуры уже не произойдёт

P.S. Вам нужно научиться пользоваться точками останова (клавиша F9) в редакторе VBA. Тогда ваш код будет выполняться до этой точки останова, а далее будет останавливаться и открывать редактор VBA.
Т.е. для определения, почему не срабатывает ваша процедура при нажатии клавиши "Del" вам было необходимо поставить точку останова на строке

If Target.Address = "$B$3" Then

и посмотреть, какой адрес в данный момент имеет объект Target (подвести курсор мыши на конструкцию Target.Address) и вам бы всё стало ясно, что это не просто $B$3 или $B$5

[nemoomen]

Сообщение от Pavel55

Попробуйте так

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("B3:C3")) Is Nothing Then
        If IsEmpty(Target) Then Exit Sub

Подскажите как работает первое условие IF
И для чего нужно второе IF

Спасибо!

[Pavel55]

По первому IF

If Not Intersect(Target, Range("B3:C3")) Is Nothing Then

Если ячейка Target входит в диапазон B3:C3, То

если совсем дословно, то

Если пересечение диапазона Target и Range("B3:C3") НЕ равно нично, ТО


А по второму IF - это ваш IF, я просто его оставил в своем коде, но по-моему, он совсем не нужен

[nemoomen]

Второе IF

If IsEmpty(Target) Then Exit Sub

я просто скопировал из книги, на основании которой и писал свой код. Там тоже ничего не объясняется. Но я менять не стал, исходя из принципа - "работает-не трож!"

Спасибо за ответы!

[acorables]

Сообщение от nemoomen

я просто скопировал из книги, на основании которой и писал свой код. Там тоже ничего не объясняется.

А какая книжка, если не секрет? Меня тоже интересует этот вопрос.