VBA条码扫描仅返回首位数字，如何获取完整条码？

核心问题原因 #

当前代码使用TextBox1_Change()事件，该事件会在每输入一个字符时立即触发。而条码扫描器是快速连续输出条码字符，最后通常会追加一个回车符作为扫描结束标记。当第一个字符输入时，代码就执行了格式判断逻辑——此时条码还未完全输入，自然找不到-符号，触发了"Wrong Format"分支，直接清空了TextBox1，导致后续扫描的字符无法显示，最终只看到首位数字。

修复方案 #

改用TextBox1_KeyDown()事件监听回车符（扫描器的结束标记），只有当完整条码输入完成后再执行验证逻辑，同时调整判断顺序避免误触发清空操作：

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    ' 监听回车符（条码扫描器默认会追加回车作为扫描结束）
    If KeyCode = vbKeyReturn Then
        Dim scan As String
        Dim premier As Integer
        Dim deuxieme As Integer
        Dim troisieme As Integer
        Dim quatrieme As Integer
        Dim magnetA As Integer, magnetB As Integer, disque As Integer
        
        scan = TextBox1.Value
        ' 先清空TextBox，避免重复处理
        TextBox1.Value = ""
        
        premier = InStr(1, scan, "-")
        deuxieme = InStr(premier + 1, scan, "-")
        troisieme = InStr(deuxieme + 1, scan, "-")
        quatrieme = InStr(troisieme + 1, scan, "-")
        
        ' 先判断有效格式，再处理错误格式
        ' Magnet/A/B/Disc 格式判断
        If premier = 9 And deuxieme = 18 And troisieme = 22 And quatrieme = 27 Then
            magnetA = InStr(1, scan, "A")
            magnetB = InStr(1, scan, "B")
            disque = InStr(1, scan, "D")
            
            TextBox1.BackColor = RGB(0, 255, 0)
            TextBox2.SetFocus
            
            If magnetA = 28 Then
                MsgBox "Magnet A detecté !"
            ElseIf magnetB = 28 Then
                MsgBox "Magnet B detecté !"
            ElseIf disque = 28 Then
                MsgBox "Disque detecté !"
            End If
        ' Brake 格式判断
        ElseIf premier = 9 And deuxieme = 11 Then
            TextBox1.BackColor = RGB(0, 255, 0)
            TextBox2.SetFocus
            MsgBox "Numero frein detecté !"
        ' 错误格式处理
        Else
            TextBox1.BackColor = RGB(255, 0, 0)
            MsgBox "format incorrect !"
            TextBox1.BackColor = RGB(255, 255, 255)
        End If
    End If
End Sub

关键修改点 #

• 切换到KeyDown事件，仅在扫描完成（回车触发）时处理完整条码
• 调整判断顺序，先验证有效格式，最后处理错误格式，避免过早清空输入框
• 统一设置背景色的逻辑，减少冗余代码
• 先保存扫描内容再清空TextBox，确保逻辑基于完整数据执行

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