关于快速自动进行创建组分级显示

keep2022 · 发表于 2024-8-11 09:37

想请问大神们，如何做一个VBA代码能够自动根据D列和E列数据，进行一键自动分组。查了一下别人的创建组代码，看不懂。非常感谢！我的分组从一级到末端分别是：D列：一级“事项”，二组“分部”，三级“序号”，四级为3级的计算式，一般为空

ynzsvt · 发表于 2024-8-11 17:07

41行，44行应该是在3级上吧，而不是你这样的在2级上。

keep2022 · 发表于 2024-8-11 21:34

ynzsvt 发表于 2024-8-11 17:07
41行，44行应该是在3级上吧，而不是你这样的在2级上。

是的，在3级

ynzsvt · 发表于 2024-8-12 04:23

根据列关键词进行分级显示

keep2022 · 发表于 2024-8-12 08:23

ynzsvt 发表于 2024-8-12 04:23
根据列关键词进行分级显示

这里面没看到VBA代码，我上传的不是带宏格式的文件，可以麻烦发送xlsm文件吗

ynzsvt · 发表于 2024-8-12 09:25

还没代码，这个问题很深奥。你没看出来我这效果还有很多不对的吗。

keep2022 · 发表于 2024-8-12 10:37

ynzsvt 发表于 2024-8-12 09:25
还没代码，这个问题很深奥。你没看出来我这效果还有很多不对的吗。

你设置的这几个分级，7级已经是可以的了。而且，可以按全部分极条件都设置在D列也可以，1级：“事项”，2级“分部”，3级“数字”，4级“分项”，5级“小计”，6级“分计”，7级空白。
网站里面搜到别人做的这个，主要是没看懂，里面代码太多了。

chenjx80 · 发表于 2024-8-12 12:25

你们不觉得组分级功能非常丑陋吗？
建议使用“双击折叠或展开”替代之，如下图：

双击折叠或展开.Compressed.gif

yjh_27 · 发表于 2024-8-12 14:27

本帖最后由 yjh_27 于 2024-8-12 22:33 编辑

keep2022 发表于 2024-8-12 10:37
你设置的这几个分级，7级已经是可以的了。而且，可以按全部分极条件都设置在D列也可以，1级：“事项”，2 ...

看懂模块1即可。模块2、模块3是二个自定义函数（过程）。
模块2是识别级别，
模块3是创建分组。

ynzsvt · 发表于 2024-8-12 16:32

被鄙视的，没答案了。赶快自己完成吧。

		自动登录	找回密码
密码			免费注册

[求助] 关于快速自动进行创建组分级显示