按序号为分级显示自动创建组按分级显示的组合自动编序号

yjh_27 · 发表于 2014-2-27 11:28

本帖最后由 yjh_27 于 2014-3-1 11:48 编辑

题目来源

怎么让excel按序号自动分组
http://club.excelhome.net/thread-1097897-1-1.html

怎么通过已有的【分级】返回树状序号
http://club.excelhome.net/thread-1098877-1-1.html

补充内容 (2014-7-29 14:01):
按字符长度分级见 9L

补充内容 (2021-11-22 08:09):
移步
BOM 大纲排序-自定义函数参见最后附件的“分组显示”工作表
http://club.excelhome.net/thread-1175717-1-1.html
(出处: ExcelHome技术论坛)

feng1989 · 发表于 2014-2-27 12:36

已下载，谢谢大侠！！！

feng1989 · 发表于 2014-2-27 18:39

还有个问题，就是arr = [a1:a477]需指定多少行，能否加个语句提示运行前需输入行数，这时跳出提示和输入框？

yjh_27 · 发表于 2014-2-27 19:05

feng1989 发表于 2014-2-27 18:39
还有个问题，就是arr = [a1:a477]需指定多少行，能否加个语句提示运行前需输入行数，这时跳出提示和输入框？ ...

可以自行按需修改代码

yjh_27 · 发表于 2014-2-28 20:25

feng1989 发表于 2014-2-27 18:39
还有个问题，就是arr = [a1:a477]需指定多少行，能否加个语句提示运行前需输入行数，这时跳出提示和输入框？ ...

参见第二个附件。

yjh_27 · 发表于 2014-3-1 10:57

本帖最后由 yjh_27 于 2014-3-1 11:09 编辑

相关帖链接（备用）

组及分级显示VBA参数 5L
http://club.excelhome.net/thread-1078541-1-1.html

用：

ActiveSheet.Outline.ShowLevels RowLevels:=1
和ActiveSheet.Outline.ShowLevels RowLevels:=2

分别可以展开组合分级的1级和2级。

feng1989 · 发表于 2014-3-28 19:55

yjh_27 发表于 2014-2-28 20:25
参见第二个附件。

学习了！初学者！

那时不懂 · 发表于 2014-3-28 20:15

feng1989 发表于 2014-2-27 18:39
还有个问题，就是arr = [a1:a477]需指定多少行，能否加个语句提示运行前需输入行数，这时跳出提示和输入框？ ...

这个应该不难但是我需要学习！

yjh_27 · 发表于 2014-7-29 13:56

cmusic · 发表于 2014-7-30 08:52

yjh_27 发表于 2014-7-29 13:56
如何自动建立分级显示
http://club.excelhome.net/thread-1141290-1-1.html

crr = Array(-1, 0, 0, 1, 1, 2, 2, 3, 3, 3) '编码长度对应级，根据需要改

怎么改？

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

[原创] 按序号为分级显示自动创建组按分级显示的组合自动编序号