根据出入库汇总表制作出入库单

Wanvtime

现在需要根据出入库汇总表来制作出入库单，我自己胡乱写了一些代码，能够读取数据，但是没办法根据入库时间和供应商来制作出入库单。请教各位大神们帮帮忙吧！

Wanvtime

希望能达成这样的效果，请大神帮忙修改一下代码。或者帮忙重写一下。谢谢！

3190496160

1、不明白编号的规则是什么？麻烦具体说明
2、生成的出库单是一张出库单一个工作表，还是所有的出库单都放到一个工作表内？？？？

3190496160

Sub 生成出库单()
Application.ScreenUpdating = False
Dim ar As Variant
Dim i As Long, r As Long, rs As Long
Dim br()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("材料出入库汇总表")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 6 Then MsgBox "材料出入库汇总表工作表为空！": End
    ar = .Range("a5:p" & r)
End With
For i = 2 To UBound(ar)
    If ar(i, 14) <> "" And ar(i, 15) <> "" Then
        zd = ar(i, 14) & "|" & ar(i, 15)
        If Not d.exists(zd) Then Set d(zd) = CreateObject("scripting.dictionary")
        d(zd)(i) = ""
    End If
Next i
Set sh = Sheets("模板")
With Sheets("出入库单")
    .UsedRange.Clear
    For Each k In d.keys
        n = 0: hj = 0
        ReDim br(1 To d(k).Count, 1 To 8)
        For Each kk In d(k).keys
            n = n + 1
            br(n, 1) = n
            For j = 2 To 4
                br(n, j) = ar(kk, j)
            Next j
            br(n, 5) = ar(kk, 10)
            br(n, 6) = ar(kk, 5)
            br(n, 7) = ar(kk, 11)
            br(n, 8) = ar(kk, 14)
            rq = ar(kk, 15)
            hj = hj + ar(kk, 11)
        Next kk
        rs = .Cells(Rows.Count, 1).End(xlUp).Row + 3
        If rs = 4 Then
            rs = 1
        Else
            rs = rs
        End If
        sh.Rows("1:4").Copy .Cells(rs, 1)
        .Cells(rs + 2, 4) = rq
        .Cells(rs + 4, 1).Resize(n, UBound(br, 2)) = br
        .Cells(rs + 4, 1).Resize(n, UBound(br, 2)).Borders.LineStyle = 1
        sh.Rows("15:16").Copy .Cells(n + rs + 4, 1)
        .Cells(n + rs + 4, 7) = hj
    Next k
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

出入库单.rar (33.81 KB, 下载次数: 4)

2024-12-17 16:03 上传

点击文件名下载附件

3190496160

需求不明确，代码仅供参考，实在搞不定，可以加v私聊

Wanvtime

3190496160 发表于 2024-12-17 15:43
1、不明白编号的规则是什么？麻烦具体说明
2、生成的出库单是一张出库单一个工作表，还是所有的出库单都放 ...

编号没有特殊规则就是按照顺序一直往下走。出库单最好是在一个工作表内方便打印。出库单相当于就是固定格式一页出库单就是10行内容，超出行就另做一张出库单。非常感谢老师帮忙！

Wanvtime

我是按照手工录入入库单的思路来做的，就是一张入库单上按每天的不同供应商来录入，没录满的就空在那。录满了就领起一张入库单继续录入。并且一张入库单上只能录入一家供应商。我现在最头痛的就是不知道怎么控制一张单据上怎么限制不同的供应商

3190496160

Wanvtime 发表于 2024-12-17 16:56
编号没有特殊规则就是按照顺序一直往下走。出库单最好是在一个工作表内方便打印。出库单相当于就是固定格 ...

如果在一楼就一次性说清楚，一次性就解决了，呵呵

Wanvtime

3190496160 发表于 2024-12-17 21:03
如果在一楼就一次性说清楚，一次性就解决了，呵呵

确实没有描述清楚，刚开始不知道怎么去表达。经过老师提醒后才能更好表达出意思。