VBA编程技巧 之 浅谈数据结构 （不定期持续更新，最后更新130411）

onthetrip

不知为什么，11楼堆栈代码无法得到正确的结果。

moonharuka

好帖子，收藏了

Nick_Chen0622

老师，请问一个问题：在迭代的数据处理结构程序中，下面这段程序的bflag的用途是什么，我的感觉
If sNo = aProducts(i) Then bflag = True
If bflag Then Range(BOM_PRODUCT_CELL) = sNo这两端代码是否多余啦？

Private Sub Worksheet_Activate()
    Dim arr(), i&, rng As Range, sNo$, nCount&, bflag As Boolean
    If nItemCol = 0 Then Call ParseData(BOM_SOURCE_SHEET_NAME)
    Application.ScreenUpdating = False
    sNo = Range(BOM_PRODUCT_CELL).Text
    Cells.ClearContents
    Cells.Validation.Delete
    nCount = UBound(aProducts)
    ReDim arr(1 To nCount + 1, 1 To 1)
    For i = 1 To nCount
        arr(i + 1, 1) = aProducts(i)
        If sNo = aProducts(i) Then bflag = True
    Next
    Set rng = Cells(1, 1).Offset(0, UBound(aData, 2) + 10).Resize(nCount + 1, 1)
    rng = arr
    Range(BOM_LABEL_CELL) = "±àºÅ"
    With Range(BOM_PRODUCT_CELL).Validation
        .Add xlValidateList, xlValidAlertStop, xlBetween, "=" & rng.Address
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = False
        .ShowError = True
    End With
    Set rng = Nothing
    Application.ScreenUpdating = True
    If bflag Then Range(BOM_PRODUCT_CELL) = sNo
    Range(BOM_PRODUCT_CELL).Select
    Range("e1") = "   ±àºÅΪ90BCP70927AR140RµÄÓкܶà×ÓÏ£¬£¬£¬"
End Sub

text888877

lee1892 发表于 2012-12-18 15:26
迭代（Iteration）与递归（Recursion）

在我们讲数据结构之前，先作一下思维训练。经常看到有人说什么递 ...

真好，老师的讲解

UNIMOG4000

楼主厉害，收藏了。

zhangcheng6688

ctp_119 发表于 2012-12-20 13:43
好好学习一下，，，还看的我稀里糊涂的。。。

留着，以后可能用得到吧

chengshanming

认真仔细查看了所有附件！部分附件代码还是有BUG，像只有一层的bom料号查不出子件！比如半成品料号 2010R09RS419A00R

1808835746

好东西，辛苦版主了

buciyuan

非常好的帖子，希望能汇编成一本书，谢谢

lajihaha159

谢谢分享！