|
你的意思是你需要输入的条码和“备份”中的二维码不一样?实际上是你扫描的条码在“备份”中搜索“简码”,然后得到对应的内容对吗?这样的话
把CommandButton2_Click事件中
If Sheet3.Range("L:L").Find(TextBox1.Value, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then MsgBox "未能找到该条码": Exit Sub
改成下面这样:
If Sheet3.Range("F:F").Find(Mid(TextBox1.Value,1,5), LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then MsgBox "未能找到该条码": Exit Sub
截取前5位搜索简码。
二维码数量的问题,不论产品来源来自哪里,产品型号应该都是唯一的,就算不同厂、不同供应商,只要是同一产品,型号应该都是一致的吧?你的二维码图片可以这样命名:型号+装箱数量,这样调用的时候就根据型号+实装数量调用二维码,包括满箱也这样命名
把CommandButton1_Click事件中
If Sheet5.Range("B10").Value = Sheet5.Range("D10").Value Then
Sheet5.LoadER.Picture = LoadPicture(ThisWorkbook.Path & "\ERcode\" & Sheet5.Range("B7").Value & ".jpg") '加载满箱二维码图片
Else
Sheet5.LoadER.Picture = LoadPicture(ThisWorkbook.Path & "\ERcode\" & Sheet5.Range("B7").Value & "D.jpg") '加载半箱二维码图片
End If
改成以下这样:
Sheet5.LoadER.Picture = LoadPicture(ThisWorkbook.Path & "\ERcode\" & Sheet5.Range("B7").Value & Sheet5.Range("D10").Value & ".jpg") |
|