作者mycircle (mycircle)
看板Office
标题Re: [算表] excel的rank函数~~请帮帮我
时间Tue Aug 28 20:37:48 2007
※ 引述《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)