Re: [算表] excel的rank函數~~請幫幫我

看板Office作者 (mycircle)時間18年前 (2007/08/28 20:37), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串2/4 (看更多)
※ 引述《kifbh (exit)》之銘言: : 軟體:excel : 版本:2003 : 國文 數學 英文 總分 : a 2 1 3 6 : b 3 2 3 7 : c 1 2 3 6 : 我知道要作總分排名可用rank函數 : 用了之後b是第一名,a,c兩位並列第二 : 若是題目改成 請用總分排名,若總分相同,用數學成績作排名依據 : 請問..上述題目...我應該怎麼做呢? : 謝謝 我建議你先用RANK函數排名次之後 接著利用VBA來解決排名相同的問題 範例下載 http://0rz.tw/c430T 程式碼如下 Sub a() For y = 1 To 35 For x = 5 To 39 For z = 5 To 39 If Cells(x, 13) = y And Cells(x, 13) = Cells(z, 13) And x <> z Then If Cells(x, 5) > Cells(z, 5) Then Cells(z, 13) = Cells(z, 13) + 1 Else Cells(x, 13) = Cells(x, 13) + 1 End If End If Next Next Next End Sub 我另一個想法就是 另外用一個儲存格來計算總分 主要是將數學的比重稍稍調高一點(因為你說總分相同時,用數學成績作排名依據) 例如調高 0.001 然後再用RANK函數來計算這個儲存格的排名(只用來排名而已) 當然最後的總分計算還是用原本的計分方式的儲存格來計算 這是我一點小想法拉 如有問題或是錯誤或有更好的想法的請寄信給我 大家一起討論看看 謝謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.59.191.162 ※ 編輯: mycircle 來自: 59.105.127.98 (08/28 23:41)
文章代碼(AID): #16r1STYD (Office)
文章代碼(AID): #16r1STYD (Office)