一对多编码，引出多列对应编码数据

lln0618

sulli112 发表于 2024-5-11 21:25
您好，我想请教一下：1.如果我想A&F列作为字典，去总表找对应A&F相同的，取数，是不是只需要修改If ws2.C ...

是的 可以

shiruiqiang

sulli112 发表于 2024-5-13 08:45
您好，请问sql修改条件，是只修改我圈住那里吗，如果加条件，是不是就是将这句话改为a.物料编码=b.物料编 ...

字典加s1\s2条件，sql就是加到on条件

ykcbf1100

参与一下，工作表事件

ykcbf1100

参与一下。。。

1. Private Sub Worksheet_Change(ByVal T As Range)
   
2.     ReDim brr(1 To 10000, 1 To 6)
   
3.     If T.Column = 1 And T.Row >= 2 Then
   
4.         Set d = CreateObject("Scripting.Dictionary")
   
5.         With Sheets("总库存")
   
6.             r = .Cells(Rows.Count, 1).End(3).Row
   
7.             arr = .[a1].Resize(r, 7)
   
8.         End With
   
9.         For i = 2 To UBound(arr)
   
10.             s = arr(i, 1)
    
11.             If Not d.exists(s) Then Set d(s) = CreateObject("Scripting.Dictionary")
    
12.             d(s)(i) = i
    
13.         Next
    
14.         st = T.Value
    
15.         m = 0
    
16.         For Each k In d.keys
    
17.             If st = k Then
    
18.                 For Each kk In d(k).keys
    
19.                     m = m + 1
    
20.                     For j = 2 To UBound(arr, 2)
    
21.                         brr(m, j - 1) = arr(kk, j)
    
22.                     Next
    
23.                 Next
    
24.             End If
    
25.         Next
    
26.         Me.[b2:g1000] = ""
    
27.         Me.[b2].Resize(m, 6) = brr
    
28.     End If
    
29. End Sub
    
30. 
    

复制代码

sulli112

ykcbf1100 发表于 2024-5-13 20:07
参与一下。。。

非常感谢您的帮忙，谢谢