各位大神帮帮忙，急急急！自动生成对账单

angelbelial

各位大神帮帮忙！怎么根据应收账款和收款明细2个表格用宏自动生成对账的那个模板！拜托各位大神帮帮忙！在此谢谢各位了

3190496160

应收账款和收款明细中的数据如何对应呢？比如：A客户，
应收账款中有2行数据，如果跟收款明细中的两行数据对应来计算余额呢？？？？？

angelbelial

3190496160 发表于 2024-2-2 14:21
应收账款和收款明细中的数据如何对应呢？比如：A客户，
应收账款中有2行数据，如果跟收款明细中的两行数据 ...

最后想要对账单模版的那样子

3190496160

Sub 对账单()
Application.ScreenUpdating = False
Dim ar As Variant, br As Variant
Dim cr()
Dim d As Object, dc As Object
Set d = CreateObject("scripting.dictionary")
Set dc = CreateObject("scripting.dictionary")
Application.DisplayAlerts = False
For Each sh In Sheets
    If sh.Index > 3 Then
        sh.Delete
    End If
Next sh
Application.DisplayAlerts = True
With Sheets("应收账款")
    r = .Cells(Rows.Count, 3).End(xlUp).Row
    If r < 2 Then MsgBox "应收账款为空！": End
    ar = .Range("a1:e" & r)
End With
For i = 2 To UBound(ar)
    If ar(i, 3) <> "" Then
        If Not d.exists(ar(i, 3)) Then
            d(ar(i, 3)) = i
        Else
            d(ar(i, 3)) = d(ar(i, 3)) & "|" & i
        End If
    End If
Next i
With Sheets("收款明细")
    rs = .Cells(Rows.Count, 3).End(xlUp).Row
    If rs < 2 Then MsgBox "收款明细为空！": End
    br = .Range("a1:e" & rs)
End With
For i = 2 To UBound(br)
    If br(i, 3) <> "" Then
        If Not dc.exists(br(i, 3)) Then
            dc(br(i, 3)) = i
        Else
            dc(br(i, 3)) = dc(br(i, 3)) & "|" & i
        End If
    End If
Next i
For Each k In d.keys
    zf = d(k)
    zd = dc(k)
    Sheets("对账单模板").Copy after:=Sheets(Sheets.Count)
    With ActiveSheet
        .Name = k & "对账单"
        .[b3] = k
        rr = Split(zf, "|")
        n = 0
        ReDim cr(1 To UBound(ar), 1 To 7)
        For i = 0 To UBound(rr)
            xh = rr(i)
            n = n + 1
            For j = 2 To 5
                cr(n, j - 1) = ar(xh, j)
            Next j
        Next i
        rr = Split(zd, "|")
        For i = 0 To UBound(rr)
            xh = rr(i)
            n = n + 1
            cr(n, 5) = br(xh, 2)
            cr(n, 6) = br(xh, 4)
            cr(n, 7) = br(xh, 5)
        Next i
        If n > 0 Then .[a5].Resize(n, UBound(cr, 2)) = cr: .[a5].Resize(n, UBound(cr, 2) + 1).Borders.LineStyle = 1
    End With
Next k
Set d = Nothing
Set dc = Nothing
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

工作簿1.rar (27.7 KB, 下载次数: 26)

2024-2-5 09:26 上传

点击文件名下载附件

3190496160

猜呢，实在不行，可以加v

angelbelial

3190496160 发表于 2024-2-5 09:27

自动生成那里可以选择自己想生成的客户对账单吗？那个余额那里没有显示金额啊

3190496160

目前的代码，是猜着写的，特别是余额的问题，在2楼中就提出疑问了，你也没回答呀，

橒♂蝣

=REDUCE("",UNIQUE(应收账款!C2:C17),LAMBDA(x,y,LET(
i,FILTER(应收账款!B:E,应收账款!C:C=y,""),
j,FILTER(收款明细!B:E,收款明细!C:C=y),
k,{"日期","客户","单号","金额","收款日期","收款金额","方式","余额"},
IFERROR(VSTACK(x,VSTACK("","对账单",HSTACK("客户名称：",y),k,HSTACK(i,IFERROR(CHOOSECOLS(j,1,3,4),"")),HSTACK("","合计","",SUM(INDEX(i,,4)),"",IFERROR(SUM(INDEX(j,,3)),0),"",SUM(INDEX(i,,4))-IFERROR(SUM(INDEX(j,,3)),0)))
),""))))

angelbelial

橒♂蝣 发表于 2024-3-5 12:56
=REDUCE("",UNIQUE(应收账款!C2:C17),LAMBDA(x,y,LET(
i,FILTER(应收账款!B:E,应收账款!C:C=y,""),
j,FIL ...

可以直接在压缩文件里面改一下吗