excel VBA中 userform中控件焦点跳转问题

myexcel2014

请大家帮忙看看，想要在textbox1中输入完成，按enter键执行完一系列操作后，最后焦点回到textbox1,以达到连续输入的目的。但目前textbox1.setfoucs不起作用，如以下代码，texbox1按enter, 光标就跑到textbox2

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
TextBox2 = TextBox1
TextBox3 = Now
TextBox1 = ""
TextBox1.SetFocus
End If
End Sub

xjl565135022

1. Private Sub Textbox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2. If KeyCode = vbKeyReturn Then
   
3.     TextBox2 = TextBox1
   
4.     TextBox3 = Now
   
5.     TextBox1 = ""
   
6.     KeyCode = 0
   
7.     TextBox1.SetFocus
   
8. End If
   
9. End Sub

复制代码

lss001

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
   TextBox2 = TextBox1
   TextBox3 = Now
End If
End Sub

Private Sub TextBox2_Enter()
TextBox1 = "" '焦点回到TextBox1
TextBox1.SetFocus
End Sub

Private Sub TextBox3_Enter()
TextBox1 = "" '焦点回到TextBox1
TextBox1.SetFocus
End Sub