Excel VBA中TextBox的SetFocus异常问题：寻求光标定位解决方案

1. 修正代码逻辑错误 #

你当前的代码逻辑存在偏差：当txt4（第二组的第二个TextBox）非空时，错误地将焦点设置到txt2（第一组的第二个），而非第二组的第一个txt3。正确的分组对应关系应为：

• 第一组：txt1（组内第一个）、txt2（组内第二个）
• 第二组：txt3（组内第一个）、txt4（组内第二个）
• 第三组：txt5（组内第一个）、txt6（组内第二个）

2. 调整事件触发时机 #

AfterUpdate事件是在控件内容更新且失去焦点后触发的，此时系统可能已经自动转移焦点，导致SetFocus指令被覆盖。建议直接在每组第二个TextBox的AfterUpdate事件中单独处理，而非通过通用的txtMain_AfterUpdate。

3. 确保SetFocus生效的代码实现 #

通用处理过程 #

先编写一个通用子过程，统一处理焦点设置逻辑：

Private Sub SetFocusToGroupFirst(targetTextBox As Control, groupFirstTextBox As Control)
    ' 验证目标控件非空，且要聚焦的控件处于可用、可见状态
    If targetTextBox.Text <> "" And groupFirstTextBox.Enabled And groupFirstTextBox.Visible Then
        DoEvents ' 让系统处理当前消息队列，确保焦点设置生效
        groupFirstTextBox.SetFocus
    End If
End Sub

绑定对应TextBox的AfterUpdate事件 #

分别为每组的第二个TextBox添加AfterUpdate事件：

Private Sub txt2_AfterUpdate()
    SetFocusToGroupFirst txt2, txt1
End Sub

Private Sub txt4_AfterUpdate()
    SetFocusToGroupFirst txt4, txt3
End Sub

Private Sub txt6_AfterUpdate()
    SetFocusToGroupFirst txt6, txt5
End Sub

4. 额外排查点 #

• 检查txt1、txt3、txt5的Enabled和Visible属性是否为True，禁用或隐藏的控件无法获取焦点。
• 若表单使用了BeforeUpdate事件，确认该事件中没有阻止焦点转移的逻辑。
• 避免在Change事件中处理焦点：该事件会随每一次字符输入触发，频繁调用SetFocus会导致焦点混乱，不符合你的需求场景。

内容的提问来源于stack exchange，提问作者Pasquale Prudente