作者chungyuandye (养花种鱼数月亮看星星)
看板Visual_Basic
标题Re: [VBA ] 请问如何运用VBA计算排名
时间Fri Mar 14 01:04:51 2008
※ 引述《jackie30219 (凌晨三点钟)》之铭言：
: 不好意思！
: 这学期才开始学VBA
: 完全是新手上路
: 这周有个作业
: 大概就是做全班的成绩统计之类的
: 前两关算平均跟加总成绩我都破关了
: 可最後一样
: 要计算全班的排名
: 我怎麽想都写不出来
: 不知道有人能帮帮小弟我吗？
: 大概状况是全班有４５名同学
: 排名列是从(２１，４)到(２１，４８)
: 谢谢大家
sub test()
Dim Fn As Object
Set Fn = Application.WorksheetFunction
Range(cells(4,21),cells(48,21)).Select
For i = 1 To 45
Cells(i + 3, 2).Value = Fn.Rank(Selection.Item(i), Selection)
Next
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.232.189.101
1F：推 jackie30219:我破关了 感谢您!!! 03/14 01:58