如何使用立方函数过滤掉Excel中的多个维度？

Question

我读过这个 post (use Cube Functions to get filtered dimensions)，它很有帮助，但我想再添加一层过滤。

假设我的数据在 PowerPivot 中看起来像这样：

Month     Category     Product #     Revenue
January   Trucks       00000001      000
January   Trucks       00000002      000
January   Cars         00000005      000
January   Cars         00000008      000
January   Trucks       00000003      000
February  Cars         00000005      000

所以基本上我有汽车或卡车，我想 return 在一月、二月等月份每个类别中最畅销的 2 种产品

如果我只过滤一个维度，我可以很容易地找到最畅销的产品。所以我可以找到一月份最畅销的产品（卡车或汽车）。我使用了上面提供的 link 中的方法。但我想在上面添加一层，然后说，只查找 1 月份最畅销的卡车。

我该怎么做？我希望我可以使用 "nonempty" 并根据需要添加每个过滤后的 dimension/condition，但也许我不明白语法应该如何。

Answer 1

我已经创建了一个应该满足您的要求的自定义函数，因此避免了复杂的设计和维护多个嵌套多维数据集函数所需的多维报告您的车辆销售数据。

另一个优点是，使用此方法，可以轻松创建和编辑多种变体，以便为未来的报告需求提供额外的功能。

用法类似于Excel的内置Rank函数：

从工作表调用函数，指定月份和/或类别，以及您需要返回的排名结果"rank number"。

For example, to get the Top (#1) selling Truck for January, you could use formula:
=GetTopSeller ( "January", "Trucks", 1 )
or, to get the 10th best selling car for the month listed in cell A1, you could use formula:
=GetTopSeller ( A, "Cars", 10 )

下图显示了语法和用法，以及使用的示例数据集在测试功能时，示例输出基于样本数据*。

Option Explicit
'Written by ashleedawg@outlook.com for 

Const returnForNoValue = "" 'could be Null, 0, "(Not Found)", etc

Public cnn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public strSQL As String

'Additional features which can be easily added on request if needed:
' add constants to specify Revenue or Product ID
' allow annual reporting
' allow list of vehicle types, months, etc
' make case insensitive


Public Function GetTopSeller(sMonth As String, sCategory As String, _
    sMonthRank As Integer) As Variant() '1=ProductID  2=Revenue

    Dim retData(1 To 2) As Variant

    strSQL = "Select Month, Category, [Product #], Revenue from [dataTable$] " & _
        "WHERE [Month]='" & sMonth & "' AND [Category]='" & sCategory & "' _
        Order by [Revenue] DESC"

    ' close Excel Table DB _before_ opening
    If rs.State = adStateOpen Then rs.Close
    rs.CursorLocation = adUseClient

    ' open Excel Table as DB
    If cnn.State = adStateOpen Then cnn.Close
    cnn.ConnectionString = "Driver={Microsoft Excel Driver " &
        "(*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & _
        ActiveWorkbook.Path & Application.PathSeparator & ActiveWorkbook.Name
    cnn.Open

    ' find appropriate data
    With rs
        .Open strSQL, cnn, adOpenKeyset, adLockOptimistic
        .MoveFirst
        If (.RecordCount <= 0) Or (.RecordCount < sMonthRank) _
            Or (sMonthRank = 0) Then GoTo queryError

        'move the Nth item in list
       .Move (sMonthRank - 1)
        retData(1) = ![Product #]
        retData(2) = !Revenue
    End With

    'return  value to the user or cell
    GetTopSeller = retData
Exit Function

queryError:
    'error trapped, return no values
    retData(1) = returnForNoValue
    retData(2) = returnForNoValue
    GetTopSeller = retData

End Function

以下是将函数复制到工作簿中的说明，从而使其可以作为工作表函数访问。或者，可以将示例工作簿另存为附加组件，然后通过创建对该附加组件的引用从任何工作簿进行访问。

如何将 VBA 函数添加到您的工作簿：

Select 下面的 VBA 代码，然后按 Ctrl+C 到复制.
在您的 Excel 工作簿中，按 Alt+F11 打开 VBA 编辑器（又名 VBE）。
单击 VBE 中的 Insert 菜单，然后选择 Module。
点击Ctrl+V粘贴代码。
单击 VBE 中的调试菜单，然后选择 **编译项目*。这会检查代码是否有错误。理想情况下 "nothing" 会发生，这意味着它没有错误并且很好。
通过单击 VBE 右上角的“✘”关闭 VBE window。
保存工作簿。 您的新功能现在可以使用了!

该功能的使用应该是不言自明的，但如果您需要更改、遇到问题或有任何疑问，请随时与我联系。

祝你好运！

如何使用立方函数过滤掉Excel中的多个维度？

How to filter out multiple dimensions in Excel using cube functions?

excel

powerpivot

cube

如何将 VBA 函数添加到您的工作簿：