Cuestión : ¿Cómo me traslado automáticamente a la célula siguiente cuando incorporo un número single-digit?

Quiero incorporar muchos números single-digit (1 a 4) en una hoja de balance. Puedo ahorrar mucho tiempo si no tengo que golpear el tabulador de la entrada o después de cada número. Puedo hacer esto en el acceso usar VBA capturando el acontecimiento de los keypress y fijando el foco al campo siguiente. No soy muy familiar con Excel VBA, however.

I incorporaré los números en las células A1: D5000. Hay también muchas células que quiero para salir del espacio en blanco, así que quisiera apenas golpear el tabulador (o cualquie otra llave) para dejar un espacio en blanco de la célula. el

After incorporo un número a la columna D, quisiera que Excel se moviera de nuevo a la columna A (y tragar 1 fila). Si necesito seleccionar el rectángulo de células que estoy incorporando valores en para hacer esto, ése es fine. class= del

Respuesta : ¿Cómo me traslado automáticamente a la célula siguiente cuando incorporo un número single-digit?

Ahora, con las llaves.

Por el momento no con NumPad todavía, solamente con las llaves estándar encima de la partición principal del teclado.

Pero trabaja ya:-)

Poner esto en objeto del libro de trabajo.
Funcionarlo una vez para poner en marcha la asignación.

Workbook_Open secundario privado ()
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””
Submarino del extremo

Entonces poner esto en el módulo 1

Sub MyProcedure (m como número entero)
ActiveCell.Value = m
Si ActiveCell.Column = 4 entonces
    ActiveCell.Offset (1, -3). Activar
ElseIf ActiveCell.Column <� 4="" Then="">    ActiveCell.Offset (0, 1).Activate
Terminar si
Terminar el submarino

Probar.

También agregar esto en alguna parte así que usted puede reasignar las 1-10 llaves al estándar.

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”