EnterKey按下VBA Userform中的按钮

Question

我在Excel中有一个userform,要求输入用户名和密码.输入密码后如果按下Enter它只是"选择"下一个项目即LogIn按钮,但不按下它.您必须Enter再次按下以实际按下按钮.

当用户按下键盘上的Enter键时,如何按下LogIn按钮并且相关的代码是runs(Logincode_click)？

Answer 1

您还可以使用TextBox的On Key Press事件处理程序:

'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就是一个例子.确保选择要引用的文本框,并且Logincode_Click是您使用此代码调用(运行)的示例子.确保你参考你喜欢的子

Answer 2

请尽可能避免使用"幻数",方法是定义自己的常量,或使用内置的vbXXX常量.

在这个例子中,我们可以使用vbKeyReturn来指示回车键的键码(替换YourInputControl和SubToBeCalled).

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

这可以防止整个类别的兼容性问题和简单的拼写错误,特别是因为VBA为我们大写标识符.

干杯!

Answer 3

这个对我有用

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

使用文本框的Exit事件处理程序：

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