整机单板联动排产系统

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 ThenIf MsgBox("任务编号重复！是否继续执行？", vbCritical + vbYesNo, "警告") = vbNo ThenExit SubElseGoTo line1End IfIf Rng.Offset(0, 4).Value <> arr(i, 4) ThenRng.Offset(0, 4).Interior.ColorIndex = 3End IfEnd IfNextline1:
....................................................

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