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

chouqq1989 · 发表于 2016-3-14 15:27

这道题有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)

huangcaiguang · 发表于 2016-3-14 15:36

看不懂{:4712:}

爱疯 · 发表于 2016-3-14 15:39

手动给几个得分看看。

chouqq1989 · 发表于 2016-3-14 15:40

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:41

爱疯发表于 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 · 发表于 2016-3-14 15:43

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

心正意诚身修 · 发表于 2016-3-14 16:25

=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:}

心正意诚身修 · 发表于 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($A$1:$A$5),1)<>TRANSPOSE(A2:E2)))>0,0,1))
後面一個判斷可以省略．．少一點．{:011:}

爱疯 · 发表于 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:36

心正意诚身修发表于 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($ ...

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

		自动登录	找回密码
密码			注册

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

相关帖子