如何写VBA代码，实现展开或折叠二级任务的行

清风竹-

干勇平 发表于 2022-12-4 18:19
在单位遇的直接上司看完又，提了三级。我无语，再求助你。如果麻烦不好改你就不用理会。谢谢了。
3级的 ...

请测试，不完善的地方再改。

干勇平

清风竹- 发表于 2022-12-4 21:10
请测试，不完善的地方再改。

本楼主这么冷晚上还在线帮我解答问题，不胜感激。我下载学习使用了下，看说明，是说，点三级上的二级C列工作计划的文字，可实现对本三级的折叠和展开。这样也不错。
--估计是不好在B列的处放向右三角形实现，对吧？然后所有三级如何折叠或展开。
那我能不能提2个小希望，    NO1,比如二级7.3下面有7.3.1和7.3.2两个三级，比如当我点击C32处文字“总装滚床设备”折叠时，此单元格文字前面加个-，展开时，文字加个+。   NO2,在C8单元格点击时实现对所有三级折叠或展开，折叠时，C8单元格文字“工作计划”前加-，展开时，文字加个+。

在原单元格文字前加+-号方便，还是将附件表改下列，在B列与C列之前插入一列存放+-号，类似现在B列的存放向右或向下三角，哪种方便就用哪个修改喽，我再次打扰，谢谢。

清风竹-

干勇平 发表于 2022-12-5 09:11
本楼主这么冷晚上还在线帮我解答问题，不胜感激。我下载学习使用了下，看说明，是说，点三级上的二级C列 ...

改为在B列的三角控制（蓝色）。

干勇平

清风竹- 发表于 2022-12-5 10:14
改为在B列的三角控制（蓝色）。

这个高级了，比我提的2个设想实现的更美了。就想问，如果我自行在某个2个下面行插入几个3级，点击此2级的三角时，可以实现折叠或展开。就是没变蓝色，我该如何调下颜色呢

干勇平

清风竹- 发表于 2022-12-5 10:14
改为在B列的三角控制（蓝色）。

这个更美好了。问下，我自行在某个二级下面行插入几个三级，点击此二级的三角图，可以实现折叠或展开，但颜色没变成蓝色。我该如何改下代码，谢谢

干勇平

清风竹- 发表于 2022-12-5 10:14
改为在B列的三角控制（蓝色）。

自行在二级插入的三级行，二级这个三角符号没变蓝色，我该如何改代码

蓝桥玄霜

对于多级分级显示，可以这样。

aecn

关注一下，多级菜单的多种折叠与展开

干勇平

一上午回复不了贴，哎呀。
请问13楼，这个效果比我设想的美好多了。请问下，我自行插入的三级，为啥没有变成蓝色三角，要如何改下
请问14楼，这个展示也好得很呢，哈哈。请问，是需要用VBA,还是纯EXCEL实现的

清风竹-

干勇平 发表于 2022-12-5 10:54
这个高级了，比我提的2个设想实现的更美了。就想问，如果我自行在某个2个下面行插入几个3级，点击此2级的 ...

蓝色是最初制表，添加3级时手工变的，以示区别。也可以改为自己喜欢的颜色。