请各路VBA大神们帮忙补全下代码

Excelgogogogo

由于着急使用，信息化部门员工请长假。请大神们帮帮忙，鲜花感谢

wowo000

楼主：抱歉，发错了。

3190496160

需求不明确，具体要完成出库单，入库单，退货中的哪些功能？每个功能的具体逻辑是什么？要有具体的说明，毕竟，别人不是做你的工作的，不可能了解你的需求的，没有具体的说明，再急也是没用的

feilanga

一个连附件都不认真上传的问题，不值得关注!

Excelgogogogo

3190496160 发表于 2022-12-4 21:56
需求不明确，具体要完成出库单，入库单，退货中的哪些功能？每个功能的具体逻辑是什么？要有具体的说明， ...

现在 入库 出库 已经写完了。只有退货 和退货明细 还有供货商对账 没写。需求就是在退货单输入后点保存自动更新到退货明细里边。供货商对账里有详细的需求说明

Excelgogogogo

3190496160 发表于 2022-12-4 21:56
需求不明确，具体要完成出库单，入库单，退货中的哪些功能？每个功能的具体逻辑是什么？要有具体的说明， ...

其实 就是把退货单 退货明细 和 入库单 入库明细 写成一样的就行  

Excelgogogogo

feilanga 发表于 2022-12-4 23:48
一个连附件都不认真上传的问题，不值得关注!

我的附件 正常啊  哪里出错了 ？

3190496160

Sub 客户对账()
Application.ScreenUpdating = False
Dim ar As Variant, br As Variant
Dim d As Object
Dim arr()
Set d = CreateObject("scripting.dictionary")
ReDim arr(1 To 1000, 1 To 4)
With Sheets("供应商对账")
    gys = .[b1]
    If gys = "" Then MsgBox "请选择供应商！": End
    For Each sh In Sheets(Array("入库明细", "退货明细"))
        r = sh.Cells(Rows.Count, 1).End(xlUp).Row
        If r > 1 Then
            ar = sh.Range("a1:m" & r)
            For i = 2 To UBound(ar)
                If Trim(ar(i, 13)) = Trim(gys) Then
                    If Trim(ar(i, 4)) <> Empty Then
                        t = d(Trim(ar(i, 4)))
                        If t = "" Then
                            k = k + 1
                            d(Trim(ar(i, 4))) = k
                            t = k
                            arr(k, 1) = ar(i, 4)
                        End If
                        If sh.Name = "入库明细" Then
                            arr(t, 2) = arr(t, 2) + ar(i, 6)
                        Else
                            arr(t, 3) = arr(t, 3) + ar(i, 6)
                        End If
                        arr(t, 4) = arr(t, 2) - arr(t, 3)
                    End If
                End If
            Next i
        End If
    Next sh
    If k = "" Then MsgBox "没有所选供应商的数据！": End
    .UsedRange.Offset(3) = Empty
    .[a4].Resize(k, UBound(arr, 2)) = arr
End With
Set d = Nothing
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

仓库出入库管理系统 （自动）1.rar (130.6 KB, 下载次数: 5)

2022-12-5 11:55 上传

点击文件名下载附件

3190496160

只写了客户对账的代码，供参考，其他的不明白你的意思，