库存数据内包含已经录入的条形码且唯一
库存数据内包含已经录入的条形码且唯一
想要达到的效果:一,在对话框输入条形码,会自行判断此条形码是否已录入,未录入则该条码跳转至C20(之后的 ...
想要达到的效果:在对话框输入条形码,会自行判断此条形码是否已录入,未录入则该条码跳转至C20(之后的新条码在C20的下一行录入,以此类推)。如果该条码包含于库存数据的C列,则从C3开始向下输入即可
Sub 条形码扫描()
On Error Resume Next
Dim rng As Range
rng = InputBox("请输入条形码")
Set rng = Sheets("库存数据").Range("C:C").Find(Sheets("新货入库").[C3], LOOKAT:=xlWhole)
If rng Is Nothing Then
For I = 20 To 34
Sheets("新货入库").Cells(I, 3) = rng
Next I
Else
Sheets("新货入库").Cells(3, 3) = rng
Exit Sub
End If
End Sub
这是我借鉴相关代码 自己改的。但达不到我想要的效果。希望高手能指点一下,或者重新写代码,感谢!
|