VBA自动引用数据

天真无鞋

求EXCEL VBA，输入信息自动获取相应信息到单元格代码，详见附件信息。

ykcbf1100

都是英文，二表间关系看不明白啊

ykcbf1100

工作表事件

ykcbf1100

参与一下。。。

1. Private Sub Worksheet_Change(ByVal T As Range)
   
2.     If T.Column = 1 And T.Row = 3 Then
   
3.         Dim arr, d
   
4.         Application.ScreenUpdating = False
   
5.         Set d = CreateObject("Scripting.Dictionary")
   
6.         With Sheets("引用清单")
   
7.             r = .Cells(.Rows.Count, "a").End(xlUp).Row
   
8.             arr = .[a1].Resize(r, 26)
   
9.         End With
   
10.         For i = 2 To UBound(arr)
    
11.             s = arr(i, 5)
    
12.             d(s) = Array(arr(i, 2), arr(i, 18), arr(i, 21), arr(i, 3), arr(i, 17))
    
13.         Next
    
14.         s = Me.[a3]
    
15.         If d.exists(s) Then
    
16.             Me.[b3] = d(s)(0)
    
17.             Me.[d3] = d(s)(1)
    
18.             Me.[a5] = d(s)(2)
    
19.             Me.[b6] = d(s)(3)
    
20.             Me.[d6] = d(s)(4)
    
21.         End If
    
22.         Set d = Nothing
    
23.         Application.ScreenUpdating = True
    
24.     End If
    
25. End Sub
    

复制代码

天真无鞋

ykcbf1100 发表于 2024-3-12 19:30
参与一下。。。

非常感谢老师，完全正确。