数量macros观优于库存
我正在尝试让Excel作为库存扫描阅读器工作。 我在扫描时遇到了问题，因为它在扫描时会不断添加到列A中，即使它是重复的，我也希望它能够识别出扫描的项目与最后一项相同，并添加到列数中。 如果任何人能够帮助我如何去做一些很棒的代码！
图片 – 它不会让我把一个，但是COL A是条形码，COL B是描述和COL C是数量。
将此代码放在表单代码模块中（右键单击选项卡并select“查看代码”）。
您的列表标题为A4（条形码）B4（描述）C4（计数）。 select单元格A1并开始扫描。 如果它在列表中find一个匹配，它将更新计数，如果不是，则会添加一个新行。 我只是通过input值来进行testing，但只要在每次扫描时发送{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