在 VBA Excel 中按 Enter 后，将注意力集中在文本框上

Question

我在按 Enter 时无法关注文本框。我知道已经解决了一个类似的问题，但由于某种原因它不起作用。

此代码检测到在MeasuredDim 文本框中按下了输入，然后调用NextDim_click 子。 NextDim_click 也可以通过命令按钮工作，并且还包含MeasuredDim.SetFocus，并且通过按下按钮可以正常工作，但是在按下 Enter 后调用 NextDim_click 时，焦点会丢失在整个用户窗体上。

它怎么不适合我？

 Private Sub MeasuredDim_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then
    Call NextDim_Click
    KeyCode = 0
    MeasuredDim.SetFocus
    End If
    End Sub

Answer 1

这对我有用：

Private Sub MeasuredDim_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then
        Call NextDim_Click
        KeyCode = 0
        Me.MeasuredDim.SetFocus
    End If
End Sub

Private Sub NextDim_Click()
    MsgBox "NextDim_Click"
End Sub

注意这条线

Me.MeasuredDim.SetFocus

Me 关键字完全限定语句。