BOM阶层父子关联问题

eaganshi · 发表于 2022-12-6 10:34

由于BOM阶层需要父阶层和子阶层进行关联，已经初步写了一部分逻辑，但是遇到某些阶层无法正确转换，水平有限，实在想不出来了，望高手指点，谢谢。

lcluck2002 · 发表于 2022-12-6 11:55

仅供参考，未作过多测试。

jiaxinl · 发表于 2022-12-6 12:09

这样的

Sub Upper_X()
Dim ar_Up, ar_Parent, i, j
With Sheet1
ar_Up = .[A1].CurrentRegion
ReDim Preserve ar_Up(1 To UBound(ar_Up), 1 To 3): ar_Up(1, 3) = "父子关联": ar_Up(2, 3) = ar_Up(2, 2)
For i = 3 To UBound(ar_Up)
For j = i To 1 Step -1
Select Case ar_Up(i, 1)
Case Is <> 1: If ar_Up(i, 1) > ar_Up(j, 1) Then ar_Up(i, 3) = ar_Up(j, 2) & "-" & ar_Up(i, 2): Exit For
Case Else: ar_Up(i, 3) = ar_Up(2, 2)
End Select
Next
Next
.[L1].CurrentRegion.ClearContents
.[L1].Resize(UBound(ar_Up), UBound(ar_Up, 2)) = ar_Up
End With
End Sub

复制代码

eaganshi · 发表于 2022-12-6 12:51

感谢处理并回复，基本满足需求了。但是仍然有点小问题，可能情况有点复杂，麻烦再看看。详见附件。

蓝桥玄霜 · 发表于 2022-12-6 13:27

D、E列显示的本身就不正确
A为1阶，D为2阶时，应该为A-D；E为3阶时，应该为A-D-E......

eaganshi · 发表于 2022-12-6 13:46

蓝桥玄霜发表于 2022-12-6 13:27
D、E列显示的本身就不正确
A为1阶，D为2阶时，应该为A-D；E为3阶时，应该为A-D-E......

蓝版，你好，这个是为BOM批量替换做准备的，由于同一部品在不同阶层下的属性是不一样的，所以需要锁定部品的上一层。替换表是按照2层级来制作的（比如：组立图+部品），BOM实际有七八层，并且每次不一样。

lcluck2002 · 发表于 2022-12-6 14:24

还请继续测试。

eaganshi · 发表于 2022-12-6 15:35

lcluck2002 发表于 2022-12-6 14:24
还请继续测试。

非常感谢，完美解决。厉害。

eaganshi · 发表于 2022-12-6 15:37

大神再帮忙看看，需求稍微有点变更，如果父子绑定不按照行来，按照实际阶层来绑定。不知道有没有好的方法。

笨鸟飞不高 · 发表于 2022-12-6 16:08

eaganshi 发表于 2022-12-6 15:37
大神再帮忙看看，需求稍微有点变更，如果父子绑定不按照行来，按照实际阶层来绑定。不知道有没有好的方法。

333.zip (13.51 KB, 下载次数: 4)

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

[求助] BOM阶层父子关联问题