君子以泽,怎样写网络小说,完美世界辰东

您的位置: 敏用首頁

條碼掃描器在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表格需要設置單元格格式為文本。

效果如下圖所示：