Изменение данных в ячейке через ЕНТЕР

[ForYou]

Подскажите пожалуйста. Есть несколько записей из таблицы в екселе. Необходимо чтобы при изменении данных в ексели данные поменялись в таблице. Делаю так

Код: Выделить всё

Private Sub Worksheet_Change(ByVal target As Range)
Dim Row, Col As Integer
Dim MyValue As String
Row = target.Row
Col = target.Column
Application.OnKey "ENTER", UpdateFunc Key,Value
End Sub


получаю error. Как правильно реализовать чтоб после изменения данных в ячейки данные обновлялись по результату нажатия клавиши Ентер. Если же нажата другая кнопка то вернуть первоначальные данные? Заранее спасибо

[GSerg]

Не знаю, можно ли переопределить энтер, не буду пробовать
Но, в любом случае, не "ENTER", а "{ENTER}". Второй же параметр (ты думал, это function pointer? Эх, если бы) - это строка, содержащая имя функции. У тебя это "UpdateFunc". И никаких параметров в этом случае.

[ForYou]

Проблема заключается в том, что при изменении данных в ячейки эти данные сразу нада изменить в самой базе... Но данные также изменяютс когда я первый раз вывожу их из базы на Екселевский лист. Получается если не ввести како либо обработчик то данные будут изменятся всегда... Немного сумбурно, но все-таки

[Cyrax]

проблема заключается в том, как у тебя написан код события Change

для начала объявление переменных
Dim Row, Col As Integer

переменная Row имеет тип Variant, переменная Col - Integer

второе: Application.OnKey "ENTER", UpdateFunc Key,Value
где скобки, я вас спрашиваю
должно быть:
Application.OnKey "{ENTER}", UpdateFunc(Key,Value)