SQL求字段TOP20,高手请进

ziliang454618

有空好好学习

yanjie

用数据库的查询来做，试试看！
做好查询后，然后用透视表去挂接它！这样好像与数据透视表就没有关系了！

penghaifeng

原帖由 yanjie 于 2009-8-8 16:17 发表
用数据库的查询来做，试试看！
做好查询后，然后用透视表去挂接它！这样好像与数据透视表就没有关系了！

最好是这样！~~~
否则，我们学透视表的信心就不足了！~~~

wangjian6931

我需要做的数据是统计一个星期的销量、销售多管TOP20，每周都要运行一次，重新定义一下时间，所以得有几个变量的。这样也方便用数据透视表链接数据库吗？

nkgsm

分类前20名的查询或叫筛选，难度就在这个分类上，这等于是多条件的筛选，但筛选的自定义和高级筛选的条件设置是无法做到这点，如果是单条件的前20名，是很容易解决的。在上述发表的帖子上看到很多高手已经用VBA和SQL语句解决了，本人通过解几何题设置辅助线得到启发，这个难题也可设置辅助列用简单的公式和筛选解决。先排序（先大分类升序后销售额降序），增加两列，1列为名次赋值（1、2、3……），1列为前20名标记（为筛选服务）。具体见附件。

wangjian6931

谢谢你的回答～！你这个也是一个不错的思路。如果不运用VBA代码完成前二十名的筛选的话，目前你的方法是最好的。可是我要求的是速度与自动化……
慢着，也许把你的这种思想用VBA来实现的话，也许速度上会快一点的。

nkgsm

我按照上述方法录制了一个宏，这个代码要修改一下更好，比如填充到等，这个宏还有一个缺陷，要选定h2单元格，因为录制时没有选择h2。具体代码如下：
Sub 分类前20()
'
' 分类前20 Macro
' 宏由 nkpcb 录制，时间: 2009-8-10
'

'
    ActiveCell.FormulaR1C1 = "1"
    Range("H3").Select
    ActiveCell.FormulaR1C1 = "=IF(R[-1]C[-5]<>RC[-5],1,1+R[-1]C)"
    Range("H3").Select
    Selection.AutoFill Destination:=Range("H3:H1303")
    Range("H3:H1303").Select
    Range("I2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-1]<=20,1,0)"
    Range("I2").Select
    Selection.AutoFill Destination:=Range("I2:I1303")
    Range("I2:I1303").Select
    Rows("1:1").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=9, Criteria1:="1"
End Sub

nkgsm

忘记了补充一句，这个宏必须是先排好序，才能使用。

nkgsm

只要品名不发生多次，只发生一次，则简单的透视也可达到分大类筛选前20，如果品名重复发生超过了1次，则透视的结果就是失真的。

小蚁雄兵

原帖由 nkgsm 于 2009-8-9 14:55 发表
分类前20名的查询或叫筛选，难度就在这个分类上，这等于是多条件的筛选，但筛选的自定义和高级筛选的条件设置是无法做到这点，如果是单条件的前20名，是很容易解决的。在上述发表的帖子上看到很多高手已经用VBA和SQL ...

这个方法类似：http://club.excelhome.net/thread-432412-1-1.html