Excel VBA窗体TextBox SetFocus失效求助：扫码后无法自动聚焦

看起来你遇到的是扫码枪默认输出行为干扰焦点设置的典型问题！我来帮你拆解原因，再给出落地的解决方案：

问题根源 #

你的Symbol LI4278扫码枪在扫描完成后，大概率会自动向系统发送回车（Enter）或Tab字符来模拟“确认”操作。你在txtSKU_Change事件里写的txtSKU.SetFocus虽然逻辑上没问题，但扫码枪后续发送的回车会触发系统默认的焦点跳转（比如跳到Tab顺序的下一个控件），直接覆盖了你手动设置的焦点。

另外，Change事件是每输入一个字符就触发一次，当第13位条码输入完成后你设置了焦点，但紧接着的回车会立刻把焦点移走，所以你看不到预期效果。

解决方案：拦截扫码枪的回车事件 #

我们改用txtSKU的KeyPress事件来处理扫码完成的动作——这是扫码枪输出的最后一步，能精准拦截回车并完全控制焦点：

步骤1：替换原代码（或补充事件） #

删除原有的txtSKU_Change事件，或者保留它并新增KeyPress事件（推荐用KeyPress更可靠），代码如下：

Private Sub txtSKU_KeyPress(KeyAscii As Integer)
    ' 拦截扫码枪发送的回车（ASCII码13）
    If KeyAscii = 13 Then
        Application.EnableEvents = False
        
        ' 验证条码长度是否符合要求
        If Len(Me.txtSKU.Value) = 13 Then
            ' 添加数据到列表框
            Me.L1.ColumnCount = 3
            Me.L1.AddItem Me.txtBulto.Value
            Me.L1.List(Me.L1.ListCount - 1, 1) = Me.txtSKU.Value
            Me.L1.List(Me.L1.ListCount - 1, 2) = Me.txtAuditor2.Value
            
            ' 清空SKU文本框，方便下一次扫描
            Me.txtSKU.Value = ""
        End If
        
        ' 强制将焦点设置回SKU文本框
        Me.txtSKU.SetFocus
        ' 取消回车的默认行为（避免焦点自动跳转）
        KeyAscii = 0
        
        Application.EnableEvents = True
    End If
End Sub

步骤2：（可选）调整扫码枪硬件设置 #

如果不想改代码，也可以直接修改Symbol LI4278的设置：扫描对应的设备设置码，关闭“扫描后添加回车/Tab”的功能。不过用代码拦截的好处是不用修改硬件配置，换其他型号扫码枪也能兼容。

额外优化建议 #

• 可以在txtSKU的GotFocus事件里自动选中全部文本，这样下一次扫码会直接覆盖原有内容，操作更流畅：

  Private Sub txtSKU_GotFocus()
      Me.txtSKU.SelStart = 0
      Me.txtSKU.SelLength = Len(Me.txtSKU.Value)
  End Sub
  

• 检查窗体的Tab顺序：确保txtSKU的TabIndex设置合理，避免意外的焦点跳转（不过拦截回车后这个影响不大）。

这样修改后，你扫描完SKU条码，系统会自动处理数据、清空文本框并把焦点留在txtSKU里，完全不用手动按Tab键，操作流程会顺畅很多！

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