excel中点击回车时，如何激活按钮的click事件

swjia8315

如图，当左侧textbox控件被激活时，点击回车，需要能够自动按下右侧查找按钮，激活按钮的click的事件
（如果textbox没有激活时按回车，不click按钮）
请问如何做？谢谢！

boyayes

逻辑就是：
使用KeyDown事件或KeyUp事件，判断是哪个键，如果是回车键，就执行某命令。
KeyDown事件是你按下时就会触发。
KeyUp事件是按下时不触发，它是在弹起时触发。




Private Sub CommandButton1_Click()
    MsgBox TextBox1.Value
End Sub

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then
        CommandButton1_Click '此行代码帮你点击按钮
    End If
End Sub

半百

试试是不是这样？

swjia8315

半百 发表于 2023-9-22 22:09
试试是不是这样？

赞，确实可以，感谢！！

swjia8315

半百 发表于 2023-9-22 22:09
试试是不是这样？

想请问下，能否设置个快捷键（组合键也行）
使得在excel上工作时，点击快捷键，能够快速使激活textbox1

chis3

swjia8315 发表于 2023-9-22 22:55
想请问下，能否设置个快捷键（组合键也行）
使得在excel上工作时，点击快捷键，能够快速使激活textbox1

onkey就行了

露露德

boyayes 发表于 2023-9-22 21:51
逻辑就是：
使用KeyDown事件或KeyUp事件，判断是哪个键，如果是回车键，就执行某命令。
KeyDown事件是 ...

CommandButton1_Click '此行代码帮你点击按钮


请教一下 在以下环境里是不是就不能用这种类似的方法呀？

1. Private Sub Worksheet_Calculate()
   
2.   textbox1_KeyDown
   
3. End Sub
   

复制代码

boyayes

是的，过程中自带Button变量的才行。
例如：
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

End Sub