Vraag : Hoe beweeg ik me automatisch aan de volgende cel wanneer ik een enig-cijferaantal inga?

Ik wil heel wat enig-cijferaantallen (1 door 4) in een spreadsheet ingaan. Ik kan heel wat tijd sparen als ik niet de Enter of sleutel van het Lusje na elk aantal moet raken. Ik kan dit in Toegang doen gebruikend VBA door de keypressgebeurtenis te vangen en nadruk te plaatsen aan het volgende gebied. Ik ben niet zeer vertrouwd met Excel VBA, zal however.

I de aantallen in Cellen A1 ingaan: D5000. Er zijn ook heel wat cellen die ik wil leeg verlaten, zodat zou ik de sleutel van het Lusje (of een andere sleutel) willen enkel raken om een celspatie te verlaten.

After ga ik een aantal in kolom D in, wil ik Excel me terug naar kolom A (en 1 rij verslaan) bewegen. Als ik de rechthoek van cellen moet selecteren ga ik waarden in in om dit te doen, is dat fine.

Antwoord : Hoe beweeg ik me automatisch aan de volgende cel wanneer ik een enig-cijferaantal inga?

Nu, met de sleutels.

Niet voorlopig met NumPad nog, slechts met de standaardSleutels bovenop hoofdtoetsenborddeel.

Maar het werkt reeds: -)

Zet dit in het voorwerp van het Werkboek.
Stel het in werking eens om de taak te lanceren.

Privé SubWorkbook_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““
Sub van het eind

Dan zet dit in Module 1

Sub MyProcedure (m als Geheel)
ActiveCell.Value = m
Als ActiveCell.Column = 4 toen
    ActiveCell.Offset (1, -3). Activeer
ElseIf ActiveCell.Column <� 4="" Then="">    ActiveCell.Offset (0, 1). Activeer
Beëindig als
Beëindig Sub

Test.

Voeg ook ergens dit toe zodat kunt u de 1-10 sleutels volgens norm opnieuw toewijzen.

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“