UserForm中TextBox二维码扫描后自动重置并循环接收输入的实现

核心逻辑 #

利用二维码扫描器默认追加的回车符触发输入完成事件，验证ID格式后执行已有处理逻辑，最后重置输入框状态，实现循环扫描。

代码实现 #

1. TextBox1 回车触发事件（推荐方案） #

多数扫描器会自动在扫描内容后追加回车，以此作为输入完成的标记：

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    ' 捕获扫描器的结束回车（KeyCode=13）
    If KeyCode = 13 Then
        KeyCode = 0 ' 阻止回车触发默认表单行为
        
        Dim scanID As String
        scanID = Trim(TextBox1.Text)
        
        ' 验证ID格式：10位、开头为P、第6位是下划线
        If Len(scanID) = 10 And Left(scanID, 1) = "P" And Mid(scanID, 6, 1) = "_" Then
            ' 调用你已有的ID处理逻辑（排序、同步到其他TextBox）
            ProcessScanID scanID
            
            ' 重置输入框：清空文本+光标归位
            TextBox1.Text = ""
            TextBox1.SetFocus
            TextBox1.SelStart = 0
        Else
            MsgBox "扫描ID格式错误，请重新扫描", vbExclamation
            TextBox1.Text = ""
            TextBox1.SetFocus
        End If
    End If
End Sub

2. 自定义ID处理过程（替换为你的已有代码） #

把你已有的排序、数据同步逻辑放到这个子过程里：

Private Sub ProcessScanID(scanID As String)
    ' 这里写入你已有的代码：
    ' 示例（仅作参考）：
    ' TextBox2.Text = Left(scanID, 5) ' 提取Pxxxx前缀
    ' TextBox3.Text = Right(scanID, 4) ' 提取xxxx后缀
    ' 输入文本排序逻辑...
End Sub

3. 备选方案：无回车时用长度触发 #

如果扫描器不支持追加回车，可通过输入长度判断完成状态：

Private Sub TextBox1_Change()
    Dim scanID As String
    scanID = Trim(TextBox1.Text)
    
    If Len(scanID) = 10 And Left(scanID, 1) = "P" And Mid(scanID, 6, 1) = "_" Then
        ' 临时禁用事件，避免清空文本时重复触发Change
        Application.EnableEvents = False
        
        ProcessScanID scanID
        TextBox1.Text = ""
        TextBox1.SetFocus
        TextBox1.SelStart = 0
        
        Application.EnableEvents = True
    End If
End Sub

注意事项 #

• 确认扫描器设置：优先开启「追加回车符」功能，这是最可靠的触发方式
• 若出现重复触发问题，在重置输入框时临时禁用事件（如备选方案中的Application.EnableEvents）

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