根据层级关系及前缀名，自动分派新文件名称

口风琴 · 发表于 2017-10-21 21:36

一把小刀闯天下发表于 2017-10-21 17:00
按层级单元格的格式来分：MsgBox [a20].NumberFormatLocal ，然后按"┊"进行split统计ubound就能分层级 ...

游侠好，层级关系是已知的，已经用1-4分清了层级，现在就是遍历树的形式为成员分派名字

liulang0808 · 发表于 2017-10-21 22:15

Sub 按钮19_Click()
Set d = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
For j = 0 To 3
d(j) = 0
Next j
For j = 2 To UBound(arr)
For i = 0 To 3
If InStr(arr(j, 1), i) > 0 Then
For k = 0 To i - 1
Next k
d(i) = d(i) + 1
For k = i + 1 To 3
d(k) = 0
Next k
arr(j, 4) = "YTKQFMS-" & Format(d(0), "0000") & "-" & Format(d(1), "000") & "-" & Format(d(2), "000") & "-" & d(3)
Exit For
End If
Next i
Next j
[a1].CurrentRegion = arr
End Sub

复制代码

liulang0808 · 发表于 2017-10-21 22:17

楼主的需求一直没有看明白，所以在附件自己做了一个模拟，
按钮下面就是字段的对应
但愿能为楼主提供一个思路吧

口风琴 · 发表于 2017-10-21 23:37

希望这次能够把逻辑描述清楚，烦劳版主支持

口风琴 · 发表于 2017-10-21 23:37

处理二级零件的逻辑

口风琴 · 发表于 2017-10-21 23:41

liulang0808 发表于 2017-10-21 22:17
楼主的需求一直没有看明白，所以在附件自己做了一个模拟，
按钮下面就是字段的对应
但愿能为楼主提供一个 ...

感谢版主的热心帮助，是我没把逻辑表述清楚

liulang0808 · 发表于 2017-10-22 08:36

口风琴发表于 2017-10-21 23:41
感谢版主的热心帮助，是我没把逻辑表述清楚

12楼模拟了一个，楼主自行修改看看

口风琴 · 发表于 2017-10-22 10:43

liulang0808 发表于 2017-10-22 08:36
12楼模拟了一个，楼主自行修改看看

版主的嵌套循环用出了境界，修改后序号递增可以实现，但是回到原级别我没处理好，请版主过目

Sub 按钮_Click()
Set d = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
Range("E2:E80").Clear
For j = 0 To 3
d(j) = 0
Next j
For j = 3 To UBound(arr)
If Cells(j, 4) = "外购件" Or Cells(j, 4) = "标准件" Then
arr(j, 5) = Cells(j, 2)
Else
For i = 1 To 4
If InStr(arr(j, 1), i) > 0 Then
If UCase(Cells(j, 3)) = "SLDASM" Then
Debug.Print d(0), d(1), d(2), d(3)
d(i - 1) = d(i - 1) + 1
For k = i To 3
d(k) = 0
Next k
Else
For k = i - 1 To 2
d(k) = 0
Next k
d(3) = d(3) + 1
End If
Debug.Print d(0), d(1), d(2), d(3)
arr(j, 5) = "YTKQFMS-60" & Format(d(0), "00") & Format(d(1), "-0") & Format(d(2), "00") & "-" & Format(d(3), "000") & "-0"
Exit For
End If
Next i
End If
Next j
[a1].CurrentRegion = arr
End Sub

复制代码

口风琴 · 发表于 2017-10-22 10:45

请以此份附件为准

指派名称.rar (59.02 KB, 下载次数: 7)

口风琴 · 发表于 2017-10-22 10:51

图中黄色底纹填充的位置是没处理好的，没有准确回到上一级的序号

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

[已解决] 根据层级关系及前缀名，自动分派新文件名称