[游戏开发]整机单板联动排产系统

VBA整机单板联动排产系统

按照父编码排产，父编码要生成100个，则该父编码的子编码都要生成100个，记录每次生成记录

排班生产父编码任务

生成父编码对应子编码所有生产工单

记录生产生成时间

存在任务编号时只修改计划量或者开工日期，任务号和父编码、子编码、工单号均不改变，按照原来有的数据，不存在任务编号即新建新的任务父编码对应子编号所有工单

Sub 运算表工令单生成()

    '字典
    Set dic = CreateObject("scripting.dictionary")
    Set dic_前缀 = CreateObject("scripting.dictionary")
    Set dic_日期个数 = CreateObject("scripting.dictionary")
    Dim crr()
    
    '条件
    lastrow = Sheet2.Cells(Sheet2.Rows.Count, 1).End(xlUp).Row  '获取最后一行
    arr = Sheet2.Range("A2:E" & lastrow)
    
'    '查找重复任务编号
    For i = 1 To UBound(arr)
        Set Rng = Sheet5.Range("A:A").Find(arr(i, 1), lookat:=xlWhole)
        If Not Rng Is Nothing Then
            If MsgBox("任务编号重复！是否继续执行？", vbCritical + vbYesNo, "警告") = vbNo Then
                Exit Sub
            Else
                GoTo line1
            End If
            If Rng.Offset(0, 4).Value <> arr(i, 4) Then
                Rng.Offset(0, 4).Interior.ColorIndex = 3
            End If
        End If
    Next
    
line1:
....................................................

相应文件在我的资源里，名称为《整机单板联动排产（新3）.xlsm》