【组立加工】依据BOM领料出货分析对比_三坛老窖版续

yangkd

老窖兄：你好。
昨夜身体不舒服，今来试试，有点疑问。
进入BOM弹出 运行时错误“5” 不妨碍操作


BOM中【单级产品结构图】没有变化，我用2010版也是，我还没有领会好。

另外，出货来料分析是分解到最后一级BOM吧。

方式特别好，如果在【出货来料分析】和【物料控制分析】中都具有这种
功能都就完美无缺了。{:soso_e121:}奢望就是贪图。

三坛老窖

出货来料分析的机理如下：
1. 在物料表中提取所有来源（阶层）为客供的物料，作为B：D列数据
2. 按条件在出货记录表中提取出货记录，按出货产品分解到底层，汇总各底层物料的用量，作为F列数据
3. 按条件在客户子品来料表中提取记录，汇总后作为E列数据。
所以说：出货来料分析是分解到最后一级的。
出货来料分析，按你出的题意理解，应该是出货产品所耗用的客户来料与客户实际供料作对比，所以我认为：按单级或多级展开分析没有意义。
同理，物料控制分析，我的理解是要对某一制造单元（如组立线1或成型2等），产出所需耗用的物料与实际领用物料（包括退库）之间的对比，所以在该表中进行多级汇总和多级展开分析同样没有意义。
另外尚需补充的，在成品入库分解为子品和出货分解为子品两个表中，多级展开分解时，在第二级以后的子品入库数，在逻辑上是有问题的（未作连乘处理），设置此功能，仅供察看产品是如何分解到子品的参考。

进BOM表时出错，你点一下调试，然后贴一张图上来。

yangkd

好的，暂时这样，有空仔细拜读。本系统是一个很繁琐的问题，你耗时费心解决了。
里面的技艺  思路值得会VBA的人好好看看，我想从中会懂得不少BOM的实质含义。
我属于个人的爱好提出问题，稽核物料自己尝试使用会方便。你能有兴趣帮忙很庆幸。

BOM进入后，出现的画面：不知可否妨碍操作。

三坛老窖

你把上一条语句前的[']去掉即可。

jiminyanyan

三坛老窖 老师辛苦了
yangkd 这位兄弟能申请点经费来，给老师买点酒喝喝，提提神，嘿嘿。

三坛老窖

jiminyanyan 发表于 2011-10-17 23:31
三坛老窖 老师辛苦了
yangkd 这位兄弟能申请点经费来，给老师买点酒喝喝，提提神，嘿嘿。

呵呵，得到兄弟你的关注，可比喝酒更提神哦！

yangkd

"你把上一条语句前的[']去掉即可"这样执行可以了。楼上jiminyanyan仁兄说申请费用
给老窖兄提提神，哈哈。没问题啊，只要兄能来我打工之地来玩，我本人一定表谢意。

tanqinbo

老窖兄：
     第一次看你的帖，被你这种无私奉献的精神所感动！-----敬礼！！！
你的这个课题实用性很强，但是由于初学VBA还是不怎么看的懂你的代码，
可否讲解一下开单工作表的代码？不胜感激--坐着板凳求学中。。。。。。
  
Range("I3").ClearContents
    Range("C5:I5").ClearContents
   
    填充列表框
    设置格式 Range("B6:I60")
    设置边框 Range("B6:I60")
    Range("E3").Select
   
    Me.Protect
    Application.Calculation = xlAutomatic
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column <= 2 Then Exit Sub
    If Target.Offset(, -1) <> "组立品番" Then Exit Sub
   
    On Error Resume Next
   
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
    Me.Unprotect
   
    Dim i&
   
    设置格式 Range("B" & Target.Row + 1 & ":I60")
    设置边框 Range("B" & Target.Row + 1 & ":I60")
   
    i = 1
    If 填充子项数据(Target, i) Then
        Do Until Len(Target.Offset(i)) = 0
            Target.Offset(i, -1) = i
            Target.Offset(i, 3).Formula = "=D$" & Target.Row & "*E" & Target.Offset(i).Row
            Target.Offset(i, 4).Formula = "=F" & Target.Offset(i).Row
            Target.Offset(i, 5).Formula = "=F" & Target.Offset(i).Row
            i = i + 1
        Loop
        
        Target.Offset(, -1).Resize(1, 8).Copy Target.Offset(i + 1, -1)
        Target.Offset(i + 1).Resize(1, 2).ClearContents
        
        With Target.Offset(1, 4).Resize(i - 1, 3)
            .Locked = False
            .Interior.Color = Target.Interior.Color
        End With
    End If
   
    Me.Protect
    Application.Calculation = xlAutomatic
    Application.ScreenUpdating = True
    Application.EnableEvents = True
   
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
   
    If Target.Offset(, -1) = "组立品番" Then
        With Me.ComboBox1
            .Left = Target.Left
            .Top = Target.Top
            .Width = Target.Width
            .Height = Target.Height
            .Visible = True
        End With
    Else
        Me.ComboBox1.Visible = False
    End If
   
End Sub

Private Sub ComboBox1_Click()
    With Me.ComboBox1
        .TopLeftCell.Value = .Value
        .TopLeftCell.Offset(0, 1).Activate
    End With
End Sub

Private Sub 填充列表框()
    Dim cnn As ADODB.Connection, rs As ADODB.Recordset
    Dim i%, Sql$, strL$, firstAddr$
    On Error Resume Next
   
    Me.ComboBox1.Clear
    Set cnn = New ADODB.Connection
    Set rs = New ADODB.Recordset
   
    cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=yes;';Data Source=" & ThisWorkbook.FullName
    Sql = "select distinct [成品料号] from [ok改基础BOM_子品原料需求结存$B:G]"
    rs.Open Sql, cnn, adOpenKeyset, adLockOptimistic
   
    For i = 1 To rs.RecordCount
        Me.ComboBox1.AddItem rs!成品料号
        rs.MoveNext
    Next i
   
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
End Sub

三坛老窖

tanqinbo 发表于 2011-10-19 04:40
老窖兄：
     第一次看你的帖，被你这种无私奉献的精神所感动！-----敬礼！！！
你的这个课题实用性很强 ...

兄弟过誉了。
这样吧，给点时间，我在上一个版本的代码中，加一些注释后，再发一个上来，希望能对你理解有所帮助。

tanqinbo

期待老窖兄的的讲解帖!
-----Hold 住!