自动求出前十名客户名称的逻辑公式

aileen-bao

要求黄色部分按照基础数据源（蓝色）自动求出前十名客户名称，绿色部分显示汇总数量及总金额数
要求是逻辑公式，基础数据源（蓝色）会不停增加，黄色部分及绿色部分自动跳数，盼复，谢谢！

wswfzwswfz

1. select top 10 客户名称,count(订单月份) as 数量,sum([总金额(含税)]) as 总金额 from [2015年订单汇总$a1:f] group by 客户名称 order by sum([总金额(含税)]) desc

复制代码

aileen-bao

wswfzwswfz 发表于 2015-10-8 10:01

不好意思，因为基础数据会不停添加，数据透视表只是透视某个点，我是要基础数据添加后，通过逻辑公式就能挑出黄色和绿色部分

yeminqiang

1. 
   

复制代码

Sub yyy()
Dim cnn As Object, rs As Object, i&, SQL$
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties =Excel 8.0;Data Source =" & ThisWorkbook.FullName
    SQL = "select top 10 客户名称,count(订单月份) as 数量,sum([总金额(含税)]) as 总金额 from [2015年订单汇总$a1:f] group by 客户名称 order by sum([总金额(含税)]) desc"
    Set rs = cnn.Execute(SQL)
    Sheets("2015年订单汇总").Range("i2:k11").ClearContents
    Sheets("2015年订单汇总").Range("i2").CopyFromRecordset rs
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
End Sub



123.zip (28.52 KB, 下载次数: 4)

2015-10-8 10:11 上传

点击文件名下载附件

盗楼上代码

yeminqiang

aileen-bao 发表于 2015-10-8 10:10
不好意思，因为基础数据会不停添加，数据透视表只是透视某个点，我是要基础数据添加后，通过逻辑公式就能 ...

SQL代码生成的透视表，尽管添加数据，只需要刷新一下数透就有新结果。

wswfzwswfz

透视可以的呀

1. select top 10 客户名称,count(订单月份) as 数量,sum([总金额(含税)]) as 总金额 from [2015年订单汇总$a1:f] group by 客户名称 order by sum([总金额(含税)]) desc union all select "总计",sum(数量),sum(总金额) from (select top 10 客户名称,count(订单月份) as 数量,sum([总金额(含税)]) as 总金额 from [2015年订单汇总$a1:f] group by 客户名称 order by sum([总金额(含税)]) desc)

复制代码

不用透视表，总计还得自己计算

wswfzwswfz

我解释下，2楼是直接刷到透视表里的，你直接用就可以了
6楼是直接刷表，里面附带了汇总
一样的结果

aileen-bao

怎么刷新？不会，求助！

coldtty

公式会卡的：

1. =INDEX(A:A,MAX((LARGE(SUMIF($A$2:$A$290,$A$2:$A$290,$F$2:$F$290),SUM(COUNTIF(A:A,$I$1:I1)))=SUMIF($A$2:$A$290,$A$2:$A$290,$F$2:$F$290))*ROW($2:$290)))

复制代码

sdc3211772

=INDEX(A:A,MOD(LARGE(ROUND(SUMIF($A$2:$A$1000,IF(MATCH($A$2:$A$1000,$A$2:$A$1000,)=ROW($A$2:$A$1000)-1,$A$2:$A$1000,""),$F$2:$F$1000),)/1%%+ROW($A$2:$A$1000),ROW(A1)),10^4))
三键结束