1

我正在尝试让 Excel 用作库存扫描阅读器。我在扫描时遇到问题，因为它在我扫描时不断添加到 col A，即使它是重复的，我希望它能够识别出扫描的项目与最后一个相同并添加到 col QTY。如果有人可以帮助我如何编写代码，那就太好了！

图片 - 我不会放一张，但 COL A 是条形码，COL B 是说明，COL C 是数量。

4

1 回答 1

4

将此代码放在工作表代码模块中（右键单击选项卡并选择“查看代码”）。

您的列表标题进入 A4（条形码）B4（描述）C4（计数）。选择单元格 A1 并开始扫描。如果它在列表中找到匹配项，它将更新计数，如果没有，则添加一个新行。我只通过输入值进行了测试，但只要每次扫描都发送 {enter} ，扫描仪的工作方式应该相同。

Private Sub Worksheet_Change(ByVal Target As Range)

    Const SCAN_CELL As String = "A1"
    Const RANGE_BC As String = "A5:A500"
    Dim val, f As Range, rngCodes As Range

    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Me.Range(SCAN_CELL)) Is Nothing Then Exit Sub

    val = Trim(Target.Value)
    If Len(val) = 0 Then Exit Sub

    Set rngCodes = Me.Range(RANGE_BC)

    Set f = rngCodes.Find(val, , xlValues, xlWhole)
    If Not f Is Nothing Then
        With f.Offset(0, 2)
            .Value = .Value + 1
        End With
    Else
        Set f = rngCodes.Cells(rngCodes.Cells.Count).End(xlUp).Offset(1, 0)
        f.Value = val
        f.Offset(0, 1).Value = "enter description"
        f.Offset(0, 2).Value = 1
    End If

    Application.EnableEvents = False
    Target.Value = ""
    Application.EnableEvents = True

    Target.Select

End Sub
于 2012-07-10T17:16:04.597 回答