关于输入时逐步提示信息的问题

vinaread

麻烦求高手帮忙调整一下 VBA的编程~   
我希望能做到输入名称的时候   编号 分类 规格和单价~都能一起出来~~  

拜托了   因为我是小菜鸟已经研究了好几天了{:soso_e118:}  感觉还是不是很懂~  
麻烦各位大哥哥大姐姐们 各位 高手们~  帮帮忙 帮我调整一下吧~！{:soso_e121:}  
可以加我QQ  506440705      探讨一下 也是可以的~  谢谢啦~  

huang1314wei

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Column = 4 And Target.Row > 2 Then
   
3.        Dim i%, arr
   
4.        arr = Sheet4.Range("A1").CurrentRegion
   
5.        For i = 2 To UBound(arr)
   
6.         If Target.Value = arr(i, 2) Then
   
7.            With Sheet4
   
8.             .Range(.Cells(i, 3), .Cells(i, 6)).Copy
   
9.             Target.Offset(0, 1).PasteSpecial Paste:=xlPasteValues
   
10.             Target.Select
    
11.             Application.CutCopyMode = False
    
12.            End With
    
13.         End If
    
14.        Next
    
15.     End If
    
16. End Sub

复制代码

huang1314wei

附件供参考


供应商 - 副本.rar (666.46 KB, 下载次数: 77)

2015-6-18 07:47 上传

点击文件名下载附件

huang1314wei

附件供参考

dianthe83

对这个完全没有概念，都不知道那个框是怎么出来d