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

myexcel2014

xjl565135022 发表于 2024-11-14 16:52

谢谢大神，加个keycode=0果然解决了我的问题，太感觉了。
方便解释下底层运行逻辑吗？为什么要加keycode=0, textbox1的setfocus才有效。

myexcel2014

lss001 发表于 2024-11-14 17:43
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Key ...

谢谢你的回复，之前也试过这个方法，但是有个缺点，就是如果要选其它控件时，其它控件无法获得焦点，比如我扫描了多份入库单后，现在想将combox控件中的"入库" 选为"出库",就无法操作了。

大灰狼1976

1. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
2. TextBox2 = TextBox1
   
3. TextBox3 = Now
   
4. TextBox1 = ""
   
5. Cancel = True
   
6. End Sub

复制代码

xjl565135022

阻止默认的回车行为（即防止焦点转移到其他控件）,简单点来说就是让回车失效

myexcel2014

xjl565135022 发表于 2024-11-15 15:25
阻止默认的回车行为（即防止焦点转移到其他控件）,简单点来说就是让回车失效

好的，谢谢。
但是奇怪的是，在不加keycode=0的情况下，除了textbox1.setfocus不行，但对其它控键setfocus就可以，比如下面的textbox3.setfocus ，感觉是Textbox的keyDown事件里不能对自已setfocus,对别的控键可以setfocus
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
TextBox2 = TextBox1
TextBox3 = Now
TextBox1 = ""
TextBox3.SetFocus
End If
End Sub