条码枪扫描Excel序列号校验问题及VBA代码优化需求

原代码的核心问题是用错了事件：Worksheet_SelectionChange是选中单元格时触发，导致验证的是即将输入的单元格，而非刚输入完成的目标单元格。以下是修正后的完整解决方案：

修正后的VBA代码 #

右键工作表标签→查看代码，将原有代码替换为以下内容（粘贴到对应工作表的代码窗口）：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim targetCell As Range
    Application.EnableEvents = False
    On Error GoTo ExitSub

    ' 仅处理H列的单个单元格变化
    Set targetCell = Intersect(Target, Me.Columns("H"))
    If Not targetCell Is Nothing And targetCell.Count = 1 Then
        ' 跳过空单元格，验证首字符是否为"S"
        If Trim(targetCell.Value) <> "" Then
            If Left(Trim(targetCell.Value), 1) <> "S" Then
                ' 播放错误提示音
                Call PlayCustomSound
                ' 强制停留在当前单元格，阻止自动跳转
                targetCell.Select
                ' 可选：清空错误输入的内容（取消注释启用）
                ' targetCell.Value = ""
            Else
                ' 验证通过，跳转到下一行H列单元格
                Me.Cells(targetCell.Row + 1, "H").Select
            End If
        End If
    End If

ExitSub:
    Application.EnableEvents = True
End Sub

' 自定义提示音播放过程（两种可选实现）
Private Sub PlayCustomSound()
    ' 方案1：系统蜂鸣音（简单无需额外文件）
    Beep
    
    ' 方案2：播放自定义WAV音频文件（替换为你的音频路径后启用）
    ' Dim soundPath As String
    ' soundPath = "C:\your-error-sound.wav"
    ' If Dir(soundPath) <> "" Then
    '     Call sndPlaySound32(soundPath, 0)
    ' End If
End Sub

' 如果使用方案2播放自定义WAV，需添加以下API声明（放在代码窗口顶部）
' Private Declare PtrSafe Function sndPlaySound32 Lib "winmm.dll" _
'     Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

关键逻辑说明 #

1. 事件替换：改用Worksheet_Change事件，确保条码枪输入完成（自动回车触发）后立即验证刚输入的内容
2. 范围限定：仅监听H列的单个单元格变化，避免干扰其他列操作
3. 验证规则：检查输入内容的首字符是否为"S"，空单元格直接跳过
4. 错误处理：输入不符合规则时，播放提示音并强制选中当前单元格，阻止自动跳转
5. 正常流程：输入符合规则时，自动跳转到下一行H列，支持连续扫码操作

注意事项 #

• 条码枪需保持默认设置：输入完成后自动回车，否则无法触发Worksheet_Change事件
• 使用自定义WAV音频时，需确保文件路径正确，且启用对应的API声明

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