如何根据出入库明细生成入库单和出库单

qiaojiawei

请问如何根据出入库明细表生成入库单和出库单

kuangben8

你的表格已经接近出问题了！



Sub DelCustomStyles()
Dim st As Style
For Each st In ActiveWorkbook.Styles
If Not st.BuiltIn Then st.Delete
Next
End Sub

randysjf

我之前是做仓库管理的。但是我有一点不明白的地方是，你的次序是不是搞反了，应该先有出、入库单，之后才有出、入库数据表，最后才能生成库存表。

3190496160

Sub 出库单打印()
Dim d As Object
Dim ar As Variant
Dim br()
Set d = CreateObject("scripting.dictionary")
ar = Sheets("供货明细表").[a1].CurrentRegion
For i = 2 To UBound(ar)
    If Trim(ar(i, 1)) <> "" Then
        d(Trim(ar(i, 1))) = ""
    End If
Next i
For Each k In d.keys
    n = 0
    ReDim br(1 To UBound(ar), 1 To 7)
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) = k Then
            n = n + 1
            br(n, 1) = ar(i, 4)
            br(n, 2) = ar(i, 6)
            br(n, 3) = ar(i, 5)
            br(n, 4) = ar(i, 7)
            br(n, 5) = ar(i, 8)
            br(n, 6) = ar(i, 9)
            br(n, 7) = ar(i, 12)
            dw = ar(i, 3)
            rq = ar(i, 2)
        End If
    Next i
    With Sheets("入库单")
        .Range("a4:h9") = Empty
        .[h1] = k
        .[b2] = dw
        .[e2] = rq
        .[b4].Resize(n, UBound(br, 2)) = br
        .PrintOut
    End With
Next k
MsgBox "打印完毕！"
End Sub

3190496160

3190496160

出入库单.rar (290.86 KB, 下载次数: 56)

2020-12-21 09:55 上传

点击文件名下载附件

3190496160

代码仅供参考，你的问题，还有很长的路要走，
不明白出库单中的A列需要写入什么，所以代码没写，
你目前预留了几行，如果某一个单，超过你预留的行数，如何处理？？
入库单根本没法做，你目前的入库明细表的设计根本不具备后期操作性

A快乐人生

3190496160 发表于 2020-12-21 09:54

这个表可以不打印，生成预览吗