看看怎么做吧,透视表,不管啥方法都行

aa7701914

问题已在附件上,
除了用函数之后,其他的方法都可以,试一下吧,

dg831451

请参考。。

masterexcel

请勿参考，误解题意了！

供参考，如附件：

[ 本帖最后由 masterexcel 于 2009-12-17 09:45 编辑 ]

aa7701914

哦哦,老大,你还是没有明白我的说明呐,
当然你做对了一部分,比如当你选择销售时,那个是前15名,那么这15名的销售,同时也要对应他的一个库存量,
这样我在看前15时,也就自然而然的知道他目前所的库存量是多少,方便调货.
麻烦你再看一下

masterexcel

楼主看附件可是你要的？

一个问题，有的销量没有（为0），但是库存有，则在销量后15名种没有体现，若需要体现，则要更改SQL语句。

aa7701914

谢谢楼上的,大但是出来了,但是还是没有达到我的要求,呵呵,在上面要进行一个筛选项,进行筛选的.

masterexcel

这个问题终于搞定，可以根据需要选择前？家，后？家，同时降序排列。SQL+VBA+PivotFields(X).AutoShow,AutoSort

也可也选择库存最前或最后的n家，只要在选择字段时，选择库存字段即可。

将代码略作修改，更方便，如下：

[attach]635531[/attach

1. 
   
2. Private Sub CommandButton1_Click()
   
3.        StrUpDown = MsgBox("最前请选yes,最后请no", vbYesNo)
   
4.     Select Case StrUpDown
   
5.     Case vbYes
   
6.         intUp = Application.InputBox(prompt:="前？家", Type:=1)
   
7.         Set tempRange = Application.InputBox(prompt:="请选择引用字段的单元格，只选一个！", Type:=8)
   
8.         strField = tempRange.Cells(1, 1).Value
   
9.         With ThisWorkbook.Sheets("Total").PivotTables("PVT1").PivotFields("商品编码")
   
10.             .AutoShow xlAutomatic, xlTop, intUp, strField
    
11.             .AutoSort xlDescending, strField
    
12.         End With
    
13.         CommandButton1.Caption = Trim(strField) & "最大" & intUp & "家"
    
14.         Set tempRange = Nothing
    
15.     Case vbNo
    
16.         intDown = Application.InputBox(prompt:="后？家", Type:=1)
    
17.         Set tempRange = Application.InputBox(prompt:="请选择引用字段的单元格，只选一个！", Type:=8)
    
18.         strField = tempRange.Cells(1, 1).Value
    
19.         With ThisWorkbook.Sheets("Total").PivotTables("PVT1").PivotFields("商品编码")
    
20.             .AutoShow xlAutomatic, xlBottom, intDown, strField
    
21.             .AutoSort xlDescending, strField
    
22.         End With
    
23.         CommandButton1.Caption = Trim(strField) & "最小" & intDown & "家"
    
24.         Set tempRange = Nothing
    
25.     End Select
    

复制代码

[ 本帖最后由 masterexcel 于 2009-12-27 18:21 编辑 ]

aa7701914

厉害..呵呵,可惜小生不懂,呵,谢谢