用RANK函数对学生成绩排名的问
第一步:定义函数
"工具"--->"宏"--->"宏。。。"
输入宏名 :MYRank "创建"
用下面的代码全部替换掉原来的代码
Function MyRank(Number As Integer, Ref As Range)
Dim MyRef As New Collection
On Error Resume Next
For Each r In Ref
MyRef。 Add r。Value, CStr(r。 Value)
Next
For Each m In MyRef
If m > Number Then i = i + 1
Next
MyRank = i + 1
End F...全部
第一步:定义函数
"工具"--->"宏"--->"宏。。。"
输入宏名 :MYRank "创建"
用下面的代码全部替换掉原来的代码
Function MyRank(Number As Integer, Ref As Range)
Dim MyRef As New Collection
On Error Resume Next
For Each r In Ref
MyRef。
Add r。Value, CStr(r。
Value)
Next
For Each m In MyRef
If m > Number Then i = i + 1
Next
MyRank = i + 1
End Function
"调试"--->"编译VBAProject"
第二步:引用自定义函数
=MyRank(D2,D1:D8)
使用方法和Rank函数一样。收起