Excel应用--提取回款时间

有网友问到，如何找出最后回款日期。

基础表如下：

张三1月1日的货款248元，5月7日回了120元，11月25日回了800，那么5月7日没回完，

到11月25日才将1月1日的248货款的128元回完，那么由此确定，第一笔销售的回款最后日期为11月25日

作者：源理-office中国

 Excel提取数据结果

 Excel提取数据公式法：               

     {=INDEX($F$2:$F$7,MATCH(1,(SUMIF(INDIRECT("$G$2:G" & ROW($2:$7)),$G$2:$G$7,INDIRECT("$H$2:H" & ROW($2:$7)))>C2)*($G$2:$G$7=B2),0))}

 Excel提取数据代码法：

        Function test(name As String, d As Date, money As Double, DateColumn As Range)

            test = Application.WorksheetFunction.Max(DateColumn) + 1

            Dim cel As Range

            Dim totalMoney As Double

            For Each cel In DateColumn

                If name = cel.Offset(0, 1) And d < cel Then

                    totalMoney = Application.WorksheetFunction.SumIfs(DateColumn.Offset(, 2), DateColumn.Offset(, 1), name, DateColumn, ">=" & CDbl(d), DateColumn, "<=" & CDbl(cel.Value))

                    If totalMoney >= money Then

                        If cel < test Then

                            test = cel

                        End If

                    End If

                End If

            Next

            If test = Application.WorksheetFunction.Max(DateColumn) + 1 Then test = "没收回"

        End Function