按Enter键进入VBA Excel后，继续关注文本框

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关键字完全限定语句。