Frage : Wie ziehe ich automatisch auf die folgende Zelle um, wenn ich eine single-digit Zahl eingebe?

Ich möchte viele single-digit Nr. eingeben (1 bis 4) in einem Verteilungsbogen. Ich kann viel Zeit speichern, wenn ich die eingeben oder Tabulatortaste nicht nach jeder Zahl schlagen muss. Ich kann dies im Zugang using VBA tun, indem ich das keypress Ereignis gefangennehme und Fokus zum folgenden Feld einstelle. Ich bin nicht mit Excel VBA, however.

I werde eingeben die Zahlen in den Zellen A1 sehr vertraut: D5000. Es gibt auch viele Zellen, die ich freien Raum verlassen wünsche, also möchte ich die Tabulatortaste (oder irgendeinen anderen Schlüssel) gerade schlagen um einen Zellenfreien raum zu lassen.

After gebe ich eine Zahl in Spalte D ein, wünsche ich Excel sich zurück zu Spalte A bewegen (und 1 Reihe niederwerfen). Wenn ich das Viereck der Zellen vorwählen muss, die ich Werte in eintrage, um dies zu tun, ist das fine.

Antwort : Wie ziehe ich automatisch auf die folgende Zelle um, wenn ich eine single-digit Zahl eingebe?

Jetzt mit den Schlüsseln.

Zurzeit nicht mit NumPad schon, nur mit den Standardschlüsseln auf Haupttastaturfach.

Aber es funktioniert bereits:-)

Dieses in Arbeitsbuchgegenstand einsetzen.
Ihn einmal laufen lassen, um die Anweisung zu starten.

Privates VorWorkbook_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““
Enden-Unterseeboot

Dieses in Modul 1 dann einsetzen

Sub MyProcedure (m als ganze Zahl)
ActiveCell.Value = m
Wenn ActiveCell.Column = 4 dann
    ActiveCell.Offset (1, -3). Aktivieren
ElseIf ActiveCell.Column <� 4="" Then="">    ActiveCell.Offset (0, 1).Activate
Beenden wenn
Unterseeboot beenden

Prüfen.

Dieses auch irgendwo addieren, also können Sie die 1-10 Schlüssel zum Standard wieder zuweisen.

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“