根据层级号数字，自动生成代号求VBA高手来

vip0537 · 发表于 2021-7-25 12:35

本帖最后由 vip0537 于 2021-7-26 18:00 编辑

求助问题描述：
1.根据F列层级数字和H列SLDASM或者SLDPART,自动生成如D列样式的代号,
2.G列文件名称包含特殊关键字（+m,GB,SA,减速机,镜向,等...)的忽略处理（关键字能增、减），不参与编号。
3.F列每出现一次1,同时H列为SLDASM,出现的1分别变为，.1 .2 .3 .n
4.F列每出现一次1,同时H列为SLDPRT,出现的1分别变为，-1 -2 -3    -n
5.在每一个1下面，下一个1上面会有2 3 2 3 4 4 4 2 3 3 2 2或者  2 3 4 4 4 5 6 2 3
详见附件
  类似于文件夹文件树形图（可能有四层，五层，多层）
谢谢大家

yjh_27 · 发表于 2021-7-25 18:25

51行为什么是-2不是-1-1

vip0537 · 发表于 2021-7-25 19:18

yjh_27 发表于 2021-7-25 18:25
51行为什么是-2不是-1-1

因为 H列都是 SLDPRT 是同一级别所以数字要累加

yjh_27 · 发表于 2021-7-26 07:32

vip0537 发表于 2021-7-25 19:18
因为 H列都是 SLDPRT 是同一级别所以数字要累加

也就是
3是按树形规则
4是不按树形规则，你应说清楚这个的全部规则。

vip0537 · 发表于 2021-7-26 08:25

本帖最后由 vip0537 于 2021-7-26 08:53 编辑

yjh_27 发表于 2021-7-26 07:32
也就是
3是按树形规则
4是不按树形规则，你应说清楚这个的全部规则。

首先感谢大佬帮忙

可能是我没表述清楚，SLDASM是装配体类型（相当于文件夹），SLDPRT是零件类型（相当于文件），
这个类似于  这些文件分别在哪个文件夹里  第一个0相当于总文件夹，所有的 F列 1 + H列是(SLDASM）是总目录下的文件夹，所有的 F列 1 + H列是(SLDPRT）是总目录下的文件;(文件夹号为.1 .2 .3  .n累加，文件号-1 -2 -3 -n累加）；第一个SLDASM对应的1和第二个SLDASM对应的1之间的 2 + H列是(SLDASM）  相当于.1文件夹下的子文件夹， 2 + H列是(SLDPRT）相当于.1文件夹下的子文件，
依次类推第一个SLDASM对应的2和第二个SLDASM对应的2之间的 3 + H列是(SLDASM）  相当于.2文件夹下的子文件夹， 3 + H列是(SLDPRT）相当于.2文件夹下的子文件；
如果不参与编号的行给写代码带来不方便，可以先手动删掉那些行
我的思路是先找同时满足（ F列是1，H列是SLDASM）第一个1就变成.1，第二个1就变成.2  依次到.n；（ F列的1，H列是SLDPRT）第一个1就变成-1，第二个1就变成-2  依次到-n；
再找.1和.2之间的2，同时满足（ F列是2，H列是SLDASM）第一个2就变成.1.1，第二个1就变成.1.2  依次到.1.n；（ F列的2，H列是SLDPRT）第一个2就变成.1-1，第二个2就变成.1-2  依次到.1-n；
再找.1.1和.1.2之间的3，同时满足（ F列是3，H列是SLDASM）第一个3就变成.1.1.1，第二个1就变成.1.1.2  依次到.1.1.n；（ F列的3，H列是SLDPRT）第一个3就变成.1.1-1，第二个3就变成.1.1-2  依次到.1.1-n；

再找.1.1.1和.1.1.2之间的4
。。。。。。。。。。。
循环再找.2和.3之间的2，
。。。。。。。
循环再找.3和.4之间的2，
循环再找.n-1和.n之间的2，
最后循环再找.n和-(*)或.(*)之间的2，
写到最后  我都感觉这个思路太麻烦了，

yjh_27 · 发表于 2021-7-26 09:35

本帖最后由 yjh_27 于 2021-7-26 09:47 编辑

vip0537 发表于 2021-7-26 08:25
首先感谢大佬帮忙

可能是我没表述清楚，SLDASM是装配体类型（相当于文件夹），SLDPRT是零件类型（相当 ...

文件夹、文件说，理解了
文件要跟在层级-1 的文件夹后面

树形结构要求源数据：1 有序
                           2 层级数向下增加时：要求连续，不然找不到上层数据
                           3 层级数减少时：清空下层级数据

你50行是文件，其对应得0级文件夹  所以：-1，1级文件夹被清空
你51行是文件，就找不到其对应得1级文件夹，这层级就是错误的。需要处理源数据，或给出处理规则。

如50行不清空文件夹处理，
你51行是文件，对应得1级文件夹是 .4(38行)，代号：.4-6

vip0537 · 发表于 2021-7-26 12:37

yjh_27 发表于 2021-7-26 09:35
文件夹、文件说，理解了
文件要跟在层级-1 的文件夹后面

你的可能已经满足需求了，我仔细看了一下，F51数据错了 2 应该为 1，

yjh_27 · 发表于 2021-7-27 09:34

基本实现功能

vip0537 · 发表于 2021-7-27 11:03

yjh_27 发表于 2021-7-27 09:34
基本实现功能

谢谢好厉害

基本可以了原始数据适当调整下就行了

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

[求助] 根据层级号数字，自动生成代号求VBA高手来

评分

[求助] 根据层级号数字，自动生成代号 求VBA高手来

评分

[求助] 根据层级号数字，自动生成代号求VBA高手来