条码扫描器在Excel下扫描时，扫描后同类商品能否计数？-敏用数码(上海北京深圳)|专注于条码数据处理

您的位置: 敏用首页

条码扫描器在Excel下扫描时，扫描后同类商品能否计数？

发布时间： 2012-10-19 8:02:15

问题：

条码扫描器在Excel下扫描时，扫描后同类商品能否计数？也就是说，比如我扫描了一个商品，条码是固定的，它会在A1记录条码信息的同时，在横向的第二单元格（B1）计数，再扫第二件商品，如果条码信息跟上面扫描的一样，它会自动在那个单元格（B1）增加一个计数，如果条码信息不一样，他会重新在A2记录条码信息，并在B2计数，以此类推。

敏用数码解答：

条码扫描器在Excel下扫描时的自动计数功能可以实现，需要在Excel表格中的“工具”-“宏”-“ Visual Basic编辑器”中添加如下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Long

    If WorksheetFunction.CountA(Target) = 0 Then
        Selection.Font.ColorIndex = xlAutomatic
        Selection.Interior.Pattern = xlNone
    End If
    If Target.Column() <> 1 Then Exit Sub

    Application.EnableEvents = False
    On Error GoTo Err

    For i = 1 To Target.Row()
        If Cells(i, 1).Value = Target.Value Then
            Cells(i, 2).Value = Cells(i, 2).Value + 1
            Exit For
        End If
    Next i
    If i = Target.Row() Then
        Target.Offset(1, 0).Select
    Else
        Target.Select
        Target.Clear
    End If

Err:
    Application.EnableEvents = True
    On Error GoTo 0
End Sub

代码添加后，就可以实现扫描结果的自动计数。使用时需要注意的两点：

1、条码扫描器后缀需加回车与换行。

2、Excel表格需要设置单元格格式为文本。

效果如下图所示：

<a href="http://www.chongshang.com.cn/Productmain_01.shtml">条码打印机</a>
<a href="http://www.chongshang.com.cn/Productmain_03.shtml">数据采集器</a>