Событие ввода данных в ячейку

[tae1980]

Можно ли (и как) отловить событие ввода данных в определенную ячейку?
Вводом данных считаем:
1) Ввод текста на прямую.
2) Выбор значения из списка.

Пока нашел способ отловить событие ввода данных в любую ячейку.

[EducatedFool]

Есть 2 основных варианта (одинаковых по сути):

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [d8].Address Then
        ' изменена ячейка D8
        MsgBox Target.Value
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [d8]) Is Nothing Then
        ' изменена ячейка D8
        MsgBox Target.Value
    End If
End Sub

[tae1980]

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

Есть 2 основных варианта (одинаковых по сути):

Private Sub Worksheet_Change(ByVal Target As Range)
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
End Sub

Эээ.. глупый и идиотский вопрос: "Куда это нужно писать?"

[EducatedFool]

Правой кнопкой на ярлычке листа, выбираем пункт ИСХОДНЫЙ ТЕКСТ.
Так мы попадаем в модуль кода выбранного листа
Туда и вставляем этот код.

PS: Для каждого листа - свой модуль кода.

Кроме того, есть модуль кода книги - аналогичный макрос в этом модуле книги отлавливает события всех листов:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
' этот код уже надо вставлять в модуль книги (называется модуль ЭтаКнига)
    MsgBox "На листе " & Sh.Name & " изменена ячейка " & Target.Address
End Sub

Для отображения окна объектов нажмите Ctrl + R в редакторе VBA

[tae1980]

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

Правой кнопкой на ярлычке листа, выбираем пункт ИСХОДНЫЙ ТЕКСТ.
Так мы попадаем в модуль кода выбранного листа
Туда и вставляем этот код.

PS: Для каждого листа - свой модуль кода.

Кроме того, есть модуль кода книги - аналогичный макрос в этом модуле книги отлавливает события всех листов:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
' этот код уже надо вставлять в модуль книги (называется модуль ЭтаКнига)
    MsgBox "На листе " & Sh.Name & " изменена ячейка " & Target.Address
End Sub

Для отображения окна объектов нажмите Ctrl + R в редакторе VBA

Спасибо! Заработало... Теперь попробуем не много по колдовать....

[EducatedFool]

И ещё: если надо выполнять различные действия при изменении разных ячеек, можете использовать такой код (в модуле листа):

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address
        Case [d8].Address: [e4] = 123       ' изменена ячейка D8
        Case [d6].Address: [d4] = 123       ' изменена ячейка D6
        Case [e3].Address: [e5] = 123       ' изменена ячейка E3
        Case Else: MsgBox Target.Value    ' изменена другая ячейка
    End Select
End Sub

Если надо временно отключить сработку этого обработчика событий (чтобы при изменении ячеек макрос не запускался),
используйте команду Application.EnableEvents = False
Но потом не забудьте включить обработку событий снова: Application.EnableEvents = True

[tae1980]

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

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address
        Case [d8].Address: [e4] = 123       ' изменена ячейка D8
        Case Else: MsgBox Target.Value    ' изменена другая ячейка
    End Select
End Sub

Предположим:

    www=Q21
    Select Case Target.Address
        Case [www].Address: [e4] = 123       ' изменена ячейка D8
        Case [d6].Address: [d4] = 123       ' изменена ячейка D6
        Case [e3].Address: [e5] = 123       ' изменена ячейка E3
        Case Else: MsgBox Target.Value    ' изменена другая ячейка
    End Select

Выдает ошибку... Пробовал в разных вариациях.
Можно ли использовать в даном месте переменные или константы?

[EducatedFool]

Можно ли использовать в даном месте переменные или константы?

Можно. Но это ещё не значит, что можно полностью игнорировать синтаксис VB...

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

    www = "Q21"
    Select Case Target.Address
        Case Range(www).Address: [e4] = 123

Или так:

Dim www As Range: Set www = [Q21]
    Select Case Target.Address
        Case www.Address: [e4] = 123

Ну или так:

    Select Case Target.Address
        Case [Q21].Address: [e4] = 123

Можно ещё как-нибудь попробовать записать тот же код, но, если Вы изобретаете новые синтаксические конструкции для своей программы, не удивляйтесь, что они работать не будут...

[stray_]

Сделал, как здесь описано.
сообщение при изменении ячейки не выдается, событие не ловится.
в чем может быть проблема??

[EducatedFool]

сообщение при изменении ячейки не выдается, событие не ловится.
в чем может быть проблема??

Может, макросы в Excel не включены?

Как включить макросы - показано здесь:
http://excelvba.ru/articles/EnableMacros/Excel