geben Sie ein Zeichen in das Arbeitsblatt ein mit bestätigen (return/enter)

Question

Ich habe ein Arbeitsblatt, in dem Benutzer ein Zeichen in einer Zelle eingeben müssen und ich möchte die Zelle den neuen Wert annehmen, ohne RETURN (oder drücken ENTER) und bleiben Sie in der gleichen Zelle.

enter status in one cell without confirmation

Wie kann ich das erreichen?

Grtz BARTH

Answer 1

OK, für WinAPI Suche figuered ich eine passende Lösung aus:

In Workbook_Open und Sheet_Activate ich die Application.OnKey Verfahren zu stoppen meine Schlüssel verwendet, wie:

Private Sub Workbook_Open() 
    Application.OnKey ("1"), "testOne" 
    'Here other keys 
End Sub 

und

Private Sub Worksheet_Activate() 
    Application.OnKey ("1"), "testOne" 
    'Here other keys 
End Sub 

während der folgenden Verfahren (e) in einem Standard-Modul kümmern, was ich brauchte:

Sub testOne() 
    ActiveCell.Value = 1 
End Sub 
'And Sub testTwo() etc. 

(Ich brauche keine Eingabe von Werten in den anderen Zellen zu erlauben, zu stören, da sie ohnehin gesperrt sind.)

Achten Sie darauf, die Freilassung von OnKey in Workbook_BeforeClose und Sheet_Deactive setzen:

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
    Application.OnKey ("1") 
    'Here other keys 
End Sub 

Private Sub Worksheet_Deactivate() 
    Application.OnKey ("1") 
    'Here other keys 
End Sub 

Vielleicht nicht die fortschrittlichste Lösung, aber es funktioniert für das, was ich brauche.

Grtz BartH