Question : Comment est-ce que je me déplace automatiquement à la prochaine cellule quand j'introduis un nombre single-digit ?

Je veux introduire beaucoup de nombres single-digit (1 4) dans un bilan. Je peux sauver beaucoup de temps si je ne dois pas enfoncer la touche de pénétrer dans ou d'étiquette après chaque nombre. Je peux faire ceci dans l'accès using VBA en capturant l'événement de keypress et en plaçant le foyer au prochain champ. Je ne suis pas très familiarisé avec Excel VBA, however.

I introduirai les nombres en cellules A1 : D5000. Il y a également beaucoup de cellules que je veux pour partir du blanc, ainsi je voudrais enfoncer juste la clef d'étiquette (ou toute autre touche) pour laisser un blanc de cellules. le

After j'introduis un nombre dans la colonne D, je veux qu'Excel se déplace de nouveau à la colonne A (et avaler 1 rangée). Si je dois choisir le rectangle des cellules que j'écris des valeurs dans pour faire ceci, c'est fine. class= de

Réponse : Comment est-ce que je me déplace automatiquement à la prochaine cellule quand j'introduis un nombre single-digit ?

Maintenant, avec les clefs.

Pour le moment pas avec NumPad encore, seulement avec les clefs standard sur la cloison principale de clavier.

Mais cela fonctionne déjà : -)

Mettre ceci dans l'objet de cahier de travail.
Le courir une fois pour lancer la tâche.

Workbook_Open secondaire privé ()
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 » »
Sous-marin d'extrémité

Mettre alors ceci dans le module 1

Substrater MyProcedure (m comme nombre entier)
ActiveCell.Value = m
Si ActiveCell.Column = 4 puis
    ActiveCell.Offset (1, -3). Activer
ElseIf ActiveCell.Column <� 4="" Then="">    ActiveCell.Offset (0, 1).Activate
Finir si
Finir le sous-marin

Examiner.

Ajouter également ceci quelque part ainsi vous pouvez attribuer à nouveau les 1-10 clefs à la norme.

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 »