Re: [VBA ] 請問如何運用VBA計算排名
看板Visual_Basic作者chungyuandye (養花種魚數月亮看星星)時間18年前 (2008/03/14 01:04)推噓1(1推 0噓 0→)留言1則, 1人參與討論串3/3 (看更多)
※ 引述《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
推
03/14 01:58, , 1F
03/14 01:58, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 3 之 3 篇)：