请高手做一个VBA代码，实现配置查询

chenhaitao1115

请高手做一个VBA代码，实现配置查询，每输入一个项目编码，相关的配置信息自动切换

约定的童话

Sub test()
    Dim i, n, arr, brr()
    arr = Sheets("01 项目配置数据库").[a1].CurrentRegion
    n = 1
    ReDim brr(1 To 8, 1 To 1)
    For i = 2 To UBound(arr)
        If arr(i, 2) = [a2] Then
            For j = 3 To UBound(arr, 2)
                brr(n, 1) = arr(i, j)
                n = n + 1
            Next
        End If
    Next
    [b4].Resize(UBound(brr)) = brr
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Len(Cells(Target.Row, Target.Column)) = 4 Then
   Call test
   Else
   [b4:b11] = ""
   End If
End Sub

chenhaitao1115

约定的童话 发表于 2019-6-14 18:20
Sub test()
    Dim i, n, arr, brr()
    arr = Sheets("01 项目配置数据库").[a1].CurrentRegion

你不仅跟金城武一样帅，还有高超的技术，感谢你解决了我的问题，我也学到了新技能

chenhaitao1115

chenhaitao1115 发表于 2019-6-14 21:40
你不仅跟金城武一样帅，还有高超的技术，感谢你解决了我的问题，我也学到了新技能

好像有点问题，当点击到其他空白区域时，配置信息没有了，是空白，能解决这个问题吗

约定的童话

chenhaitao1115 发表于 2019-6-14 22:27
好像有点问题，当点击到其他空白区域时，配置信息没有了，是空白，能解决这个问题吗

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 2 And Target.Column = 1 Then
   Call test
   End If
End Sub
好用记得评分哈