[已解决]在VBA中如何利用RANK函数排名

向前650809

各位网友好，听说在VBA中可用函数RANK函数对学生成绩进行排序，请问RANK函数是何何函数，如何运用。利用RANK函数排名，代码如何编写。请指导，谢谢
另，在代码中Application.Rank，是何意，Application表示何，Application.Rank（）中，无Application可以吗，二者有何区别
为什么必须有Application（我看到一些帖子好象必须有）

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-5-9 13:58

工作表函数前面要加application.，VBA函数不用。

1. Sub aaa()
   
2. Dim i&
   
3. For i = 3 To 237
   
4.   Cells(i, 5) = Application.Rank(Cells(i, 4), [d3:d237], 0)
   
5.   Cells(i, 7) = Application.Rank(Cells(i, 6), [f3:f237], 0)
   
6. Next i
   
7. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

工作表函数前面要加application.，VBA函数不用。

1. Sub aaa()
   
2. Dim i&
   
3. For i = 3 To 237
   
4.   Cells(i, 5) = Application.Rank(Cells(i, 4), [d3:d237], 0)
   
5.   Cells(i, 7) = Application.Rank(Cells(i, 6), [f3:f237], 0)
   
6. Next i
   
7. End Sub

复制代码

france723

Excel内建的函数又可以分为两种类型：分别是使用于“工作表”中的工作表函数与“宏”的宏函数
VBA有内部函数，如Mid()、Len()等，在代码中，我们可以在函数之前冠以前缀“VBA.” , 当然通常情况下省略.还有一个对象WorksheetFunction, 用来引进工作表函数, 例如Index()、Rank()等.
例如代码 Cells(i, 5) = WorksheetFunction.Rank(Cells(i, 4), [d3:d237], 0) .
对象Application表示Microsoft Excel, 所以这句话完整表示 Cells(i, 5) = Application.WorksheetFunction.Rank(Cells(i, 4), [d3:d237], 0) .
由于习惯, 通常情况下省略WorksheetFunction, 故写成 Cells(i, 5) = Application.Rank(Cells(i, 4), [d3:d237], 0).