统计单科成绩并判断总成绩是否合格

gwjkkkkk

请忽略。。。

gwjkkkkk

请忽略。。。

准提部林

"合格/不合格"判斷...by.准提部林
sub test_a1()
arr=range([f1], [a65536].end(3))
for i=2 to ubound(arr)
    arr(i-1,1)="合格": k=0
    for j=2 to 6
        if arr(i, j)="C" then k=k+1
        if arr(i, j)="D" then k=K+2
        if arr(i, j)="" then k=9 '缺考...直判不合格
    next j
    if k>=3 then arr(i-1,1)="不合格"
next i
[g2].resize(ubound(arr)-1)=arr
end sub

cjc209

wps一个公式搞定
=IF(REGEXP(TEXTJOIN("",,SORT(B2:F2,,1,TRUE)),"CCC|CD|DD",1),"不合格","合格") 下拉

cjc209

Qs18 发表于 2024-11-17 14:22
试试..........

思路就是横排升序排序后在连接成一个字符串 再用正则表达式去测试 测试成功了的就是不合格 否则就是合格

cjc209

还用的着写那么多的vba代码?

cjc209

利用溢出功能和按行遍历函数还可以
=BYROW(B2:F11,LAMBDA(x,IF(REGEXP(TEXTJOIN("",,SORT(x,,1,TRUE)),"CCC|CD|DD",1),"不合格","合格")))
连下拉都不需要 更简单

Qs18

cjc209 发表于 2024-11-17 18:10
思路就是横排升序排序后在连接成一个字符串 再用正则表达式去测试 测试成功了的就是不合格 否则就是合格

老版本的Excel没有这些函数

Qs18

cjc209 发表于 2024-11-17 18:10
思路就是横排升序排序后在连接成一个字符串 再用正则表达式去测试 测试成功了的就是不合格 否则就是合格

确实您的思路很清晰明了！向您学习！

cjc209

Qs18 发表于 2024-11-17 18:23
老版本的Excel没有这些函数

你不知道去下载最新版本wps吗 完全免费 我真搞不懂你们这些人 高级版本不用