Questione : Come mi muovo automaticamente verso la cellula seguente quando entro in un numero single-digit?

Voglio entrare in molti numeri single-digit (1 attraverso 4) in un foglio elettronico. Posso conservare molto tempo se non devo colpire la chiave di linguetta o di introduzione dopo ogni numero. Posso fare questo nell'accesso using VBA mediante la cattura dell'evento dei keypress e la regolazione del fuoco al campo seguente. Non ho una conoscenza di molto con Excel VBA, however.

I fornirò i numeri in cellule A1: D5000. Ci sono inoltre molte cellule che voglio per lasciare lo spazio in bianco, in modo da vorrei colpire appena la chiave di linguetta (o qualunque altra chiave) per lasciare uno spazio in bianco delle cellule.

After fornisco un numero in colonna D, voglio Excel muovermi di nuovo alla colonna A (e scolarsi 1 fila). Se devo selezionare il rettangolo delle cellule che sto fornendo i valori in per fare questo, quello è fine. class= del

Risposta : Come mi muovo automaticamente verso la cellula seguente quando entro in un numero single-digit?

Ora, con le chiavi.

Per il momento non con NumPad ancora, soltanto con le chiavi standard in cima al divisorio principale della tastiera.

Ma funziona già: -)

Mettere questo nell'oggetto del libro di esercizi.
Farlo funzionare una volta per lanciare l'assegnazione.

Workbook_Open secondario riservato ()
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„„
Sommergibile dell'estremità

Allora mettere questo in modulo 1

Sub MyProcedure (m. come numero intero)
ActiveCell.Value = m.
Se ActiveCell.Column = 4 allora
    ActiveCell.Offset (1, -3). Attivare
ElseIf ActiveCell.Column <� 4="" Then="">    ActiveCell.Offset (0, 1).Activate
Concluder se
Concludere il sommergibile

Provare.

Inoltre aggiungere questo in qualche luogo in modo da potete riassegnare le 1-10 chiavi al campione.

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„