[已解决]求大神们一个多项选择题得分统计公式

chouqq1989

这道题有5个选项 （选择用1未选用0表示）标准答案如附件中是11100，赋分是2分（选对得2分，漏选得1分，有错选则0分）。求大神们帮助我写个公式。

最佳答案

月排行榜 / 总排行榜

爱疯

2016-3-14 16:34

百度的：http://club.excelhome.net/thread-895989-1-1.html
看到有点长的函数，就 。。。。。。。
所以，写了个自定义函数


'功能：求多项选择的得分
Function getScore(rng As Range, answer As Range) As Integer
    Dim i As Integer, ans As Integer, x

    getScore = 2
    For Each x In rng
        i = i + 1
        ans = Mid(answer, i, 1)
        '当不一致时，如果是1只扣分，否则得0并结束。
        If x <> ans Then If ans = 1 Then getScore = getScore - 1 Else getScore = 0: Exit For
    Next
End Function
多选判断题判卷2.rar (3.92 KB, 下载次数: 10)

2016-3-14 16:32 上传

点击文件名下载附件

跳转到最佳答案楼层

huangcaiguang

看不懂{:4712:}

爱疯

手动给几个得分看看。

chouqq1989

huangcaiguang 发表于 2016-3-14 15:36
看不懂

这只是这40个人做的第一题，标准答案是11100（ABC）（111也就是ABC，00也就是D和E），第二个人答题是（11100也就是ABC）做对了 得2分，第3-6人选择10100（AC）所以得1分 第11人选择01110（BCD）得0分，这样。

chouqq1989

爱疯 发表于 2016-3-14 15:39
手动给几个得分看看。

这只是这40个人做的第一题，标准答案是11100（ABC）（111也就是ABC，00也就是D和E），第二个人答题是（11100也就是ABC）做对了 得2分，第3-6人选择10100（AC）所以得1分 第11人选择01110（BCD）得0分，这样。

chouqq1989

也就是这样赋分，但是有40人 80道多选题

心正意诚身修

=IF(SUM(A2:E2*10^(5-COLUMN($A$1:$E$5)))=F2,2,IF(SUM(--(MID(F2,ROW($A$1:$A$5),1)="0")*(--MID(F2,ROW($A$1:$A$5),1)<>TRANSPOSE(A2:E2)))>0,0,IF(SUM(--(MID(F2,ROW($A$1:$A$5),1)="1")*(--MID(F2,ROW($A$1:$A$5),1)=TRANSPOSE(A2:E2)))>0,1)))
這麼長．都有點不好意思貼出來了．{:011:}

心正意诚身修

=IF(SUM(A2:E2*10^(5-COLUMN($A$1:$E$5)))=F2,2,IF(SUM(--(MID(F2,ROW($A$1:$A$5),1)="0")*(--MID(F2,ROW($A$1:$A$5),1)<>TRANSPOSE(A2:E2)))>0,0,1))
後面一個判斷可以省略．．少一點．{:011:}

爱疯

百度的：http://club.excelhome.net/thread-895989-1-1.html
看到有点长的函数，就 。。。。。。。
所以，写了个自定义函数


'功能：求多项选择的得分
Function getScore(rng As Range, answer As Range) As Integer
    Dim i As Integer, ans As Integer, x

    getScore = 2
    For Each x In rng
        i = i + 1
        ans = Mid(answer, i, 1)
        '当不一致时，如果是1只扣分，否则得0并结束。
        If x <> ans Then If ans = 1 Then getScore = getScore - 1 Else getScore = 0: Exit For
    Next
End Function
多选判断题判卷2.rar (3.92 KB, 下载次数: 10)

2016-3-14 16:32 上传

点击文件名下载附件

心正意诚身修

心正意诚身修 发表于 2016-3-14 16:27
=IF(SUM(A2:E2*10^(5-COLUMN($A$1:$E$5)))=F2,2,IF(SUM(--(MID(F2,ROW($A$1:$A$5),1)="0")*(--MID(F2,ROW($ ...

發現不能省．如果省了．．該對了，全漏了也能拿一分．．樓上的才完善．