按出货的数量找未清订单明细

wqhsz385919

配单.7z (27.32 KB, 下载次数: 6)

2024-2-17 14:01 上传

点击文件名下载附件

你好！请帮忙看下，按出货的数量找未清订单明细里凑单，按订单的先后顺序，自己学着写，中间逻辑实在想不到，请大侠帮忙指导，谢谢！
举例：采购工厂&料号 出货1000，就在未清订单明细里找到这个采购工厂&料号，数量刚好1000，附件有手工模拟的结果
以上谢谢！
以下是自己学着写的代码：
Sub peidan()
Dim brr(1 To 1000, 1 To 14)
Set d = CreateObject("scripting.dictionary")
With Sheets("未清订单")
     cr = .Range("a1").CurrentRegion
End With
With Sheets("明天出货")
     ar = .Range("a1").CurrentRegion
     For i = 2 To UBound(ar)
         s = ar(i, 2) & "@" & ar(i, 6)
         d(s) = d(s) + ar(i, 9)
     Next
End With
k0 = d.keys

For Each kk In k0
    For i = 2 To UBound(cr)
        s = cr(i, 9) & "@" & cr(i, 5)
        If d.exists(s) Then
           If cr(i, 7) - d(kk) < 0 Then
              k = k + 1: ss = ss + cr(i, 7)
                If ss < d(kk) Then
                For j = 1 To 14
                  brr(k, j) = cr(i, j)
                Next
               End If
                brr(k, 7) = cr(i, 7)
              Else
               k = k + 1
               For j = 1 To 14
                  brr(k, j) = cr(i, j)
               Next
               brr(k, 7) = d(kk)
               Exit For
              End If
          End If
     Next
  Next

With Sheets("出货配单")
      .UsedRange.Offset(1).Clear
     .AutoFilterMode = False
     .Columns(3).NumberFormatLocal = "@"
     With .Range("a2").Resize(k, 14)
          .Value = brr
          .Borders.LineStyle = 1
          .HorizontalAlignment = xlCenter
          .VerticalAlignment = xlCenter
          .Font.Name = "等线"
          .Font.Size = 9
     End With
End With
End Sub

wqhsz385919

新年好！请大侠帮忙指导，多谢！

shiruiqiang

判断字典的值的3种情况

wqhsz385919

shiruiqiang 发表于 2024-2-17 20:37
判断字典的值的3种情况

多谢帮助！

wqhsz385919

shiruiqiang 发表于 2024-2-17 20:37
判断字典的值的3种情况

HI 您好！
    我想增加2条预警，加了个循环，结果不对，就是似乎不能放到FOR X循环内，但放在外面，却又想不到，烦请帮忙再看下，多谢！

cr = Sheets("未清订单").Range("a1").CurrentRegion
For x = 2 To UBound(cr)
  s = cr(x, 9) & "|" & cr(x, 5)
   dcou(s) = dcou(s) + cr(i, 7)
       For Each kk In d.keys
           If Not dcou.exists(kk) Then MsgBox kk & "无未清PO,请核实！"
           If dcou(kk) < d(kk) Then MsgBox kk & "未清PO,请核实！"
       Next
    If d.exists(s) Then
   
     If d(s) = 0 Then
   
     d.Remove s
     Else
        If d(s) >= cr(x, 7) Then
         k = k + 1
           For y = 1 To UBound(cr, 2)
           brr(k, y) = cr(x, y)
           Next
           d(s) = d(s) - cr(x, 7)
         Else
          k = k + 1
           For y = 1 To UBound(cr, 2)
           brr(k, y) = cr(x, y)
           Next
           brr(k, 7) = d(s)
           d(s) = 0
         End If
     End If
    End If
Next

shiruiqiang

主要这2条预警想表达啥意思？

wqhsz385919

您好，
想提醒：
1.出货的编码是否存在未清订单，如果没有，就提醒使用者没有未清订单要排查
2..出货的编码确实也存在未清订单，但未清订单数量不够，就提醒使用者排查异常

shiruiqiang

不知道你要表达啥，盲猜一个吧

wqhsz385919

感谢大侠关注，您的理解非常对，我就是这么想的
不过，我还是搞错逻辑了，是反着过来了，正常应该是：
是出货到未清订单中去找，未清订单没有，就反馈没有，这是一种  ，另一种 就是短缺，如总出货数量为1000，未清订单合计只有990，则要提示短缺10，另外990正常配单出来
审核好慢，只好这样回复了
实在不好意思，给大侠发个红包，谢谢！

shiruiqiang

"如总出货数量为1000，未清订单合计只有990"?
个人理解，“未清订单”应该是需求量，“出货”是能满足的量，“出货”<“未清订单”提示吧？