3级联动下拉菜单问题 求助

vba小白菜阿

我在第3列做了3级的联动下拉菜单，现在想在M列做数据有效性下拉列表  数据源在“数据2”中，手工添加也不行  应该是跟前面的联动下拉菜单有冲突  求助论坛大神   有没有优化的办法  

蓝桥玄霜

没有“数据2”表？

vba小白菜阿

蓝桥玄霜 发表于 2022-12-13 13:37
没有“数据2”表？

不好意思  表格没保存好  现在我重新上传一下附件

vba小白菜阿

蓝桥玄霜 发表于 2022-12-13 13:37
没有“数据2”表？

蓝版主 您好  上面帖子提出的问题已经解决了

现在我想再请教您一个问题：我们现在做的树形3级联动下拉菜单，需要有3列单元格输入1/2/3级菜单的内容。那能不能做出 在单列单元格中选择3级联动下拉菜单，最终输入第3级菜单的内容呢？

蓝桥玄霜

下拉菜单的例子：

快乐阿飞

vba小白菜阿 发表于 2022-12-13 17:19
蓝版主 您好  上面帖子提出的问题已经解决了

现在我想再请教您一个问题：我们现在做的树形3级联动下 ...

这个改一下里面那个 writerng 的输出范围就行了啊

快乐阿飞

vba小白菜阿 发表于 2022-12-13 17:19
蓝版主 您好  上面帖子提出的问题已经解决了

现在我想再请教您一个问题：我们现在做的树形3级联动下 ...

Public Sub WriteToRng(i, N_col)
    ActiveCell.EntireRow.Range("C1").Resize(1, N_col) = Sheets("数据").Range("A" & i).Resize(1, N_col).Value
End Sub
修改成
Public Sub WriteToRng(i, N_col)
    ActiveCell.value= Sheets("数据").cells(i, N_col).Value
End Sub

vba小白菜阿

蓝桥玄霜 发表于 2022-12-14 08:10
下拉菜单的例子：

感谢蓝版主

vba小白菜阿

快乐阿飞 发表于 2022-12-14 20:09
Public Sub WriteToRng(i, N_col)
    ActiveCell.EntireRow.Range("C1").Resize(1, N_col) = Sheets(" ...

感谢感谢 可以完美实现想要的效果

vba小白菜阿

快乐阿飞 发表于 2022-12-14 20:09
Public Sub WriteToRng(i, N_col)
    ActiveCell.EntireRow.Range("C1").Resize(1, N_col) = Sheets(" ...

你好请问一下  能不能在同一个工作表中实现两种3级联动下拉菜单？
比如说：在工作表A、B、C 三列实现3级联动下拉菜单，在E、F、G三列实现另外内容的3级联动下拉菜单