[已解决]请问查询商品资料，如果有则显示名称，没有则新增

葱哥

       求各位大神指点，一个进销存的表，里面有商品资料，入库单，销售，调拨，库存，在入库单和销售，调拨里，输入条码，自动显示商品名称，这个已经实现了。现在想新增一个功能，如果商品资料里没有的产品，在入库单，销售，和调拨录入的时候自动新增到商品资料里。

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-7-31 12:57

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
Dim rng As Range
If Target.Column = 2 Then
  If Target.Value = "" Then Target(1, 2) = "": Exit Sub
  Set rng = Sheet5.Columns(1).Find(Target)
  If Not rng Is Nothing Then Target(1, 2) = rng(1, 2)
ElseIf Target.Column = 3 Then
  If Target <> "" Then
    Sheet5.[a65536].End(3).Offset(1) = Target.Offset(, -1)
    Sheet5.[b65536].End(3).Offset(1) = Target
  End If
End If
Application.EnableEvents = True
End Sub

跳转到最佳答案楼层

大灰狼1976

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
Dim rng As Range
If Target.Column = 2 Then
  If Target.Value = "" Then Target(1, 2) = "": Exit Sub
  Set rng = Sheet5.Columns(1).Find(Target)
  If Not rng Is Nothing Then Target(1, 2) = rng(1, 2)
ElseIf Target.Column = 3 Then
  If Target <> "" Then
    Sheet5.[a65536].End(3).Offset(1) = Target.Offset(, -1)
    Sheet5.[b65536].End(3).Offset(1) = Target
  End If
End If
Application.EnableEvents = True
End Sub

葱哥

大灰狼1976 发表于 2017-7-31 12:57
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application. ...

感谢版主大大，Find用精确查找完美解决。

葱哥

大灰狼1976 发表于 2017-7-31 12:57
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application. ...

版主大大，出现一个问题，B列和C列不为空白的时候，比如双击B6，再双击C6，就向商品资料里添加一次商品信息，重复操作一次就添加一次，能不能加一个判断，如果商品资料里有此条码就不用增加了呀。另外版主大大能不能帮看下统计库存的代码呀，当销售为负数时，计数不正确。

大灰狼1976

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. Application.EnableEvents = False
   
4. Dim rng As Range
   
5. If Target.Column = 2 Then
   
6.   If Target.Value = "" Then Target(1, 2) = "": Exit Sub
   
7.   Set rng = Sheet5.Columns(1).Find(Target)
   
8.   If Not rng Is Nothing Then Target(1, 2) = rng(1, 2)
   
9. ElseIf Target.Column = 3 Then
   
10.   If Target <> "" Then
    
11.     With Sheet5
    
12.       Set rng = .Columns(1).Find(Target.Offset(, -1))
    
13.       If rng Is Nothing Then
    
14.         .[a65536].End(3).Offset(1) = Target.Offset(, -1)
    
15.         .[b65536].End(3).Offset(1) = Target
    
16.       End If
    
17.     End With
    
18.   End If
    
19. End If
    
20. Application.EnableEvents = True
    
21. End Sub

复制代码

大灰狼1976

统计错误我帮不了你，代码中有汉字，我这边都显示成乱码。