中西排名自定义函数

aoe1981

香川群子 发表于 2014-8-6 13:33
上代码、上附件：

1.     If n_OutputIndex = 0 Then Rnk = Application.Index(ar, , 1) Else Rnk = ar((n_OutputIndex - 1) Mod u + 1, 1)
   

复制代码

上一句是您实现整体提取值和单个提取值的方法，我试着改成了下句：

1.     If n_OutputIndex = 0 Then Rnk = Application.Index(ar, , 1) Else Rnk = ar(n_OutputIndex Mod (u + 1), 1)
   

复制代码

甚至下句：

1.     If n_OutputIndex = 0 Then Rnk = Application.Index(ar, , 1) Else Rnk = ar(n_OutputIndex, 1)
   

复制代码

屏蔽错误的效果都差了些，不过u个数据中要提取u+1个数据的排名时，理应出错，都超出数据范围了……

aoe1981

“另外、如果工作表引用了多行多列的矩形数组区域，
那么返回的排序结果数组仍然是一维的。”
要是返回结果是同样形状的矩形区域的话，可能形式上好一点，但这个区域的本来实用性不大……

aoe1981

“注意如果使用VBA内存数组，应转为一维数组后引用”
理解了：
错误：

1. =Rnk({90;85;46;85},2)

复制代码

正确：

1. =Rnk({90,85,46,85},2)

复制代码

香川群子

aoe1981 发表于 2014-8-12 08:41
　　初步研究了下：　　此处数组与区域的识别、防错，简洁巧妙，学习了……
　　至于接下来，我可能得先 ...

判断引用参数变量是Range、还是VBA内存数组的方法改进：

If IsObject(Rng_Arr) Then u = Rng_Arr.Count Else u = UBound(Rng_Arr)

aoe1981

香川群子 发表于 2014-9-9 11:20
判断引用参数变量是Range、还是VBA内存数组的方法改进：

If IsObject(Rng_Arr) Then u = Rng_Arr.Coun ...

range是对象变量，对吗？此时IsObject(Rng_Arr) 返回值为True，对吧？
如是，确实更加巧妙！

sam.tan

好东西，谢谢楼主分享。

jinhaitiao16

好东西，谢谢楼主

HUA79100101

中西排名自定义函数

layaxia

大神摩拜。本来在研究分组内的排名，数组函数跑的太慢了，先直接引用自定义函数了。

WYS67

香川群子 发表于 2014-8-6 13:33
上代码、上附件：

女侠的排名功能很强大！如果能够根据指定名次反向查询其对应的所有数据，其功能就更无与伦比了！