自动链接数据

cn6181

想在产品名称后输入型号后

能通过链接“型号单”自动导出数据。

杨小军

一个名字对应有几个型号，是全部显示出来，还是显示某个？

zhaogang1960

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address(0, 0) <> "C5" Then Exit Sub
   
3.     If Target = "" Then Exit Sub
   
4.     Dim arr, brr(), d As Object, c As Range, i&, j&
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     arr = Range("B8:B" & Range("a65536").End(xlUp).Row)
   
7.     For i = 1 To UBound(arr)
   
8.         d(arr(i, 1)) = i
   
9.     Next
   
10.     ReDim brr(1 To i - 1, 1 To 1)
    
11.     With Sheets("型号单")
    
12.         arr = .Range("A1").CurrentRegion
    
13.         Set c = .Range("a:a").Find(Target, , , 1, , , True)
    
14.         If Not c Is Nothing Then
    
15.             i = c.Row
    
16.             For j = 2 To UBound(arr, 2)
    
17.                 If d.Exists(arr(1, j)) Then brr(d(arr(1, j)), 1) = arr(i, j)
    
18.             Next
    
19.         End If
    
20.     End With
    
21.     [c8].Resize(UBound(brr)) = brr
    
22. End Sub
    
23. 
    

复制代码

zhaogang1960

仅显示查到的第一个型号所在行数据，请看附件
换型表.rar (47.94 KB, 下载次数: 29)

2012-9-17 21:48 上传

点击文件名下载附件