求助如何统计装箱信息

月落天涯 · 发表于 2024-5-20 07:31

本帖最后由月落天涯于 2024-5-20 07:35 编辑

向各位大神求助如何统计装箱信息，希望达到的效果是：在箱号统计表R2单元格输入订单号并点击按钮，自动统计该订单所有物料的装箱信息，包括装了几箱，箱号是多少，每箱装了几个，合计装箱总量是多少，差异量是多少等，订单数量来源于订单明细，装箱信息取自装箱明细。装箱总量是某种物料累计装箱数量，差异数=订单数量-装箱总量，如若某种物料没有装箱，则其装箱总量为零，差异数等于订单数量。表中模拟了20240516的装箱统计。谢谢各位大神，有鲜花。

WANT-T · 发表于 2024-5-20 09:25

一个订单里的一个规格的物料，确认一定最多只装四个箱嘛？

3190496160 · 发表于 2024-5-20 10:13

Sub 装箱统计()
Application.ScreenUpdating = False
Dim ar As Variant, br As Variant
Dim i As Long, r As Long, rs As Long
Dim arr()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("订单明细")
r = .Cells(Rows.Count, 1).End(xlUp).Row
If r < 4 Then MsgBox "订单明细为空！": End
ar = .Range("a3:h" & r)
End With
With Sheets("装箱明细")
rs = .Cells(Rows.Count, 1).End(xlUp).Row
If rs < 4 Then MsgBox "装箱明细为空！": End
br = .Range("a3:i" & rs)
End With
ReDim arr(1 To UBound(ar), 1 To 16)
With Sheets("箱号统计")
dh = .[r2]
If dh = "" Then MsgBox "请输入查询单号！": End
For i = 2 To UBound(br)
      If br(i, 2) <> "" Then
         dh_1 = Left(br(i, 2), 8)
         If Val(dh_1) = dh Then
            zf = br(i, 4) & "|" & br(i, 5) & "|" & br(i, 6)
            If d(zf) = "" Then
                  d(zf) = i
            Else
                  d(zf) = d(zf) & "|" & i
            End If
         End If
      End If
Next i
For i = 2 To UBound(ar)
      If ar(i, 2) = dh Then
         n = n + 1
         For j = 3 To 7
            arr(n, j - 2) = ar(i, j)
         Next j
      End If
      zd = arr(n, 1) & "|" & arr(n, 2) & "|" & arr(n, 3)
      m = d(zd)
      lh = 6
      For Each k In Split(m, "|")
         arr(n, lh) = br(k, 2)
         arr(n, lh + 1) = br(k, 8)
         lh = lh + 2
         arr(n, 14) = arr(n, 14) + br(k, 8)
         arr(n, 15) = arr(n, 5) - arr(n, 14)
      Next k
Next i
.UsedRange.Offset(4).Borders.LineStyle = 0
.UsedRange.Offset(4) = Empty
.[a5].Resize(n, 16) = arr
.[a5].Resize(n, 16).Borders.LineStyle = 1
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160 · 发表于 2024-5-20 10:13

订单管理.rar (29.38 KB, 下载次数: 7)

3190496160 · 发表于 2024-5-20 10:14

2楼所提的疑问，确实是个问题，所以，代码仅供参考

月落天涯 · 发表于 2024-5-20 10:59

WANT-T 发表于 2024-5-20 09:25
一个订单里的一个规格的物料，确认一定最多只装四个箱嘛？

暂定为四箱，有劳了。

WANT-T · 发表于 2024-5-20 11:16

月落天涯发表于 2024-5-20 10:59
暂定为四箱，有劳了。

既然还没有定好，既然有人回了，那我就不参与了，祝您生活愉快

ooluckydog · 发表于 2024-5-20 11:42

usedrange · 发表于 2024-5-20 15:07

参与一下。这里一个订单只能放4箱货物

		自动登录	找回密码
密码			免费注册

[求助] 求助如何统计装箱信息

评分

评分