Вопрос : Как я автоматически двигаю к следующей клетке когда я вписываю single-digit номер?

Я хочу вписать много single-digit номера (1 до 4) в электронная таблица. Я могу сохранить долговременно если я не должен ударить вход или клавишу табуляции после каждого номера. Я могу сделать это в доступе using VBA путем захватывать случай keypress и устанавливать фокус к следующему полю. Я не очень знаком с Эксел VBA, however.

I буду входить в номера в клетки A1: D5000. Будут также много клетки я хочу для того чтобы выйти пробел, поэтому я хотел был бы как раз ударить клавишу табуляции (или любой другой ключа) для того чтобы выйти пробел клетки.

After я вписываю номер в колонку d, я хочу Эксел двинуть назад к колонке a (и опустить 1 рядок). Если мне нужно выбрать прямоугольник клеток, котор я вхожу в значения в для того чтобы сделать это, то будет fine. class=

Ответ : Как я автоматически двигаю к следующей клетке когда я вписываю single-digit номер?

Теперь, с ключами.

В данную минуту не с NumPad пока, только с стандартными ключами na górze главным образом части клавиатуры.

Но она работает уже -)

Положите это в предмет Workbook.
Бегите оно раз для того чтобы запустить назначение.

Приватное Sub Workbook_Open ()
Application.OnKey «1»,» «Module1.MyProcedure 1»»
Application.OnKey «2»,» «Module1.MyProcedure 2»»
Application.OnKey «3»,» «Module1.MyProcedure 3»»
Application.OnKey «4»,» «Module1.MyProcedure 4»»
Application.OnKey «5»,» «Module1.MyProcedure 5»»
Application.OnKey «6»,» «Module1.MyProcedure 6»»
Application.OnKey «7»,» «Module1.MyProcedure 7»»
Application.OnKey «8»,» «Module1.MyProcedure 8»»
Application.OnKey «9»,» «Module1.MyProcedure 9»»
Application.OnKey «0»,» «Module1.MyProcedure 0»»
Подводная лодка конца

После этого положите это в модуль 1

Sub MyProcedure (m как интежер)
ActiveCell.Value = m
Если ActiveCell.Column = 4 после этого
    ActiveCell.Offset (1, -3). Активируйте
ElseIf ActiveCell.Column <� 4="" Then="">    ActiveCell.Offset (0, 1).Activate
Закончитесь если
Закончите подводную лодку

Испытайте.

Также добавьте это где-то поэтому вы можете переподчинить 1-10 ключей к стандарту.

Application.OnKey «1»
Application.OnKey «2»
Application.OnKey «3»
Application.OnKey «4»
Application.OnKey «5»
Application.OnKey «6»
Application.OnKey «7»
Application.OnKey «8»
Application.OnKey «9»
Application.OnKey «0»