多级联动菜单的解决方案

先行者

不好意思，还有一个问题，字段再增加的话，应该怎么修改
附件是效果截图

谢谢

一指禅62

按字典表的规律添加相应资料即可

先行者

您好，不是我特意挑难，实在是工作需要，刚好有这些要求。
   这个真的有点难，没学得很好，我都不怎么看得懂，改不出来。希望您能抽空帮助一下，楼主新年快乐！！！
  十分感谢{:soso_e154:}

先行者

希望帮一下忙，我查了好多资料，还是查不到4级以上联动的，自己做真的做不出来~，谢谢  

一指禅62

方便的话，把相关资料给我，试试看。QQ475369339

先行者

您好，公司里不能用qq。十分抱歉。
我对您的资料做了问题的提出，基本就是我工作里需要做的。
我上传了附件，希望能解答一下，谢谢~

先行者

就是这个

一指禅62

先行者 发表于 2014-1-28 11:44
您好，公司里不能用qq。十分抱歉。
我对您的资料做了问题的提出，基本就是我工作里需要做的。
我上传了附 ...

红色部分是添加的，批注处有改动。体会一下。

一指禅62

先行者 发表于 2014-1-27 15:48
楼主大大，还有几个小问题。希望帮一下~

1，字段选择的时候要按回车键，这里的回车键可不可以改为鼠标 ...

关于1：鼠标协同动作不是本方案的优势（降低录入速度），请您自己琢磨吧；

关于2：在下列事件中作修改

Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
     ……
'            ActiveCell.Resize(1, UBound(arr) + 1) = arr’输入多级科目名称
        ActiveCell = Split(Trim(ListBox1), " ")(1)  '输入末级科目名称
     ……

end sub
关于3：结合上述建议修改

先行者

一指禅62 发表于 2014-1-28 15:33
红色部分是添加的，批注处有改动。体会一下。

您好，隐藏前面单元格的问题已经解决了，十分感谢。

剩下的两个问题。  
1，增加字段，我看了您发的图片，疑问的是您在增加了次级科目办公室，生产科以后，这时候编码应该怎么改动，才能继续多级联动。

2，前面几个单元格如果不隐藏，而是将它们合并应该怎么改动，谢谢楼主，麻烦了

例如把“银行/中国银行帐户/人民币帐户”显示在一个单元格中，谢谢！