VBA-多级联动菜单-多个数据引用问题-请教

3190496160

一个多级联动菜单，没有必要如你这般复杂的吧，

liulang0808

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address(0, 0) = "B8" Then
        If Len(Target.Offset(0, -1)) > 0 Then
            Set d = CreateObject("scripting.dictionary")
            arr = Sheets("B组").UsedRange
            For j = 2 To UBound(arr)
                If arr(j, 1) = Target.Offset(0, -1) Then d(arr(j, 2)) = ""
            Next j
            With [B8].Validation
                .Delete
                If d.Count > 0 Then
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:=Join(d.keys, ",")
               
                .IgnoreBlank = True
                .InCellDropdown = True
                .InputTitle = ""
                .ErrorTitle = ""
                .InputMessage = ""
                .ErrorMessage = ""
                .IMEMode = xlIMEModeNoControl
                .ShowInput = True
                .ShowError = True
                End If
            End With
        End If
    End If
End Sub

liulang0808

不知道理解的对不对，供参考
针对B8

ivan_xu

liulang0808 发表于 2022-11-28 17:24
不知道理解的对不对，供参考
针对B8

感谢您花了那么多的时间耐心解答和制作范本，我要花点时间吸收下，我打开范本B组没有引用弹出菜单，我要在代码中填写数据吗！谢谢了！

ivan_xu

liulang0808 发表于 2022-11-28 17:24
不知道理解的对不对，供参考
针对B8

感谢您花了那么多的时间耐心解答和制作范本，我要花点时间吸收下，我打开范本B组没有引用弹出菜单，我要在代码中填写数据吗！谢谢了！

liulang0808

ivan_xu 发表于 2022-11-28 22:54
感谢您花了那么多的时间耐心解答和制作范本，我要花点时间吸收下，我打开范本B组没有引用弹出菜单， ...

楼主描述是的是B8单元格，怎么又变成B组了？

ivan_xu

liulang0808 发表于 2022-11-29 07:12
楼主描述是的是B8单元格，怎么又变成B组了？

老师好，可能我表达的有问题，如下图，不知道能表达不