多级联动菜单的解决方案

一指禅62

先行者 发表于 2014-1-28 11:46
就是这个

说明：添加了科目级别，分全部显示各级科目、两个单元格显示科目、只显示末级科目三种情况三种情况演示。

多级联动的解决方法修改.zip (41.55 KB, 下载次数: 189)

2014-1-28 16:52 上传

点击文件名下载附件

一指禅62

先行者 发表于 2014-1-28 16:18
您好，隐藏前面单元格的问题已经解决了，十分感谢。

剩下的两个问题。  

看下面的语句：

一指禅62

先行者 发表于 2014-1-28 16:18
您好，隐藏前面单元格的问题已经解决了，十分感谢。

剩下的两个问题。  

关于“在增加了次级科目办公室，生产科以后，这时候编码应该怎么改动，才能继续多级联动”：

科目增减或科目级数变化无需修改代码。

先行者

一指禅62 发表于 2014-1-28 17:13
关于“在增加了次级科目办公室，生产科以后，这时候编码应该怎么改动，才能继续多级联动”：

科目增减 ...

十分感谢您百忙之中帮助解决麻烦，谢谢，不好意思，我表达不清楚。再麻烦一下下，
就是如果我想把所有的字段显示在一个单元格中，应该怎么修改代码，谢谢~

新年快乐！！！

一指禅62

先行者 发表于 2014-1-28 17:32
十分感谢您百忙之中帮助解决麻烦，谢谢，不好意思，我表达不清楚。再麻烦一下下，
就是如果我想把所有的 ...

32楼就是啊

1. ActiveCell=Qm

复制代码

先行者

谢谢一指禅大侠，让我先试一试，再来请教，谢谢！

先行者

楼主你好，我有个问题还是不能解决，麻烦你看一下
我需要把字段1和字段2中的内容合并显示成字段3中的内容。就是在代码中将字段3的内容直接生成，不需要后面由字段1和2再作调整。代码应该如何调整？

一指禅62

先行者 发表于 2014-1-29 10:22
楼主你好，我有个问题还是不能解决，麻烦你看一下
我需要把字段1和字段2中的内容合并显示成字段3中的内容。 ...

请看截图中的两端代码（体会被注释掉的）

一指禅62

分割后每级科目占一个单元格

1.                 ActiveCell = Qm
   
2.                 ActiveCell.Offset(0, 1) = Split(Trim(ListBox1), " ")(1)
   

复制代码

科目全名输出在一个单元格

1. 
   
2.             ActiveCell = Qm

复制代码

先行者

大神弹指一挥间问题就迎刃而解了！强大！