如何用公式计算多项选择的各题得分？

kinsun · 发表于 2024-10-14 16:49

具体描述在文件里面，请各位大神帮忙，万分感谢！！！！

hxj119 · 发表于 2024-10-14 17:11

=REDUCE(0,SEQUENCE(COLUMNS($C$1:$Q$1)),LAMBDA(x,y,LET(a,C2:Q2,b,答案分值!$B$2:$P$2,c,答案分值!$B$3:$P$3,x+IFERROR(SUM(SIGN(FIND(REGEXP(INDEX(a,y),"."),INDEX(b,y))))*INDEX(c,y)/LEN(INDEX(b,y)),0))))

复制代码

hxj119 · 发表于 2024-10-14 17:13

第小题的分值可以任意设定。

=REDUCE(0,SEQUENCE(COLUMNS($C$1:$Q$1)),LAMBDA(x,y,LET(a,C2:Q2,b,答案分值!$B$2:$P$2,c,答案分值!$B$3:$P$3,x+IFERROR(SUM(SIGN(FIND(REGEXP(INDEX(a,y),"."),INDEX(b,y))))*INDEX(c,y)/LEN(INDEX(b,y)),0))))

复制代码

ovxyz · 发表于 2024-10-14 17:19

=IF(F2=答案分值!E$2,2,IF(OR(ISERROR(FIND(REGEXP(F2,"."),答案分值!E$2))),0,SUM(--NOT(ISERROR(FIND(REGEXP(F2,"."),答案分值!E$2))))/LEN(答案分值!E$2)))

ovxyz · 发表于 2024-10-14 17:29

用let看起来融易懂一点。
=LET(a,答案分值!B$2,b,ISERROR(FIND(REGEXP(C2,"."),a)),IF(C2=a,2,IF(OR(b),0,SUM(--NOT(b))/LEN(a))))

ovxyz · 发表于 2024-10-14 17:31

如题是的哈

kinsun · 发表于 2024-10-14 17:45

ovxyz 发表于 2024-10-14 17:31
如题是的哈

感谢大神的回复，虽然我用的MSoffice无法使用WPS的正则表达式还有let等新公式函数。

kinsun · 发表于 2024-10-14 18:38

hxj119 发表于 2024-10-14 17:13
第小题的分值可以任意设定。

很好很强大，非常感谢您的指教

kinsun · 发表于 2024-10-14 18:39

本帖最后由 kinsun 于 2024-10-14 18:40 编辑

因为我没有WPS，所以能否用VBA解决这个问题呢？还请各位大神不吝赐教！！！

ovxyz · 发表于 2024-10-14 19:21

这个公式都是office老版也能运行
=IF(C2=答案分值!B$2,2,IF(OR(ISERROR(FIND(MID(C2,ROW(INDIRECT("a1:a"&LEN(C2))),1),答案分值!B$2))),0,SUM(--NOT(ISERROR(FIND(MID(C2,ROW(INDIRECT("a1:a"&LEN(C2))),1),答案分值!B$2))))*答案分值!B$3/LEN(答案分值!B$2)))

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

[求助] 如何用公式计算多项选择的各题得分？

使用VBA该如何写代码呢？