[已解决]请老师帮忙修改，在查询出[库存]数据后，根据[编码]匹配[记录]中的类型

win9

图片说明： 类似效果：=VLOOKUP(库存!$B2,记录!A:E,5,0)
附件：
查询【库存】数据，匹配【记录】类型.rar (28.34 KB, 下载次数: 6)

2016-7-9 23:15 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-7-11 09:17

1. Private Sub CommandButton1_Click()
   
2.     Dim d, i%
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     ListView1.ListItems.Clear '清除listview1中的内容
   
5.     With Sheets("记录")
   
6.         For j = 2 To .[A65536].End(xlUp).Row
   
7.             If Not d.Exists(.Cells(j, 1).Value) Then
   
8.                 d.Add .Cells(j, 1).Value, .Cells(j, 5).Value
   
9.             End If
   
10.         Next
    
11.     End With
    
12.    
    
13.     With Sheets("库存")
    
14.     For i = 2 To .[C65536].End(xlUp).Row
    
15.         If InStr(1, .Cells(i, 3).Value, TextBox1.Text, vbTextCompare) Then
    
16.         Set itm = ListView1.ListItems.Add() '为listview1控件里面的行添加内容
    
17.             itm.Text = .Cells(i, 2) '为行标赋值
    
18.             itm.SubItems(1) = .Cells(i, 3)
    
19.             itm.SubItems(2) = .Cells(i, 4)
    
20.             itm.SubItems(3) = .Cells(i, 5)
    
21.             itm.SubItems(4) = .Cells(i, 6)
    
22.             itm.SubItems(5) = d(.Cells(i, 3).Value)
    
23.         End If
    
24.     Next i
    
25.     If ListView1.ListItems.Count = 0 Then MsgBox "未查询到相关记录！", 64, "结果"
    
26.     End With
    
27. 
    
28. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

1. Private Sub CommandButton1_Click()
   
2.     Dim d, i%
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     ListView1.ListItems.Clear '清除listview1中的内容
   
5.     With Sheets("记录")
   
6.         For j = 2 To .[A65536].End(xlUp).Row
   
7.             If Not d.Exists(.Cells(j, 1).Value) Then
   
8.                 d.Add .Cells(j, 1).Value, .Cells(j, 5).Value
   
9.             End If
   
10.         Next
    
11.     End With
    
12.    
    
13.     With Sheets("库存")
    
14.     For i = 2 To .[C65536].End(xlUp).Row
    
15.         If InStr(1, .Cells(i, 3).Value, TextBox1.Text, vbTextCompare) Then
    
16.         Set itm = ListView1.ListItems.Add() '为listview1控件里面的行添加内容
    
17.             itm.Text = .Cells(i, 2) '为行标赋值
    
18.             itm.SubItems(1) = .Cells(i, 3)
    
19.             itm.SubItems(2) = .Cells(i, 4)
    
20.             itm.SubItems(3) = .Cells(i, 5)
    
21.             itm.SubItems(4) = .Cells(i, 6)
    
22.             itm.SubItems(5) = d(.Cells(i, 3).Value)
    
23.         End If
    
24.     Next i
    
25.     If ListView1.ListItems.Count = 0 Then MsgBox "未查询到相关记录！", 64, "结果"
    
26.     End With
    
27. 
    
28. End Sub

复制代码