扫描枪扫到表格及数据核对

wuhaowu

q求助大佬，解决以下2个问题，1.仓库用扫描枪扫到表格，先横扫4格，再回到下一列。2.扫的数据和原始数据核对，不对的数据自动用颜色标记。如图所示。

dragonthree

不明白为什么要用扫描枪扫描？整行标色吧？

wuhaowu

dragonthree 发表于 2024-1-29 14:27
不明白为什么要用扫描枪扫描？整行标色吧？

人工核对老是错误，所以换成扫描枪来扫描核对了. 就错了的标色。

3190496160

就是一个数据比对的问题嘛，数组+字典就可以搞定的，没必要用什么扫描枪的，
先把sheet2中的数据赋值给一个数组，在数组中循环并赋值给字典，然后跟sheet1比对即可

于箱长

条码上的信息都包括哪些，是包括了单列信息还是四列信息全有？

3190496160

Sub 数据比对()
Dim ar As Variant
Dim d As Object
Dim rn As Range
Set d = CreateObject("scripting.dictionary")
With Sheets("sheet2")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 2 Then MsgBox "sheet2为空！": End
    ar = .Range("a1:d" & r)
End With
For i = 2 To UBound(ar)
    zf = ""
    If ar(i, 1) <> "" Then
        For j = 1 To 4
            If j = 1 Then
                zf = ar(i, j)
            Else
                zf = zf & "|" & ar(i, j)
            End If
        Next j
        d(zf) = i
    End If
Next i
With Sheets("sheet1")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    If rs < 2 Then MsgBox "sheet1为空！": End
    br = .Range("a1:d" & rs)
    .Range("a1:d" & rs).Interior.ColorIndex = 0
    For i = 2 To UBound(br)
        zf = ""
        If br(i, 1) <> "" Then
            For j = 1 To 4
                If j = 1 Then
                    zf = br(i, j)
                Else
                    zf = zf & "|" & br(i, j)
                End If
            Next j
            xh = d(zf)
            If xh = "" Then
                If rn Is Nothing Then
                    Set rn = .Range("a" & i).Resize(1, 4)
                Else
                    Set rn = Union(rn, .Range("a" & i).Resize(1, 4))
                End If
            End If
        End If
    Next i
    If Not rn Is Nothing Then rn.Interior.ColorIndex = 6
End With
MsgBox "ok!"
End Sub

3190496160

点击按钮即可
新建 Microsoft Excel 工作表 (3).rar (18.99 KB, 下载次数: 35)

2024-1-29 17:11 上传

点击文件名下载附件

wuhaowu

于箱长 发表于 2024-1-29 16:51
条码上的信息都包括哪些，是包括了单列信息还是四列信息全有？

只有单列信息的。就是要横跳4下，再跳到下一列，不知道能不能实现

wuhaowu

3190496160 发表于 2024-1-29 17:11
点击按钮即可

大佬 如果可以还是要麻烦实现一个功能，表1的数据是要扫描上去，库位.        SKU        .TAG        .数量. 一个一个横着跳过去的，然后再跳到下一列，就是A2,B2,C2,D2,最后才跳到A3....这样跳的。

于箱长

wuhaowu 发表于 2024-1-30 09:26
只有单列信息的。就是要横跳4下，再跳到下一列，不知道能不能实现

每行内容要扫四次吗？