已知两个条件，做对应的下拉菜单，求大神帮忙！

swl4561255

不好意思，此条作废，不知道什么原因，用数据有效性设置好的下拉菜单，保存后再打开下拉菜单没有了。试了两次都一样。本人才疏学浅，还是第一次碰到这情况 ，有路过的大神顺便帮看看是什么情况。
我的操作如下：
一、总表中选中C2单元格，数据-数据有效性-序列-来源中输入公式：

=OFFSET(INDIRECT("参照表!C"&MATCH(1,(参照表!A2:A19=A2)*(参照表!B2:B19=B2),)+1),,,SUM((参照表!A2:A19=A2)*(参照表!B2:B19=B2)))

完成后，测试一切正常。但保存后就没有了，没有任何提示。

wm863636363

swl4561255 发表于 2024-3-29 18:55
附件供参考。

点了没有反应啊，大佬

swl4561255

wm863636363 发表于 2024-3-29 18:59
点了没有反应啊，大佬

不好意思，我也在郁闷中，当时测试是正常的，但保存退出后就没有了，试了两次都一样，不知道什么原因，我也正想顺便请教一个路过的大神们，你们有遇到这样的情况吗？
我的操作是这样的：
一、选中C2单元格，数据-数据有效性-序列-来源中输入公式：
=OFFSET(INDIRECT("参照表!C"&MATCH(1,(参照表!A2:A19=$A$2)*(参照表!B2:B19=$B$2),)+1),,,SUM((参照表!A2:A19=$A$2)*(参照表!B2:B19=$B$2)))
您也可以试试看能不能保存下来。

山菊花

wm863636363 发表于 2024-3-29 18:54
再帮我改一个从E列开始的，只显示EFG这三列下拉，然后“基础表”可以录入到9999行的，麻烦大佬了，跪谢！ ...

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim nL%
    nL = Target.Column
    If Target.Row = 1 Or nL < 5 Or nL > 6 Or Target.CountLarge > 1 Then Exit Sub
    Application.EnableEvents = False
    Target.Offset(0, 1).Resize(1, 7 - nL).ClearContents
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim sj(), nL%, cTxt$, nRow%, Arr(), ds As Object
    Set ds = CreateObject("Scripting.Dictionary")
    nL = Target.Column - 4
    If Target.Row = 1 Or nL < 1 Or nL > 3 Or Target.CountLarge > 1 Then Exit Sub
    sj = Range("e" & Target.Row).Resize(1, 2).Value
    With Sheets("基础")
        nRow = .Cells(99999, nL).End(xlUp).Row
        Arr = .Range("a1").Resize(nRow, nL).Value
    End With
    For i = 2 To nRow
        For j = 1 To nL - 1
            If Arr(i, j) <> sj(1, j) Then Exit For
        Next
        If j = nL And Not ds.exists(Arr(i, nL)) Then
            ds(Arr(i, nL)) = ""
            cTxt = cTxt & "," & Arr(i, nL)
        End If
    Next
    With Target.Validation
        .Delete
        If cTxt <> "" Then .Add 3, 1, 1, Mid(cTxt, 2)
    End With
End Sub

wm863636363

山菊花 发表于 2024-3-29 20:02
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim nL%
    nL = Target.Column

牛批，谢谢大佬，

nini1990429

用了两种方法，没有辅助列，看看吧

tomcluse_1227

二级下拉菜单，要做3次名称定义