EnterKey, aby nacisnąć przycisk w VBA Userform

Question

Mam userform w programie Excel, który prosi o nazwę użytkownika i hasło. Po wpisaniu hasła, jeśli naciśniesz Enter, po prostu "wybierze" następny element, którym jest przycisk LogIn, ale nie naciska go. Musisz ponownie nacisnąć Wprowadź, aby faktycznie nacisnąć przycisk.

Jak mogę to zrobić, gdy naciśnięcie przycisku Enter na klawiaturze spowoduje naciśnięcie przycisku LogIn i zostanie skojarzony z nim kod (Logincode_click)?

Answer 1

Użyj pola tekstowego za teleskopowa Exit wydarzenie:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
    Logincode_Click 
End Sub 

Answer 2

Można także użyć pola tekstowego W dniu Naciśnij klawisz obsługi zdarzenia:

'Keycode for "Enter" is 13 
Private Sub TextBox1_KeyDown(KeyCode As Integer, Shift As Integer) 
    If KeyCode = 13 Then 
     Logincode_Click 
    End If 
End Sub 

Textbox1 jest tego przykładem. Upewnij się, że wybrałeś pole tekstowe, do którego chcesz się odnieść, a także kod Logincode_Click to przykład podtytułu, który wywołujesz (uruchamiasz) tym kodem. Upewnij się, że odnoszą się do preferowanego sub

Answer 3

Ten pracował dla mnie

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 
     If KeyCode = 13 Then 
      Button1_Click 
     End If 
End Sub 

Answer 4

Pamiętaj, aby uniknąć „magicznych liczb” gdy jest to możliwe, albo poprzez definiowanie własnych stałych lub za pomocą wbudowanego Stałe vbXXX.

W tym przypadku możemy użyć vbKeyReturn wskazać kod dostępu klawisz ENTER (w zastępstwie za YourInputControl i SubToBeCalled).

Private Sub YourInputControl_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 
     If KeyCode = vbKeyReturn Then 
      SubToBeCalled 
     End If 
    End Sub 

Zapobiega to całej kategorii problemów ze zgodnością i prostych literówek, szczególnie dlatego, że VBA kapitalizuje dla nas identyfikatory.

Pozdrawiam!

Answer 5

następstwie @ komentarz Penna, aw przypadku przerwy linku, można również osiągnąć poprzez ustawienie właściwości przycisku Default do True (można ustawić to w oknie właściwości, otwarty przez uderzenie F4)

W ten sposób, gdy zostanie naciśnięty Powrót, VBA wie, aby aktywować zdarzenie kliknięcia przycisku. Podobnie ustawienie właściwości przycisku Cancel do True spowoduje zdarzenie click ten przycisk, aby uruchomić ilekroć ESC klucz jest trafiony (przydatne dla wdzięcznie wychodzenia UserForm)

---

Źródło: Odpowiedź Oliviera Jacot-Descombes dostępnej tutaj https://stackoverflow.com/a/22793040/6609896

Answer 6

Tutaj można po prostu użyć:

SendKeys "{ENTER}" na końcu kodu związanego polu Nazwa użytkownika.

Aby pominąć naciśnięcie przycisku ENTER raz (jeden raz).
W wyniku tego zostanie aktywowany następny przycisk (przycisk "Zaloguj się"). A kiedy raz naciśniesz ENTER (pożądany wynik), uruchomi się kod, który jest połączony z przyciskiem "Zaloguj się".