制作应付账款往来

wf1278

老师，具体见附件，望帮助！

liulang0808

建议楼主现在论坛中检索下雷同案例参考下

3190496160

论坛是做义务的，所以，帮助你的人，只能是按你设想好得逻辑帮你写代码，不可能还帮你设计思路，逻辑，因为，不是做你的工作的，不了解你的工作情况

feilanga

检索供应商应开发票余额及未开发票的商品明细，需要2个基础数据表，采购明细表和收票明细表，有了这2个基础表才可以有你需求的所有统计。而为了录入方便，就有了采购录入表和收票录入表，可以增删改查。不同的需求表格的复杂程度都不一样。所以，首要的就是确定流程 思路 需求 设计，这是一个相当繁琐的过程，一般情况下如果erp软件无法满足你的需求的时候，会想到用表格来自由化定制需求

3190496160

Private Sub Worksheet_Change(ByVal T As Range)
If T.Row = 1 And T.Column = 2 Then
    If T.Count > 1 Then End
    If T.Value = "" Then End
    Dim ar As Variant
    Dim br()
    With Sheets("进货单")
        r = .Cells(Rows.Count, 1).End(xlUp).Row
        If r < 2 Then MsgBox "进货单为空！": End
        ar = .Range(.Cells(1, 1), .Cells(r, 12))
    End With
    ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
    For i = 2 To UBound(ar)
        If Trim(ar(i, 2)) = T.Value Then
            n = n + 1
            For j = 1 To UBound(ar, 2)
                br(n, j) = ar(i, j)
            Next j
        End If
    Next i
    UsedRange.Offset(3).Borders.LineStyle = 0
     UsedRange.Offset(3) = Empty
     [a2] = T.Value & "明细表"
    [a4].Resize(n, UBound(ar, 2)) = br
    [a4].Resize(n, UBound(ar, 2)).Borders.LineStyle = 1
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Row = 1 And T.Column = 2 Then
    Dim d As Object
    Set d = CreateObject("scripting.dictionary")
    With Sheets("进货单")
        r = .Cells(Rows.Count, 1).End(xlUp).Row
        If r < 2 Then MsgBox "进货单为空！": End
        ar = .Range(.Cells(1, 1), .Cells(r, 12))
    End With
    For i = 2 To UBound(ar)
        If Trim(ar(i, 2)) <> "" Then
            d(Trim(ar(i, 2))) = ""
        End If
    Next i
    With T.Validation
    .Delete
    .Add 3, 1, 1, Join(d.keys, ",")
    End With
End If
End Sub

3190496160

3190496160

筛选供应商，
应付款 - 副本.rar (28.9 KB, 下载次数: 26)

2023-6-8 10:01 上传

点击文件名下载附件

sdytsxd991122

现成的财务软件就可以了，会计账有吧

wf1278

3190496160 发表于 2023-6-8 10:01
筛选供应商，

谢谢...！！