求大神帮助：如何根据参数表中的数据做成两级联动下来菜单

任雨听风

求大神帮助：如何根据参数表中的数据做成两级联动下来菜单，而且在参数表中增添新的数据时前边的下拉餐单也能自动识别出来，例如我后续增加了黄色标识的内容，我前边的菜单也会出现相应的内容（不知道能不能实现）

Enocheasty

应该可以的，跟我做过的地区选择类似，应该没理解错吧！不过我这会没用电脑，手机上的，等明天上电脑了，我可以发我的方法给你参考参考！不用编程序，用公式就行了！

^星^

新建 XLSX 工作表.zip (15.61 KB, 下载次数: 11)

2024-3-10 23:09 上传

点击文件名下载附件

任雨听风

Enocheasty 发表于 2024-3-10 22:34
应该可以的，跟我做过的地区选择类似，应该没理解错吧！不过我这会没用电脑，手机上的，等明天上电脑了，我 ...

好的，感谢

Enocheasty

任雨听风 发表于 2024-3-11 08:29
好的，感谢

我没用你的工作簿，我给你个例子，你看是不是这么回事。
数据表的结构是这样的，第一列为下拉菜单选项，横向为下一级菜单的选项，可以添加数据，添加后，下拉列表自动增加。
工作簿1.zip (12.81 KB, 下载次数: 5)

2024-3-11 08:48 上传

点击文件名下载附件

任雨听风

^星^ 发表于 2024-3-10 23:09

这个有点高级，我有点没看懂，如果我把数据改到其他列，只能实现一级下拉，带不出第二级来
Private Sub Worksheet_SelectionChange(ByVal T As Range)
    Dim arr, i&
    If T.Column > 3 Or T.Row = 1 Or T.Address(0, 0) Like "*:*" Then Exit Sub
    Set dic = CreateObject("scripting.dictionary")
    arr = Sheet2.Range("C1").CurrentRegion
    For i = 3 To UBound(arr)
        If Not dic.exists(arr(i, 3)) Then
            Set dic(arr(i, 3)) = CreateObject("scripting.dictionary")
        End If
        dic(arr(i, 3))(arr(i, 4)) = Empty
    Next
    With T.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=Join(dic.keys, ",")
    End With
End Sub

Private Sub Worksheet_Change(ByVal T As Range)
    If T.Column > 1 Or T.Row = 1 Or T.Address(0, 0) Like "*:*" Then Exit Sub
    With T.Offset(0, 1).Validation
        If dic.exists(T.Value) Then
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=Join(dic(T.Value).keys, ",")
        Else
            MsgBox "查无此值"
        End If
    End With
    Set dic = Nothing
End Sub