用公式或者VBA 进行核销应收款

2217918

各位老师好，帮忙解决下。

该表格黄色部分，用公式或者VBA

进行核销应收账款。

2217918

请老师们，帮助下，谢谢！

ione_fox

2019-2-5         50,000.00   为什么核销日期是3.10 和3.11？预付款还能出现逾期？

2217918

ione_fox 发表于 2019-2-11 09:03
2019-2-5         50,000.00   为什么核销日期是3.10 和3.11？预付款还能出现逾期？

非常抱歉，是我输错了，是2月5日，按照回款日期顺序，进行核销。

ione_fox

1. Sub Check()
   
2.     Dim Temp As Single, Ar(), Br(), I&, J&, Cr(), K&
   
3.     Ar = Range("c7:e" & Cells(Rows.Count, 3).End(3).Row)
   
4.     Br = Range("f7:g" & Cells(Rows.Count, 6).End(3).Row)
   
5.     ReDim Cr(1 To 10000, 1 To 3)
   
6.     I = 1: J = 1
   
7.    
   
8.     Do While I <= UBound(Ar) And J <= UBound(Br)
   
9.         K = K + 1
   
10.         Cr(K, 1) = Br(J, 1): Cr(K, 3) = Cr(K, 1) - Ar(I, 3)
    
11.         Temp = Br(J, 2) - Ar(I, 2)
    
12.         If Temp < 0 Then '回款全部弥补
    
13.             Ar(I, 2) = -Temp
    
14.             Cr(K, 2) = Br(J, 2)
    
15.             J = J + 1
    
16.         Else '回款未全部弥补欠款
    
17.             Br(J, 2) = Temp
    
18.             Cr(K, 2) = Ar(I, 2)
    
19.             I = I + 1
    
20.         End If
    
21.     Loop
    
22.     Range("i7").Resize(K, 3) = Cr
    
23. End Sub

复制代码

ione_fox

核销应收账款.rar (26.76 KB, 下载次数: 68)

2019-2-11 10:22 上传

点击文件名下载附件

附件请测试

2217918

ione_fox 发表于 2019-2-11 10:22
附件请测试

非常感谢，老师，我先测试下，有任何问题，在向你请教，再次感谢你！

2217918

ione_fox 发表于 2019-2-11 10:22
附件请测试

老师，您好，出现错误，帮忙看下。谢谢

micch

琢磨了一下，好复杂，如果数据多了，要考虑一笔回款可能结清多笔应收款的情况，也要考虑多笔回款都没结清一笔旧的应收款的情况。

有点库存商品先进先出那个意思，逾期负数表示没逾期吧？

2217918

micch 发表于 2019-2-11 14:37
琢磨了一下，好复杂，如果数据多了，要考虑一笔回款可能结清多笔应收款的情况，也要考虑多笔回款都没结清一 ...

逾期负数没有关系，我的需要是按照日期核销应收账款。谢谢