按下文本文本中的键，然后转到特定单元格

Question

如何使用输入文本框在文本框中移动光标？

这是我的代码，它给我一个语法错误。

Private Sub TextBox2_Change()
    Sheets("30").Range("D18") = TextBox2.Value
    TextBox2.Enter Then Sheets("30").Range("E19").Select
End Sub

Answer 1

使用KeyUp事件并检查KeyCode vbKeyReturn，而不是使用Change事件：

Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = KeyCodeConstants.vbKeyReturn Then
        Sheets("30").Range("E19").Select
    End If
End Sub