求助（自动推荐学生名单）

fangfhf · 发表于 2024-1-29 10:55

19个优秀为推荐五钻星级学生；16个优秀为四钻星级学生。13个优秀，推荐为三钻星级学生，出现一个合格，均不推荐！

lixikao · 发表于 2024-1-29 11:06

要求不严谨呀，假设有19个优秀，但是剩下的有尚需努力，推不推荐？

fangfhf · 发表于 2024-1-29 11:08

lixikao 发表于 2024-1-29 11:06
要求不严谨呀，假设有19个优秀，但是剩下的有尚需努力，推不推荐？

不推荐哦！

fangfhf · 发表于 2024-1-29 11:09

合格和尚需要努力都不推荐了

ykcbf1100 · 发表于 2024-1-29 11:13

参与一下。。。

Sub ykcbf() '//2024.1.29
arr = Me.UsedRange
For i = 2 To UBound(arr)
Sum = 0: n = 0
For j = 3 To UBound(arr, 2) - 1
If arr(i, j) = "优秀" Then
Sum = Sum + 1
End If
If arr(i, j) = "合格" Then
n = n + 1
End If
Next
Select Case Sum
Case Is >= 19
arr(i, UBound(arr, 2)) = "推荐五钻星级学生"
Case Is >= 16
arr(i, UBound(arr, 2)) = "推荐四钻星级学生"
Case Is >= 13
arr(i, UBound(arr, 2)) = "推荐三钻星级学生"
End Select
If n > 0 Then
arr(i, UBound(arr, 2)) = ""
End If
Next
Me.UsedRange = arr
MsgBox "OK！"
End Sub

复制代码

ykcbf1100 · 发表于 2024-1-29 11:13

附件供参考。。。

清风竹- · 发表于 2024-1-29 11:29

请看附件。

gwjkkkkk · 发表于 2024-1-29 19:46

Option Explicit
Sub TEST1()
Dim ar, i&, j&, isFlag As Boolean, iNum&

With [A1].CurrentRegion
      .Columns(.Columns.Count).Offset(1).Clear
      ar = .Value
      For i = 2 To UBound(ar)
         isFlag = True: iNum = 0
         For j = 3 To UBound(ar, 2) - 1
            If ar(i, j) = "优秀" Then
                  iNum = iNum + 1
            ElseIf ar(i, j) <> "良好" Then
                  isFlag = False
            End If
         Next j
         If isFlag Then
            Select Case iNum
                  Case Is >= 19
                  ar(i, UBound(ar, 2)) = "五钻学生"
                  Case Is >= 16
                  ar(i, UBound(ar, 2)) = "四钻学生"
                  Case Is >= 13
                  ar(i, UBound(ar, 2)) = "三钻学生"
            End Select
         End If
      Next i
      .Value = ar
End With

Beep
End Sub

gwjkkkkk · 发表于 2024-1-29 19:48

参与一下。。。

excelkill · 发表于 2024-1-29 19:53

论坛里里的大师们都真给力啊，做的好，还快

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

[求助] 求助（自动推荐学生名单）

评分