求一个下拉菜单，可实时变化

qunzhujunjun

如附件，谢谢

tanglf188

修改E3单元格即可，E4单元格有辅助公式。

3190496160

Private Sub Worksheet_Change(ByVal T As Range)
If T.Row = 3 And T.Column = 5 Then
    If T.Count > 1 Then End
    If T.Value = "" Then End
    mykey_1 = Trim(T.Offset(, -1))
    mykey_2 = Trim(T.Value)
    T.Offset(, 1).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=Join(d(mykey_2).keys, ",")
    End With
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Row = 3 And T.Column = 5 Then
    If T.Count > 1 Then End
    Set d = CreateObject("scripting.dictionary")
    r = Cells(Rows.Count, 2).End(xlUp).Row
    ar = Range("b3:c" & r)
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) <> "" Then
            If Not IsNumeric(ar(i, 1)) Then
                If Not d.exists(Trim(ar(i, 1))) Then
                    Set d(Trim(ar(i, 1))) = CreateObject("scripting.dictionary")
                End If
                d(Trim(ar(i, 1)))(Trim(ar(i, 2))) = ""
            End If
        End If
    Next i
    T.Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=Join(d.keys, ",")
    End With
End If
End Sub

3190496160

下拉菜单.rar (16.11 KB, 下载次数: 22)

2023-1-9 17:28 上传

点击文件名下载附件

3190496160

注意：模块1中有一个公共变量

qunzhujunjun

3190496160 发表于 2023-1-9 17:28

试了一下，很好用！但是发现一个问题，当选了大类，中类不选时，中类的下拉格子里的字，还保留在上一次的状态。
也因此有了新的需求，就是，当大类下拉选好后，中类的下拉，第一个选项显示为：全部。
也就是在每个大类选择的时候，第一个选项都是全部，其次再是对应的中类
麻烦看下如何修改，感谢。

3190496160

qunzhujunjun 发表于 2023-1-9 19:03
试了一下，很好用！但是发现一个问题，当选了大类，中类不选时，中类的下拉格子里的字，还保留在上一次的 ...

选择大类是，清空对应的中类不就行了？搞个全部有啥用？？？？画蛇添足？？？？

洋务德雷

你这个问题的关键还是数据的提取问题。
如果你使用SQL技术，可以不用透视表提取出你想要的数据，并作为数据源来进行操作。
文件你可以看一下。也给你上传了一个GIF动图示意。

这种做法，不用编写复杂的vba，也不用函数公式。简单方便。

qunzhujunjun

3190496160 发表于 2023-1-9 19:59
选择大类是，清空对应的中类不就行了？搞个全部有啥用？？？？画蛇添足？？？？

是需要有全部这个词，因为其他的表关联数据是用sumifs来的，需要在中类中加一个字段，不然无法求和此大类下全部中类的数据

qunzhujunjun

3190496160 发表于 2023-1-9 19:59
选择大类是，清空对应的中类不就行了？搞个全部有啥用？？？？画蛇添足？？？？

我想到办法解决“全部”那个问题了（在大类那一列，插入3行，手动填写3个全部就可以。）帮忙修改一下，每次选完大类，清空中类，谢谢啦！