Excel VBA UserForm：ScanInput_Fx文本框光标不显示问题求助

针对你遇到的ScanInput_Fx文本框光标不显示、焦点无法正常跳转的问题，给出以下实用解决建议：

1. 改用按键事件替代_BeforeUpdate处理输入 #

扫描仪输入通常以回车结尾，直接在_KeyPress事件中处理逻辑，避免_BeforeUpdate的Cancel=True干扰焦点状态：

Private Sub ScanInput_Fx_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    ' 捕获扫描仪输入结束的回车信号
    If KeyAscii = vbKeyReturn Then
        ' 执行你的业务逻辑：验证输入、更新计数器、写入单元格、保存PDF
        ' ...（替换为你的原有代码）
        
        ' 清空文本框并强制设置光标位置
        ScanInput_Fx.Text = ""
        ScanInput_Fx.SelStart = 0 ' 光标定位到文本框开头
        ScanInput_Fx.SelLength = 0 ' 取消选中状态
        
        ' 阻止回车触发默认的焦点跳转行为
        KeyAscii = 0
    End If
End Sub

这种方式无需依赖Cancel=True保持焦点，从根源上避免焦点异常问题。

2. 保留_BeforeUpdate时强制设置光标位置 #

如果必须保留_BeforeUpdate事件，在清空文本框后手动指定光标位置，确保光标可见：

Private Sub ScanInput_Fx_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    ' 执行你的验证、数据处理逻辑
    ' ...
    
    ' 清空文本框
    ScanInput_Fx.Text = ""
    Cancel = True ' 保持焦点
    
    ' 强制设置光标到文本框开头
    ScanInput_Fx.SelStart = 0
    ScanInput_Fx.SelLength = 0
End Sub

焦点在控件但光标不显示，大多是因为SelStart值异常，手动重置即可解决。

3. 修复焦点跳转异常问题 #

取消Cancel=True后焦点无法跳转，检查以下两点：

• 动态控件TabIndex冲突：动态生成控件时，确保手动设置TabIndex属性，避免与固定控件ScanInput_Fx的TabIndex重复或顺序混乱。例如：

  ' 动态生成控件时设置TabIndex
  Dim newCtrl As Control
  Set newCtrl = Me.Controls.Add("Forms.TextBox.1", "DynamicTxt")
  newCtrl.TabIndex = Me.Controls.Count - 1 ' 按生成顺序设置
  

• 手动指定焦点跳转目标：如果自动Tab跳转失效，硬编码指定下一个控件的焦点：

  ' 跳转到固定控件
  Me.NextButton.SetFocus
  ' 跳转到动态生成的控件（需知道控件名称）
  Me.Controls("DynamicTxt1").SetFocus
  

4. 用Windows API强制显示光标 #

如果上述方法无效，调用Windows API强制设置光标位置：

' 64位Excel需加PtrSafe，32位去掉
Private Declare PtrSafe Function SetCaretPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Private Sub ScanInput_Fx_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    ' 你的业务逻辑处理
    ' ...
    
    ScanInput_Fx.Text = ""
    Cancel = True
    
    ' 获取文本框的屏幕坐标
    Dim screenX As Long, screenY As Long
    screenX = ScanInput_Fx.Left + Me.Left + Application.Left + 2 ' 偏移2像素避免贴边
    screenY = ScanInput_Fx.Top + Me.Top + Application.Top + 2
    
    ' 强制设置光标位置
    SetCaretPos screenX, screenY
End Sub

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