如何通过关键字筛选二级下拉菜单

默默+1

在第一个表格中有两级下拉菜单，选择“部门”后，可以选择“人员”和“项目名称”，但是项目名称太多了，希望能在项目名称那个单元格内输入关键字后选择下拉菜单，此时下拉菜单中只出现含有该关键字的项目，可以实现吗


第一次发帖求助，希望各位大神帮忙~



我更新了一下表格，这回应该比较清楚了~~~

hugeinfo

你项目明细和人员  部门没有关联关系    怎么建立二级关系？

默默+1

hugeinfo 发表于 2023-1-5 13:26
你项目明细和人员  部门没有关联关系    怎么建立二级关系？

昂，我之前做了，在自己的表里，这个表是新建的来说明一下我的问题，其实这个项目也应该是分部门的，一级下拉菜单关键字筛选我大概知道怎么做，但是这个二级下拉菜单我就没搜到。。。

默默+1

我突然发现自己好像没说清楚。。。项目也要跟部门关联，选了部门以后再选择项目，然后通过输入关键字选择下拉菜单，可以实现吗

苏Lang

默默+1 发表于 2023-1-5 13:38
我突然发现自己好像没说清楚。。。项目也要跟部门关联，选了部门以后再选择项目，然后通过输入关键字选择下 ...

主要你项目表也没写部门怎么关联

3190496160

Private Sub Worksheet_Change(ByVal T As Range)
If T.Row > 1 And T.Column = 3 Then
    If T.Count > 1 Then End
    If T.Value = "" Then End
    Dim d As Object, dc As Object
    Set d = CreateObject("scripting.dictionary")
    With Sheets("项目明细")
        r = .Cells(Rows.Count, 1).End(xlUp).Row
        If r < 2 Then MsgBox "项目明细为空！": End
        ar = .Range("a1:a" & r)
    End With
    zd = T.Value
    For i = 2 To UBound(ar)
        If InStr(ar(i, 1), zd) > 0 Then
            d(ar(i, 1)) = ""
        End If
    Next i
    T.Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(d.keys, ",")
    End With
    T.Select
End If

End Sub
Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Row > 1 And T.Column = 3 Then
    T.Validation.Delete
End If
End Sub

3190496160

工作簿1.rar (18.25 KB, 下载次数: 3)

2023-1-5 14:04 上传

点击文件名下载附件

3190496160

vba完成的，没有考虑，部门，人员，因为你目前的表格，是没法关联的

默默+1

3190496160 发表于 2023-1-5 14:05
vba完成的，没有考虑，部门，人员，因为你目前的表格，是没法关联的

大神再帮我看看呗，我改了一下表格

默默+1

苏Lang 发表于 2023-1-5 13:50
主要你项目表也没写部门怎么关联

我改了一下表格，麻烦再给看看呗