VBA中的PercentRank算法答案

【问题标题】：PercentRank algorithm in VBAVBA中的PercentRank算法
【发布时间】：2011-01-27 00:48:26
【问题描述】：

我在 Php 和（看起来很像）C++ 中找到了“如何在存在关系时为数组分配排名号”问题的答案。我还找到了一些关于 Excel 的 PercentRank 的我不懂的语言的答案。

有人可以帮我在 VBA 中做到这一点吗？我需要从 Access fopr 报告中的 12 个值计算 PercentRank，我不能使用 Excel。这是我所追求的一个例子：

   Per  Val %Rank
    01  80  0.82
    02  74  0.45
    03  88  1.00
    04  60  0.00
    05  86  0.91
    06  68  0.18
    07  64  0.09
    08  78  0.64
    09  76  0.55
    10  72  0.27
    11  78  0.64
    12  72  0.27

请注意，期间 08 和 11 的值是相同的。也适用于期间 10 和 12。我在某处读到，当有关系时，该函数必须计算某种平均值。

有人可以帮忙用 VBA 编写函数吗？

非常感谢。

D.拉马尔什

【问题讨论】：

请发布您找到的答案的链接

标签： vba ranking

【解决方案1】：

关系应该产生相同的百分比排名，就像您的示例所示。如果您的 x 数不在数组中，那么您必须进行推断。如果你确信 x 在数组中，你可以简化为这个

Public Function PRank(vaArray As Variant, x As Variant) As Double

    Dim lLower As Long
    Dim lHigher As Long
    Dim i As Long

    For i = LBound(vaArray, 1) To UBound(vaArray, 1)
        If vaArray(i, 1) < x Then
            lLower = lLower + 1
        ElseIf vaArray(i, 1) > x Then
            lHigher = lHigher + 1
        End If
    Next i

    PRank = lLower / (lLower + lHigher)

End Function

如果你传递一个不在 vaArray 中的 x 值，这将产生错误的结果。此外，这假设您正在传递一个二维数组（就像 Excel 列一样），因此您可能需要对此进行调整。

【讨论】：