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

Qs18

cjc209 发表于 2024-11-17 18:27
你不知道去下载最新版本wps吗 完全免费 我真搞不懂你们这些人 高级版本不用

哦！单位有规定的，不让乱下载

cjc209

Qs18 发表于 2024-11-17 18:29
哦！单位有规定的，不让乱下载

那你就用vba吧

cjc209

现在wps 功能与微软的office差不多了 微软的要钱 金山免费  什么分组函数 和透视函数独有了 正则函数和溢出功能 lambda map let reduce 等等一些函数多有了 太强大了 只要数据量不是特别大 基本上用不着vba了 以前用vba的是因为函数功能太弱的原因

李贵濮

Sub li()
    Range("h2:h11").Clear
    For x = 2 To 11
    m = m + 1
    For y = 2 To 6
    If Cells(x, y) = "C" Then
    w = w + 1
    ElseIf Cells(x, y) = "D" Then
    t = t + 1
    ElseIf Cells(x, y) = "" Then
    h = h + 1
    End If
    Next
    If w + h + t > 2 Then
    Cells(m + 1, 8) = "不合格"
   ElseIf w = 1 And t = 1 Then
   Cells(m + 1, 8) = "不合格"
   ElseIf w = 1 And h = 1 Then
   Cells(m + 1, 8) = "不合格"
   ElseIf t + h = 2 Then
   Cells(m + 1, 8) = "不合格"
    End If
    If Cells(m + 1, 8) <> "不合格" Then
    Cells(m + 1, 8) = "合格"
    End If
    w = 0
    t = 0
    h = 0
    Next
End Sub

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr(65 To 68)
   
4.     With Worksheets("sheet1")
   
5.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.         .Range("g2:g" & r).ClearContents
   
7.         arr = .Range("a2:g" & r)
   
8.         For i = 1 To UBound(arr)
   
9.             Erase brr
   
10.             For j = 2 To 6
    
11.                 If arr(i, j) Like "[ABCD]" Then
    
12.                     x = Asc(arr(i, j))
    
13.                     brr(x) = brr(x) + 1
    
14.                 End If
    
15.             Next
    
16.             If brr(67) >= 3 Or brr(68) >= 2 Or (brr(67) >= 1 And brr(68) >= 1) Then
    
17.                 arr(i, 7) = "不合格"
    
18.             Else
    
19.                 arr(i, 7) = "合格"
    
20.             End If
    
21.         Next
    
22.         .Range("g2").Resize(UBound(arr), 1) = Application.Index(arr, 0, 7)
    
23.     End With
    
24. End Sub
    

复制代码

chxw68

参与练习。

翁知江安

供参考，欢迎批评指正

yuhan4488

shiruiqiang 发表于 2024-11-17 13:45
c1分，d2分。
大于等于3分就不合格

思路漂亮，一阵见血的指出

yuhan4488

以上各位老师的建议、思路和解答方法，均收到，值得我认真学习和消化。有赋值法，有筛选法，有排序法，思路不同，殊途同归。非常感谢各位老师的解答！！！

朝露孤烟

原始的思路，供参考。