求一个递归算法并分享一个MRP源代码！见本贴9楼

jygzcj

袁振涛 发表于 2015-12-8 21:55
改了下

完全解决！经典呀。非常感谢！

袁振涛

上面的也顺手改了

1. Public Arr
   
2. Sub Test_LLc()
   
3.     Dim i%
   
4.     Set objDic = CreateObject("scripting.dictionary")
   
5.     Arr = [a1].CurrentRegion
   
6.     ReDim Arr2(1 To UBound(Arr))
   
7.     For i = 2 To UBound(Arr)
   
8.         Arr2(i - 1) = getData(Xnj(i, Arr(i, 1)))
   
9.     Next
   
10.     [c2].Resize(UBound(Arr2), 1) = Application.Transpose(Arr2)
    
11. End Sub
    
12. 
    
13. Function Xnj(ByVal intIndex%, ByVal intLevel%)  'intIndex数组中的索引值,初始值，intlevel当前的层次
    
14.     Dim intCurrentLevel%    '当前层次在数组中的索引值，与原始值相区别
    
15.     Dim boolCheck As Boolean
    
16.     boolCheck = False
    
17.     For j = intIndex To 1 Step -1    '取出当前层次
    
18.         If Arr(j, 1) = intLevel Then
    
19.             intCurrentIndex = j
    
20.             Exit For
    
21.         End If
    
22.     Next
    
23.     If intLevel = 1 Then    '本身即为第一级
    
24.         If Arr(intCurrentIndex, 2) <> "X" Then
    
25.             Xnj = "Y"
    
26.         Else
    
27.             Xnj = "X"
    
28.         End If
    
29.         Exit Function
    
30.     Else
    
31.         If Arr(intCurrentIndex, 2) = "X" Then
    
32.             Xnj = "X"
    
33.         Else
    
34.             For i = 1 To intLevel - 1
    
35.                 If Xnj(intIndex, i) <> "X" Then boolCheck = True
    
36.             Next
    
37.             If boolCheck = False Then
    
38.                 Xnj = "Y"
    
39.             Else
    
40.                 Xnj = ""
    
41.             End If
    
42.         End If
    
43.     End If
    
44. End Function
    
45. 
    
46. Function getData(strData$)
    
47.     If strData = "Y" Then getData = "Y"
    
48. End Function

复制代码

yjh_27

BOM 大纲排序-自定义函数   12L  BOMSum6工作表
http://club.excelhome.net/thread-1175717-1-1.html
(出处: ExcelHome技术论坛)

wxl3322335

美女大神，，帮小弟的问题也解决下，谢谢！

wxl3322335

袁振涛 发表于 2015-12-8 21:55
改了下

老师 ，帮我楼下的问题也看看，谢谢！

afdadas

不错，学习了

litao972640

完全解决！经典呀。非常感谢！

chengshanming

不错的帖子，路过，顶一下！

肤浅得很有深度

看不太明白