怎样通过发票数据找出“流失客户”？

tte3

各位老师好！

怎样通过发票数据发现并找出“流失客户”？

流失客户：客户在3个以上(含3)不同月份都有开票，并且客户【倒数第二次开票月份】距离本月（本月指开票日期最后一行的月份）超过12月的客户。

谢谢！

limonet

建议你模拟的时候更严谨一些，因为结果只有两个。
A11111
C11111

limonet

代码在审核

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$, Rs As Object, Arr As Variant, Brr As Variant, i%, S$
    Columns("A:e").ClearContents
    Set Cn = CreateObject("adodb.connection")
    Cn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
    StrSQL = "select month(开票日期) as 月,购货方名称,购货方社会统一信用代码 from [发票数据$A:N] group by month(开票日期),购货方名称,购货方社会统一信用代码"
    StrSQL = "select 购货方社会统一信用代码 from (" & StrSQL & ") group by 购货方社会统一信用代码 having count(*)>=3"
    Arr = Cn.Execute(StrSQL).getrows
    For i = 0 To UBound(Arr, 2)
        StrSQL = "select top 2 开票日期 from [发票数据$A:N] where 购货方社会统一信用代码='" & Arr(0, i) & "' order by 开票日期 desc"
        Brr = Cn.Execute(StrSQL).getrows
        If DateDiff("M", Brr(0, 1), Date) > 12 Then S = S & "'" & Arr(0, i) & "',"
    Next i
    StrSQL = "select '流失客户' as 分类,购货方名称,购货方社会统一信用代码 from [发票数据$A:N] where 购货方社会统一信用代码 in(" & Left(S, Len(S) - 1) & ") group by 购货方名称,购货方社会统一信用代码"
    Set Rs = Cn.Execute(StrSQL)
    For i = 0 To Rs.Fields.Count - 1
        Sheet3.Cells(1, i + 1) = Rs.Fields(i).Name
    Next i
    Sheet3.Range("A2").CopyFromRecordset Rs
    Rs.Close
    Cn.Close
    Set Rs = Nothing
    Set Cn = Nothing
End Sub

lcluck2002

流失客户1219.zip

tte3

limonet 发表于 2022-12-18 22:22
代码在审核

    Arr = Cn.Execute(StrSQL).getrows
运行时错误“-2147217904（80040e10)"
至少一个参数没有被指定值


AA公司，我还特别文字说明了，多次在同一个月开票的，算一个月，
AA公司最后开票月份为2021.11月和2022.6月，要以倒数第二次开票月算距离现在的时长
所以，应以2021.11月算，距离现在2022.12月时长超过12个月了，计入流失客户

实际运用也是如此，一个顾客，好几年没来了，突然在半年前来一次，又没来了，这是不是算流失客户？
所以，加入倒数第二个开票月份来算，可以排除这种情况。

谢谢帮助！

tte3

lcluck2002 发表于 2022-12-19 00:15
流失客户1219.zip

感谢帮助！
结果正是如此

tte3

tte3 发表于 2022-12-19 10:14
Arr = Cn.Execute(StrSQL).getrows
运行时错误“-2147217904（80040e10)"
至少一个参数没有被指定 ...

流失客户表述为：
距今1年内，客户消费不同的月数小于2（即1年内只在1或0个月份有消费过），且，迄今为止，客户消费不同月份大于或等于3.


通俗来说，就是消费3个不同月份以上的客户，未在距今1年内消费2个月以上，判断为流失客户。这样定义流失客户比较好些。
其他，总消费只有1次或2次的客户，只是过客或散客，就不能算流失客户了。

风中的我脸

在有3个不同月份以上的客户中，一年内开票次数按月份分类至少有两个为非流失客户
不知道这样理解对吗
一年内是>12还是大于等于12楼主自己修改

如果是按最后一次开票月份来统计
至少1个，最后的sum条件改为<1(流失客户就是求反，至少1个，求反<1)

limonet

代码审核中。