EXCEL扫码问题求助

coolbo66

各位大神请教一个问题，我想实现以下功能：
扫描一个产品的二维码在A列如果是9909开头的则在B列显示“可以出货”，然后光标跳到A列继续扫下一个。如果是0235开头的则在B列显示“请更换标签”，然后用户扫一个9909的标签后，自动在C列同一行录入这个9909开头的条码数据，然后光标又跳到A列继续扫描。如能帮忙解答将不盛感激，多谢了！

大灰狼1976

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.CountLarge > 1 Then Exit Sub
   
3. If Target.Column > 1 And Target.Column <> 3 Then Exit Sub
   
4. If Target Like "9909*" Then
   
5.   Target.Offset(, 1) = "Yes"
   
6.   If Target.Column = 3 Then Target.Offset(1, -2).Select
   
7. ElseIf Target Like "0235*" Then
   
8.   Target.Offset(, 1) = "No"
   
9.   Target.Offset(, 2).Select
   
10. End If
    
11. End Sub

复制代码

coolbo66

大灰狼1976 发表于 2020-3-24 10:35

兄弟太感谢了，一段代码解决了我的大问题，再次感谢！