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

kinsun

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

hxj119

1. =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

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

1. =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

=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

用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

如题是的哈

kinsun

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

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

kinsun

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

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

kinsun

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

ovxyz

这个公式都是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)))