求助VBA引用代码到单元格

天真无鞋

求助VBA引用代码，
1、当F3单元格输入信息后触发获取【检验项目】对应的信息到EXCEL单元格里面；
2、当F3单元格输入信息后无任何触发【检验项目】清单无信息的时候，可手动输入信息后可保存到检验项目清单里作为引用清单；
详见附加信息！

ykcbf1100

完成第一部分。第二部分如果用工作表事件的情况下我目前没想好怎么做。

ykcbf1100

工作表事件。。。

1. Private Sub Worksheet_Change(ByVal T As Range)
   
2.     If T.Column = 6 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.             zrr = .[a1].Resize(r, 27)
   
9.         End With
   
10.         For i = 2 To UBound(zrr)
    
11.             s = CStr(zrr(i, 1))
    
12.             d(s) = i
    
13.         Next
    
14.         b = [{2,3,4,5,6,7,8,9,10,11,12,15,18,19,20,21,23,24,25,26,27}]
    
15.         m = 15
    
16.         st = CStr(T.Value)
    
17.         If d.Exists(st) Then
    
18.             Me.[a17].Resize(1, 7) = ""
    
19.             Me.[a19].Resize(1, 7) = ""
    
20.             Me.[a21].Resize(1, 7) = ""
    
21.             For j = 1 To UBound(b) Step 7
    
22.                 m = m + 2
    
23.                 For x = 1 To 7
    
24.                     Me.Cells(m, x) = zrr(d(st), b(j + x - 1))
    
25.                 Next
    
26.             Next
    
27.         End If
    
28.         Set d = Nothing
    
29.         Application.ScreenUpdating = True
    
30.     End If
    
31. End Sub
    

复制代码

天真无鞋

ykcbf1100 发表于 2024-4-10 19:48
完成第一部分。第二部分如果用工作表事件的情况下我目前没想好怎么做。

第二部分，只有用按钮，非常感谢你！

EHGOOD

写个试试。