如何把记账凭证汇总表的数据引入到凭证打印模板

刘会计的

函数应该怎样写？看了论坛很多人做的excel，函数太长理解不了

刘会计的

新手+新人，希望大家多多指教。
就是想怎样把凭证汇总表的数据引入记账凭证打印

3190496160

求助务必上传附件，具体描述你的需求才可能得到别人的帮助，空空而谈，没人帮得了你的

刘会计的

3190496160 发表于 2024-3-11 21:00
求助务必上传附件，具体描述你的需求才可能得到别人的帮助，空空而谈，没人帮得了你的

谢谢提醒，马上上传下

3190496160

Sub 凭证打印()
Dim ar As Variant
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("凭证汇总表")
    r = .Cells(Rows.Count, 7).End(xlUp).Row
    If r < 3 Then MsgBox "凭证汇总表为空！": End
    ar = .Range("a2:l" & r)
End With
For i = 2 To UBound(ar)
    For j = 1 To 6
        If ar(i, j) = "" Then
            ar(i, j) = ar(i - 1, j)
        End If
    Next j
    If d(ar(i, 5)) = "" Then
        d(ar(i, 5)) = i
    Else
        d(ar(i, 5)) = d(ar(i, 5)) & "|" & i
    End If
Next i
With Sheets("记账凭证")
    For Each k In d.keys
        .Range("a4:i9") = Empty
        rr = Split(d(k), "|")
        n = 3
        For i = 0 To UBound(rr)
            xh = rr(i)
            n = n + 1
            .Cells(n, 1) = ar(xh, 6)
            .Cells(n, 2) = ar(xh, 8)
            .Cells(n, 3) = ar(xh, 9)
            .Cells(n, 4) = ar(xh, 10)
            .Cells(n, 7) = ar(xh, 11)
            .[d2] = ar(xh, 1) & "/" & ar(xh, 2) & "/" & ar(xh, 3)
            .[f2] = ar(xh, 5)
            .[h2] = ar(xh, 12)
        Next i
        .PrintOut
    Next k
End With
MsgBox "打印完毕！", 64, "提醒！"
End Sub

3190496160

1.rar (29.31 KB, 下载次数: 46)

2024-3-12 09:44 上传

点击文件名下载附件

3190496160

一些细节不是很明确，仅供参考，实在不行，可以加v

刘会计的

3190496160 发表于 2024-3-12 09:45
一些细节不是很明确，仅供参考，实在不行，可以加v

谢谢，但这个超出了我的认知。excel不会编程。才刚开始学函数

刘会计的

自己通过添加辅助列，运用if,countif,oddert,match函数搞定
=IF(COUNTIF(凭证汇总表!$D$3:$D$500,$F$2)-$K3>0,OFFSET(凭证汇总表!$G$3,MATCH($F$2,凭证汇总表!$D$3:$D$500,0)+$K3-1,0),"")

风正帆直